var
　　Edits: array [0..5] of TEdit;? // 把所有的Edit當成是數組

procedure TForm1.Button1Click(Sender: TObject); vari, j: integer;beginfor i := 0 to ComponentCount - 1 do begin // 循環控件if Components[i] is TEdit thenEdits[i] := Components[i] as TEdit;end;(*Edits[0] := Edit1; // 先要賦值才能 才能給Text賦值Edits[1] := Edit2;Edits[2] := Edit3;Edits[3] := Edit4;Edits[4] := Edit5;Edits[5] := Edit6;*)// Edits[0].Text := 'aaa';j := 0;for i := 0 to Length(Edits)-1 dobeginEdits[i].Text := '這是Edit' + IntToStr(j); // 賦值Inc(j);end;end;

?總會有方便的時候，每個控件都是數組的成員。

轉載于:https://www.cnblogs.com/studypanp/p/5114298.html

總結

以上是生活随笔為你收集整理的控件数组的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。