for i:=0 to 100 do a[i]:=strtoint(tedit(self.FindComponent('edit'+inttostr(i))).Text);
如: procedure TBaseQueryFrm.FormShow(Sender: TObject); var I:integer; begin for I:=0 to ComponentCount - 1 do IF ( Components[I] is TEdit) then (Components[I] as TEdit).Text:='' end;
a[i]:=strtoint(tedit(self.FindComponent('edit'+inttostr(i))).Text);
procedure TBaseQueryFrm.FormShow(Sender: TObject);
var I:integer;
begin
for I:=0 to ComponentCount - 1 do
IF ( Components[I] is TEdit) then (Components[I] as TEdit).Text:=''
end;