Komponente über Nummer variabel ansprechen

**Armageddon**

Hallo,

ich versuche gerade den folgenden Code anzupassen. Folgendes Problem: Ich habe auf einem Formular über 20 TLabeledEdit-Felder und möchte diese nun in einer kleinen Funktion, siehe weiter unten, prüfen und gegenbenenfalls anpassen. Wie bekomme ich folgendes Gedankengerüst hin?

markieren

Delphi-Quellcode:

			function Zuweisen(i: Integer): String;

var

  EditInhalt: String;

begin

  EditInhalt := Form1.LabeledEdit[i].Text;

  if EditInhalt = '' then Result := leer else Result := EditInhalt;

end;

Aufruf:

markieren

Delphi-Quellcode:

			  v1 := Zuweisen(1);

  v2 := Zuweisen(2);

  usw.

Das muss doch irgendwie gehen. Ich denke bestimmt nur wieder zu kompliziert.

Komponente über Nummer variabel ansprechen

Komponente über Nummer variabel ansprechen

Forumregeln