大家好， 小弟在一個 TPanel 上有很多個可視元件， 用如下的方法儲存:

var
  i: integer;
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    for i := 0 to Panel1.ControlCount - 1 do
    begin
      ms.WriteComponent(Panel1.Controls[i]);
      ms.Position := 0;
      ms.SaveToFile('c:\test\'   IntToStr(i));
      ms.Clear;
    end;
  finally
    ms.Free;
  end;
end;

小弟的問題是要怎樣再把這些 Controls 讀回來載入呢？ 小弟是把上述的方式用 ObjectBinayToText 轉成 dfm 的方式儲存 再用 c:\test 目錄下有幾個檔判斷有幾個 Controls 再讀檔案裡的第一行(例 Object Image1: TImage)來取得 ClassName 再用 GetClass 的方式取得 Class 最後用 c := TControlClass(AClass).Create(Self); 的方式來 Create 請教大家，有沒有比較好的方式呢？ 謝謝大家! -- 西瓜生食能解渴生津、利尿、降血壓，有「天生白虎湯」之稱。 發表人 - hagar 於 2004/07/12 16:35:11

Hi hagar 版大，    試試這一篇 Mickey 版大的精采解法 http://delphi.ktop.com.tw/topic.php?topic_id=50270 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝 Fishman 版大!  小弟的狀況跟 > -- 西瓜生食能解渴生津、利尿、降血壓，有「天生白虎湯」之稱。

在想如果嫌一個元件一檔太麻煩 也許可以把 .pas 轉換為 .xml 格式存檔 讀出時解析應該能解決 classtype 問題.. ...吧~    不過.. 若要存圖片又要速度不慢.. 不知需怎弄~ 

粉簡單 WriteComponent會把子Component寫入 因此在執行之前你只要把元件的Owner由Form改成Panel即可  

  for i := 0 to Panel1.ControlCount-1 do
  begin
    RemoveComponent(Panel1.Controls[i]);
    Panel1.InsertComponent(Panel1.Controls[i]);
  end;
 

混心雜欲 棄修身~唉

------
唉~

感謝 speedup 兄! 一語道破! 以前沒仔細試，一直以為只有 TForm 的 WriteComponent 才可把 ChildControl 也存入 現在知道怎麼做了!  -- 向 src="http://www.sweetbaby.net/~hagar/good.bmp">