P pardboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-11 #1 i是个整型变量先假设为1，如何把edit1.text:='';用editi.text:='';表示? 就是把变量i当成1处理，明白吗？
远 远帆 Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-11 #3 用控件数组，动态创建控件就可以了。以前答得很多了，你自已找找。
W wangpian Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-11 #4 可以使用 Tedit(form1.FindComponent('edit'+inttostr(i))).text:='';
M misaiya Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-11 #5 你可以用控件数组： procedure TForm1.Button1Click(Sender: TObject); var arrEdit:array[1..4] of TEdit; begin arrEdit[1]:=Edit1; arrEdit[1].Text :='how do you do'; end;
你可以用控件数组： procedure TForm1.Button1Click(Sender: TObject); var arrEdit:array[1..4] of TEdit; begin arrEdit[1]:=Edit1; arrEdit[1].Text :='how do you do'; end;
P PFans Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-13 #7 var i: integer; begin for i:=0 to Self.ControlCount-1 do begin if Controls is TEdit then begin (Controls as TEdit).text:=' '; end; end; end; //效果是一样的
var i: integer; begin for i:=0 to Self.ControlCount-1 do begin if Controls is TEdit then begin (Controls as TEdit).text:=' '; end; end; end; //效果是一样的
C coolbaby Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-25 #10 agree --------------- http://coolbaby.delphibbs.com
