在程式執行時動態建立的元件如何儲存呢?
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); var FS:TFileStream; w:TWriter; i:integer; begin FS :=TFileStream.Create('D:\Save.txt',fmCreate); w := TWriter.Create(FS,4096); try w.WriteComponent(Self); finally w.Free; FS.Free; end; end; </textarea>
儲存結果與 dfm 檔的結果不同

1.請問如何將 Form的屬性資料,包括 Form 上的元件的屬性存入 Stream 中
2.存入的資料如何取出重建 原來的 Form
也就是如何實現 Persistent 的能力, 就像 Delphi Form Designer 把 Form 存成 dfm 檔.

直接用 ReadComponent/WriteComponent 動作的都是 Binary 型態要轉為純文字須用 ObjectBinaryToText 將純文字轉為 Binary 則用 ObjectTextToBinary 參考: http://www.swissdelphicenter.ch/torry/showcode.php?id=835