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?