Formular zur Laufzeit speichern .....

[Uwe Raabe]

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?