M mitsukow Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-02 #2 for i:=0 to self.ComponentCount-1 do begin if self.Components.ClassName='TEdit' then TEdit(self.components).text := 'abc'; end;
for i:=0 to self.ComponentCount-1 do begin if self.Components.ClassName='TEdit' then TEdit(self.components).text := 'abc'; end;
S softprince Unregistered / Unconfirmed GUEST, unregistred user! 2000-11-02 #4 如先设置 Edit1.tag:=1; EDit2.tag:=2; ... Edit?.tag:=?; 在下面循环中实现: for i:=0 to componentcount-1 do if (components is TEdit) then case (Components as TEdit).tag of 1:Edit1.text:='1'; ... end;
如先设置 Edit1.tag:=1; EDit2.tag:=2; ... Edit?.tag:=?; 在下面循环中实现: for i:=0 to componentcount-1 do if (components is TEdit) then case (Components as TEdit).tag of 1:Edit1.text:='1'; ... end;
