Hallo!
Sagt mal gibt es eine möglichkeit eine variable oder procedur mit einer variablen aufzurufen in der der Name steht... oder so ähnlich... ich versuche das mal zu umschreiben:
Ich habe ein Form mit 40 editfelder in denen letztendlich in allen das gleiche steht oder stehen muss.
Ich will alle diese Felder überprüfen ob da das drin steht was soll also würde der quellcode dazu so aussehen
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| Try
StrToInt(form1.edit1.text)
EXCEPT
BEGIN
If length(form1.edit1.Text)<>0
then form1.edit1.text:='0'
else fehler:=true;
END;
END; |
Nun ist das nur ein Bespiel, der echte Kram wäre etwas länger.
Nun müsste ich das 40 mal kopieren und jeweils die Ziffer ändern, was sowohl unübersichtlich als auch nervend ist.
Gibt es nun eine ähnliche Variante wie diese (die natürlich nicht funktionieren kann)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| for i:=1 to 40 do
Try
StrToInt(form1.edit+i.text)
EXCEPT
BEGIN
If length(form1.edit+i.Text)<>0
then form1.edit+i.text:='0'
else fehler:=true;
END;
END; |
Vielleicht gibt es ja eine Lösung
Gruß CoKoTech
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
FINDCOMPONENT