How do you convert LFM-to-PAS at runtime?

[vfclists]

There is this video on youtube https://www.youtube.com/watch?v=M250unH3Ltw that according to the uploader shows how convert the state of the form to a pascal file.

It isn't very clear according to thes mailing list thread https://lists.freepascal.org/pipermail/pas2js/2018-April/000182.html it uses  the TCompWriterPas class.

Does any one have working examples of the use of this class?

[howardpc]

There is some code in the Lazarus sources at
$LazarusDir/components/codetools/tests/testcompreaderwriterpas.pas

[eljo]

Code: Pascal  [Select][+][-]

1. uses CompWriterPas, ....
2. procedure TForm1.MenuItem7Click(Sender: TObject) ;
3. var
4.   Strm:TFileStream;
5. begin
6.   if SaveDialog1.Execute then begin
7.     Strm := TFileStream.Create(SaveDialog1.FileName,fmCreate or fmShareExclusive);
8.     try
9.       WriteComponentToPasStream(self, Strm);
10.     finally
11.       Strm.Free;
12.     end ;
13.   end;
14. end;      
15.  

[dsiders]

There is some code in the Lazarus sources at
$LazarusDir/components/codetools/tests/testcompreaderwriterpas.pas

And in:

examples/pascalstream/CopyAsPasPkg/copyaspasdemounit1.pas: