var
　　Edits: array [0..5] of TEdit;? // 把所有的Edit當(dāng)成是數(shù)組

procedure TForm1.Button1Click(Sender: TObject); vari, j: integer;beginfor i := 0 to ComponentCount - 1 do begin // 循環(huán)控件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;

?總會(huì)有方便的時(shí)候，每個(gè)控件都是數(shù)組的成員。

轉(zhuǎn)載于:https://www.cnblogs.com/studypanp/p/5114298.html

總結(jié)

以上是生活随笔為你收集整理的控件数组的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。