Nee, der Trick ist Folgender:
Edit.Tag ist ein Integer. (Tag = engl, 'Etikett', Price tag = 'Preisetikett')
Du weisst deinen ganzen Edit.Tag Feldern unterschiedliche Werte zu. Das sind die Indizes in ein Array Of String (fEditValues)
Werte abholen:
Delphi-Quellcode:
For i:=0 to Componentcount - 1 do
If Components[i] is TEdit Then Begin
aMyIndex := TEdit (Components[i]).Tag;
fEditValues [aMyIndex] := TEdit (Components[i]).Text;
End;
Wie gehts? Ich gehe alle Komponenten auf der Form durch, wenn die Komponente ein TEdit ist, nehme ich den 'Tag' als Index in mein Array.
Zurückschreiben geht genauso:
Delphi-Quellcode:
For i:=0 to Componentcount - 1 do
If Components[i] is TEdit Then Begin
aMyIndex := TEdit (Components[i]).Tag;
TEdit (Components[i]).Text := fEditValues [aMyIndex];
End;