例如：現在有edit1、edit2、 edit3、edit4、edit5 元件
利用迴圈來設定edit的值。

for i:=1 to 5 do
begin
edit(i).text:='edit' IntToStr(i);
end;

結果如同：
edit1.text:='edit1';
edit2.text:='edit2';
edit3.text:='edit3';
edit4.text:='edit4';
edit5.text:='edit5';

------
學藝不精 謝多多指教

無法使用變數，需要使用動態產生元件的方法！
<textarea cols="60" rows="10" class="delphi" name="code"> var EditArray:array[0..4] of TEdit; i:integer; begin for i := 0 to 4 do begin EditArray[i] := TEdit.Create(Self); EditArray[i].Name := 'Edit' IntToStr(i); EditArray[i].Visible := true; EditArray[i].Left := 100; EditArray[i].top := 100 i * 10; // .... your code end; // .... your code for i := 0 to 4 do EditArray[i].Free; end; </textarea>

獻醜
<textarea class="vb" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); var I : Integer; Edt : TEdit; begin for i := 1 to 5 do begin Edt :=TEdit(Self.FindComponent('Edit' IntToStr(I))); if Edt <> Nil then begin Edt.Text := 'edit' IntTostr(i); end end; end; </textarea>


Fishman

------
Fishman

是否可以考虑这样实现：

1.通过 父控件 的 Controls[Index] 枚举自控件。
2.通过 子控件 的 Name 属性确认是否为需要操作的控件。if Controls[Index].Name = "Edit" inttostr(i) then 。。。;
3.转化 子控件 类型，并进行操作。 TEdit(Controls[Index]).text := "....";


仔细看过 Fishman 的办法，发现自己的才是真正[献丑]了。路过的版主帮忙删除掉吧。真的很丑……

------
Never, never surrander...

編輯記錄