Speichern eines Formulars

[Sebastian92]

Hallo,

Ich lerne zurzeit Delphi aus einem Buch und in diesem Buch steht, dass man zum Beispiel den Inhalt einer ListBox mit dem Befehl ListBox1.Items.SaveToFile(...) speichern kann. Allerdings steht in diesem Buch nicht, wie ich ein Formular speichern kann :gruebel: . Ich hatte eine Idee, dass ich schreibe: Form1.SaveToFile(...), allerdings war das eine Schnapsidee. Hat jemand eine Lösung auf mein Problem?

mit freundlichen Grüßen,
Sebastian

[mkinzler]

Schau dir mal TJvAppStorage (aud der JVCL) an.

[Jürgen Thomas]

Hallo,

zunächst musst Du Dir überlegen, was und wie eigentlich gespeichert werden soll:
* Wenn Du das Formular als Bilddatei haben willst, dann suche in der Hilfe nach TForm.GetFormImage in Verbindung mit TBitmap.SaveToFile.
* Wenn Du die Definition des Aufbaus haben willst, steht sie schon in der dfm-Datei.
* Wenn Du den aktuellen Zustand des Formulars haben willst (z.B. Position und Texte aller Controls), gibt es mehrere Möglichkeiten. (Die finde ich in meiner Erinnerung nicht mehr so leicht, aber es gibt sicher andere Helfer, die das sofort sagen können.) Eine davon hat Markus genannt.

Gruß Jürgen

PS. Wieso kommst Du eigentlich auf die Idee, das unter "Multimedia" zu fragen? Jürgen

[Sebastian92]

Hallo,Jürgen

Dass mit dem Multimedia war ein versehen, ich hatte mich im Forum vertan :lol:
Für das Programm brauche ich die letzte Version deiner Ausführungen, abert trotzdem vielen dank

[Hansa]

Speichere so etwas einfach in einer INI-Datei und lese es daraus im OnShow/OnCreate. Speichern im OnHide/OnClose.

[NickelM]

Hoffentlich ist das jetzt nicht so schwer für dich aber mach es so

Wenn du nur die Fomr eigenschaften z.b. Größe habe willst :

Delphi-Quellcode:

var S : TFileStream;
begin
S := TFileStream.Create(C:\meinform.lol); die dateierweiterung ist egal
S.WriteComponent(Form1);
end;

Und beim start bei on Create das gleiche nur anstat WriteComponent ReadComponent;
So hast du dan alle eigenschaften von dem Form.

[Hansa]

Zitat:

Zitat von NickelM

Hoffentlich ist das jetzt nicht so schwer für dich aber mach es so..

Sieht eher so aus, als wenn das für dich zu schwer ist. :lol: In einer Zeile gleich zwei kapitale Fehler (auch für Anfänger). Die fehlenden '' beim Dateinamen wird er wohl (eventuell) schnell finden, aber den fehlenden richtigen Parameter so einfach nicht.

Dann wüsste ich mal noch gerne, worin der Sinn davon liegt, so etwas in einer Binär-Datei abzuspeichern, anstatt in einer INI (=Text). Letztere ist von Hause aus leserlich (sogar mit TYPE), TFilestream aber eben nicht. Völlig unbedeutend ist die Datei-Endung übrigens auch nicht. Nenne sie mal *.PAS und gucke, was dann passiert. :mrgreen:

[omata]

Bitte kein Speicherleck zeigen und vielleicht sprechende Bezeichner wählen ...

Delphi-Quellcode:

var FileStream : TFileStream;
begin
  FileStream := TFileStream.Create('C:\meinform.lol'); 
  try
    FileStream.WriteComponent(Form1);
  finally
    FileStream.free;
  end;
end;

Gruss
Thorsten

[bitsetter]

Zitat:

Zitat von Hansa

Zitat:

Zitat von NickelM

Hoffentlich ist das jetzt nicht so schwer für dich aber mach es so..

Sieht eher so aus, als wenn das für dich zu schwer ist. :lol: In einer Zeile gleich zwei kapitale Fehler (auch für Anfänger). Die fehlenden '' beim Dateinamen wird er wohl (eventuell) schnell finden, aber den fehlenden richtigen Parameter so einfach nicht.

Dann hätte man bei der Gelegenheit auch gleich noch den 2. "kapitalen Fehler" beseitigen können.

Delphi-Quellcode:

FileStream := TFileStream.Create('C:\meinform.lol', fmCreate);

[Hansa]

Zitat:

Zitat von bitsetter

Dann hätte man bei der Gelegenheit auch gleich noch den 2. "kapitalen Fehler" beseitigen können.

Natürlich hätte "man" das können. Ihr habt das ja jetzt quasi als Kindergärtner gemacht. :mrgreen: In der besagten einen Zeile im Original ist übrigens noch ein Fehler, der den Compiler zum anhalten zwingt. Und ihr zwingt den Fragesteller dazu, dass er wegen unnötiger Komplettlösungen ohne Gegenfrage alles abschreiben kann und danach genauso schlau sein dürfte wie vorher auch. 8) Ok, vielleicht ist dann aber auch die Hausaufgabe erledigt und der Lehrer fragt nicht nach. :stupid:

P.S.: Bittsetter, bitte richtig zitieren !!

[bitsetter]

Das ist immer noch besser, als wenn das Kind den Eindruck gewinnt, dass der Kindergärtner es auch nicht besser kann oder es von vornherein gleich falsch lernt. :stupid:

[mkinzler]

Hansa, zum Glück bist du kein Lehrer geworden

[Hansa]

@Bittsetter : wer es nötig hat, als Erwachsener einem Kind zu BEWEISEN, dass er es besser weiß und es am lernen hindert, und zwar durch Direktlieferung der Antwort zu einer Frage, die dadurch keine mehr ist, na denn gute Nacht... 8) 16-jährige Script-Kiddies darf man auch nicht als Kinder behandeln. :stupid:

@mkinzler : ich hätte auch liebend gerne die Antworten der Klassenarbeit auf der Rückseite vom Lehrer komplett ausgearbeitet vorgefunden. Gott sei Dank sind die Zeiten vorbei und ich weiß was zu tun ist.