Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#5

AW: Formular zur Laufzeit speichern .....

  Alt 9. Aug 2024, 23:27
Das geht erstmal ganz einfach:
Delphi-Quellcode:
procedure SaveFormToFileAsBinary(AForm: TForm; const AFileName: string);
begin
  WriteComponentResFile(AFileName, AForm);
end;
Das speichert das Form im Binärformat. Soll es stattdessen im Textformat sein ist etwas mehr notwendig:
Delphi-Quellcode:
procedure SaveFormToFileAsText(AForm: TForm; const AFileName: string);
begin
  var stream := TFileStream.Create(AFileName, fmCreate);
  try
    var mem := TMemoryStream.Create;
    try
      mem.WriteComponent(AForm);
      mem.Position := 0;
      ObjectBinaryToText(mem, stream);
    finally
      mem.Free;
    end;
  finally
    stream.Free;
  end;
end;
Die Frage ist nur: Was willst du mit diesen Dateien anfangen?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat