04-11-2015, 05:33 PM
var
i: integer;
begin
for i:=0 to ComponetCount-1 do
if Components[1] is TEdit then
begin
TEdit(components[i]).text:= '';
end;
i: integer;
begin
for i:=0 to ComponetCount-1 do
if Components[1] is TEdit then
begin
TEdit(components[i]).text:= '';
end;