Du kannst entweder
FindComponent benutzen, oder du musst selbst ein Array erstellen, das du entsprechend initialisierst:
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
EditArray: array[0..30] of TEdit;
end;
...
procedure TForm1.FormCreate(...);
begin
FEditArray[0] := Edit0;
FEditArray[1] := Edit1;
FEditArray[2] := Edit2;
...
FEditArray[30] := Edit30;
end;
...
for i := 0 to 30 do
FEditArray[i].Enabled := False;
Kannst es natürlich auch kombinieren:
Delphi-Quellcode:
procedure TForm1.FormCreate(...);
var
i: integer;
begin
for i := 0 to 30 do
FEditArray[i] := FindComponent('Edit'+IntToStr(i)) as TEdit;
end;
Generell ist ein Array vorzuziehen, da bei jedem Aufruf von FindComponent alle Komponenten durchiteriert werden, bis die gesuchte gefunden wird.