var
iIndex: Integer;
edtTemp: TEdit;
begin
for iIndex := 0 to ComponentCount - 1 do begin
if Components[iIndex] is TEdit then begin
edtTemp := TEdit(Components[iIndex]);
//然后就可以对edtTemp处理了。
end;
end;
end;
iIndex: Integer;
edtTemp: TEdit;
begin
for iIndex := 0 to ComponentCount - 1 do begin
if Components[iIndex] is TEdit then begin
edtTemp := TEdit(Components[iIndex]);
//然后就可以对edtTemp处理了。
end;
end;
end;
if components[i] is tedit then
tedit(components[i]).clear