edit1.....edit20 nacheinander zuweisen?

[mimi]

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.