Bei der Methode kann man aber schlecht auswählen welche Edits alle den gleichen wert haben sollen. Evlt. soll ja nicht alle Edits sondern nur bestimmte Berücksichtig werden.
Hier mein Vorschlag:
Delphi-Quellcode:
Var
Items:array [0..5] of TEdit
...
procedure SetEdits(aIndex:Integer; aEdit:TEdit);
var
i:Integer;
begin
for i:=0 to 5 do begin
Items[i]:=aEdit;
end; // for
end;
// Beispiel
procedure InitEditArray;
begin
items[0]:=Edit1;
items[1]:=Edit5;
items[2]:=Edit7;
....
end;
Ist zwar nicht so sauber, aber auch eine Lösung.
So kann genau gewählt werden, welche Edits mit alle Edits gemeint sind.
Wenn es noch einfacher sein soll, dann würde ich eine TObjectListe nehmen.
Achja in SetEdits verwende ich einfach Pointer. Also wird kein Speicher verschwendet bzw. nicht so viel.