DELPHI里面的方法怎么用啊？ - 编程论坛

#2

sky_yang_sky2007-12-26 09:16

是，這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do
  begin
    if controls[i] is Tedit  then
    tedit(controls[i]).Clear;
  end;
end;

[[italic] 本帖最后由 sky_yang_sky 于 2007-12-26 09:26 编辑 [/italic]]

#3

adam11032007-12-26 14:46

controlcount - 1

减1是什么意思?

#4

mp3aaa2007-12-26 17:36

controlcount是什么意思啊？

#5

xu20002007-12-26 18:44

controlcount是当前窗口的控件数量

#6

mp3aaa2007-12-26 22:28

哦谢谢

#7

provoke2007-12-27 14:41

原帖由 [bold][underline]sky_yang_sky[/underline][/bold] 于 2007-12-26 09:16 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1160474&ptid=194285]

[/url]
是，這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do
  begin
    if controls is Tedit  then
    tedit(controls).Clear;
  end;
end; ...

哈哈，这个用法太牛了！我之前的做法都是逐个清除的，想不到可以这么简单！

顶！