是,這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do begin if controls[i] is Teditthen tedit(controls[i]).Clear; end;
end;
原帖由 [bold][underline]sky_yang_sky[/underline][/bold] 于 2007-12-26 09:16 发表 [url=http://bbs.]" border="0" />[/url]
是,這個你自己可以試下呀
如果是要清除所有這類控件的內容可用下面的方法
var
i:integer;
begin
for i := 1 to controlcount-1 do begin if controls is Teditthen tedit(controls).Clear; end;
end; ...