Komplette Form und deren Inhalte speichern

[WS1976]

Hallo,

wir haben ein relativ einfaches Problem:
Es existieren x Forms, in diesen Forms werden Editfelder (als Bsp) usw verändert.
Was wir suchen ist eine einfache Möglichkeit die Inhalte der Form vor dem Bearbeiten zu sichern und sie
eventuell (Abbruch Button) wieder herzustellen.
Es gibt im Forum mehrere Ansätze wie man das machen kann. Wir nutzen jedoch sehr viele Forms, sodass es sich anbietet eine Prozedur zum laden und sichern zu erstellen die sich auf verschiedene Forms anwenden lässt.

Hat jemand eine Ahnung wie man so etwas möglichst allgemeingültig realisieren kann?

Grüsse
Rainer

[Gruber_Hans_12345]

würde das per RTTI machen

irgendwo eine Liste der Componenten/Properties, die gespeichert werden soll und dann alle Forms/Komponenten durchgehen

[mquadrat]

Ich würd auch durch die Conrol-Collections durchgehen und je nach Typ dann einen Datensatz z.B. in nem XML File ablegen. Funktionioert aber nur, wenn die tatsächlich die Werte (Text / Checked Eigenschaften) langen und du nicht abhängig vom Inhalt irgendwelche Dictionarys oder sonstige Sachen laden musst. Dann dürfte es mit einer generischen Lösung eher schwierig werden

[WS1976]

Hallo,

versteh ich im Moment noch nicht. Kann mir das jemand noch mal genauer beschreiben.

Grüsse
Rainer

[Sharky]

Hai Rainer,

eventuell kannst Du ja die Gundidee von diesem Demo weiter entwickeln bzw. anpassen.

[WS1976]

Hallo Sharky, hallo DP'ler,

wir bzw ich habe eine Lösung, basierend auf dem Vorschlag von Sharky, gefunden.
Mein Beispielcode besteht aus 2 Forms. Auf der ersten Form sind die Sicherungsroutinen untergbracht, die 2. wird gesichert.
Achtung auf der zweiten Form dürfen nur Komponenten vorkommen die ein Property "Text" besitzen. (Ist ein Fehler der noch beseitigt wird). Als Stack wird eine Tstringlist verwendet.

Zum Beispielcode:

PUSH - Sichern der Form (Inhalte)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if s=nil then s:=tstringlist.create;
  Push(s,form2);
end;

POP - Rückholen der Form (Inhalte)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Pop(s,form2);
  s.clear;
end;

Die Stringlist "s" muss natürlich noch mit create erzeugt werden. Das gleiche gilt für das verlassen des Programms mit free.
Endgültiges Ziel meiner Arbeit ist es eine fertige Komponente zu erstellen und diese dann hier zu veröffentlichen.

Grüsse
Rainer