![]() |
#2
ruanjian21102008-10-10 22:30
|
i:integer;
begin
for i:=1 to componentcount-1 do
if components[i] is tedit then
(components[i] as tedit).Text :='';
close;
end;