DELPHI里面的方法怎么用啊?
如 EDIT1组件的 clear 方法怎么用?是EDIT1。clear; 吗? 是,這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
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]] controlcount - 1
减1是什么意思? controlcount是什么意思啊? controlcount是当前窗口的控件数量 哦 谢谢 [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]
