Komplettes Formular speichern/laden

[Uwe Raabe]

Zitat von Cind12:

      Form_neu := TForm1.Create(Stream.ReadComponent(Form1) as TForm1);

Das geht so auch nicht! Dein Code macht in etwa folgendes:

Lese eine Komponente aus dem Stream und verwende als Instanz für die Daten Form1 (dabei werden aber alle Child-Komponenten nochmal erzeugt) und gib diese Instanz als Funktionswert zurück. Dann erzeuge ein neues TForm1 (TForm1.Create) mit der gerade gelesenenen Instanz als Owner und weise sie Form_neu zu. Form_neu ist jetzt aber leer und eine Child-Komponente von Form1.

So sollte es funktionieren:

Delphi-Quellcode:

Form_neu := Stream.ReadComponent(nil) as TForm1;

oder so:

Delphi-Quellcode:

Form1.DestroyComponents;
Stream.ReadComponent(Form1);

Übrigens: Raize-Components hat eine TRzPropertyStore-Komponente, mit der man einzelne Properties des Forms und seiner Komponenten in der Registry oder einem IniFile speichern und auch wieder laden kann.

[Cind12]

Hi,

@shmia
Ja, das ist natürlich eine Lösung. So ähnlich sähe es aus, wenn ich jede Komponente und jede ihrer Eigenschaften (natürlich in Schleifen zusammengefasst) speichern würde.
Es sind trotzdem noch eine Menge unterschiedlicher Komponenten von denen ich unterschiedliche Eigenschaften speichern muss, allein jede Komponente durchzugehen und zu entscheiden, welche Eigenschaften theoretisch änderbar sind und deshalb gespeichert werden müssen wäre im Vergleich recht viel Aufwand.

@Uwe Raabe
Das ist doch was ich hören wollte!

Die Variante
Form_neu := Stream.ReadComponent(nil) as TForm1; habe ich probiert. Hier bekomme ich den Fehler "Class TForm1 not found"...

Die Variante

Delphi-Quellcode:

Form1.DestroyComponents;
Stream.ReadComponent(Form1);

funktioniert prima.
Ich habe Form1.Destroy, Form1.Free, Form1.Close, Form1.FreeInstance...
Wirklich einiges versucht, um das Formular so weit zu löschen, dass es die Informationen aus der Datei aufnehmen kann...
Auf Form1.DestroyComponents bin ich noch nicht allein gestoßen^^

Herzllichen Dank!
Mein Problem ist damit unelegant gelöst, das ist alles was ich wollte

mit freundlichen Grüßen
Cind12

[himitsu]

[edit]
hmmmm, doppelpost

[himitsu]

Zitat von Cind12:

funktioniert prima.

Mit einem Haken.
Du kannst nie wieder was an der Form verändern.
Denn selbst wenn du was im Programm (genauer an dieser DFM) änderst, kannst du keine Daten mehr laden, ohne dieses Rückgängig zu machen, da ja beim Laden die komplette Form "neu" geladen/erstellt wird.



Über die Eigenschaften Controls oder Components kommt man (notfalls rekursiv aufgerufen) an alle Komonenten der Form.

Mit der (alten) RTTI kann man alle published Property einer Komponente rausbekommen und dann darüber die Werte einer Objekt-Instanz auslesen oder verändern.
PS: Genau das nutzt auch die VCL, bzw. diese Read-/WriteComponent-Methode.
Nur daß man eben nicht jede gefunene Eigenschaft speichern sollte, sondern eben nur das was wirklich nötig ist.

Oder man implementiert sich selber das Speichern, beim Durchlaufen.
z.B.

Delphi-Quellcode:

if Components[i] is TLabel then
   Speichere(Components[i].Name, 'Caption', TLabel(Components[i]).Caption);

Man könnte auch einfach alle nötigen Komponenten ableiten, implementiert z.B. eine ILoadAndSaveInterface worüber diese ihre Eigenschaften speichern/laden
und ruft dann beim Durchlaufen dieses Interface auf.
Und muß nun nur noch einmal in der PAS und der DFM diese Komonenten ersetzen. (Suchen+Ersetzen oder man hat ein pasendes Refactoringwerkzeug)

[shmia]

Zitat von Cind12:

Ja, das ist natürlich eine Lösung. So ähnlich sähe es aus, wenn ich jede Komponente und jede ihrer Eigenschaften (natürlich in Schleifen zusammengefasst) speichern würde.
Es sind trotzdem noch eine Menge unterschiedlicher Komponenten von denen ich unterschiedliche Eigenschaften speichern muss, allein jede Komponente durchzugehen und zu entscheiden, welche Eigenschaften theoretisch änderbar sind und deshalb gespeichert werden müssen wäre im Vergleich recht viel Aufwand.

Es ist aber der einfachste Weg, wenn du nicht grundsätzlich ALLE Properties speichern willst.
Du kannst die Liste auch noch verallgemeinern:

Code:

'*', 'Text'
'TEdit', 'Hint'
'TEdit', 'ShowHint'
'TCustomComboBox', 'ItemIndex'
'TCustomCheckbox', 'Checked'

Das '*' bedeutet dass wenn eine Komponente das Property hat, dann wird es gespeichert ohne die Klasse zu prüfen.
Ausserdem kann man die Prüfung des Klassennamens auch so programmieren, dass auch Vorgängerklassen berücksichtigt werden.