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?
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:
Delphi-Quellcode:
v1 := Zuweisen(1);
v2 := Zuweisen(2);
usw.
Das muss doch irgendwie gehen. Ich denke bestimmt nur wieder zu kompliziert.
