Hallo,
Delphi-Quellcode:
var
EditArray : array of TEdit;
n : Integer;
...
n := 22; // für 22 TEdit-Componenten
...
procedure Form1.FormCreate(....
var
i : Integer;
begin
SetLength(EditArray, n); // n = Anzahl der verwendeten TEdits
for i := 0 to n-1 do
EditArray[i] := FindComponent(Format('Edit%d', [i])) as TEdit;
end;
jetzt kannst Du per Schleife und EditArray[i] auf alle Eigenschaften Deiner Edits zugreifen.
Dies gilt natürlich auch für alle anderen Componenten., die Du entsprechend behandelst.
z.B.
Delphi-Quellcode:
var
i : Integer;
begin
for i := 0 to n-1 do
begin
if i mod 2 = 0
then EditArray[i].Font.Color := clRed // alle geradzahligen TEdits : Schriftfarbe Rot
else EditArray[i].Font.Color := clBlack; // alle ungeradzahligen TEdits : Schriftfarbe Schwarz
EditArray[i].Text := ....... // Textzuweisung
end;
end;