Edit-Felder durchnummerieren

[ManuMF]

Auch eine Möglichkeit:

Delphi-Quellcode:

var
  Felder : Array[1..10] of TEdit;
  // [Startnummer..Endnummer]


// Beim Erstellen der Form klären, welches Editfeld welche Nummer hat
procedure TForm1.FormCreate(Sender: TObject);
begin
  Felder[1] := Edit1;
  ... // Hier wird natürlich der Rest auch definiert, ich war nur zu faul ;-)
  Felder[10] := Edit10;
end;


// In der Ausführung:
  Felder[Runde].Text := 'G';
// oder
  if (Felder[Runde].text = 'G') then
    ...

Gruß,
ManuMF

[edit]Code aufgebessert[/edit]