编程论坛's Archiver

mp3aaa 发表于 2007-12-25 22:02

DELPHI里面的方法怎么用啊?

如 EDIT1组件的 clear 方法怎么用?

是EDIT1。clear; 吗?

sky_yang_sky 发表于 2007-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]]

adam1103 发表于 2007-12-26 14:46

controlcount - 1

减1是什么意思?

mp3aaa 发表于 2007-12-26 17:36

controlcount是什么意思啊?

xu2000 发表于 2007-12-26 18:44

controlcount是当前窗口的控件数量

mp3aaa 发表于 2007-12-26 22:28

哦 谢谢

provoke 发表于 2007-12-27 14:41

[quote]原帖由 [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][img]http://bbs.bc-cn.net/images/common/back.gif[/img][/url]
是,這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do
  begin
    if controls is Tedit  then
    tedit(controls).Clear;
  end;
end; ... [/quote]


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

顶!

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.