Hallo,
manchmal ergibt es sich, dass man die Inhalte von sehr vielen Textfeldern (oder andere controls die Strings enthalten), die auf einer Form liegen, abspeichern (oder zwischenspeichern) oder laden muss.
Dazu ist diese
Unit mit den Prozeduren Push und Pop gedacht.
Delphi-Quellcode:
Save to stack
procedure Pop(var st:tstringlist;aForm: TForm; const aProperty: string = 'Text');
Alle Properties die die Bezeichnung aProperty haben und auf aForm liegen werden gespeichert.
Delphi-Quellcode:
Load from stack
procedure Push(var st:tstringlist;aForm: TForm; const aProperty: string = 'Text');
Alle Properties die die Bezeichnung aProperty haben und auf dem Stack liegen werden wiederhergestellt.
Die Prozeduren: MySetWideStrProp, MyGetWideStrProp sind von Sharky (hier aus dem Forum).
Zu bemerken ist noch, dass es keine dynamischen Veränderungen (selbst erzeugte Edits oder so) auf der Form geben darf.
Grüsse
Rainer