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