請教各位先進一個蠻奇特的問題。

我在Run Time時，將某個物件的很多Property 做了複雜的設定。若我要將這些Property 的設定存檔，供將來使用，傳統的做法是將這些設定值，一個一個的存到 INI 或 DB 中。下次再將這些設定值讀出後分別放到各物件Property中。可是這種作法就要針對各種物件的各個Property去寫Code。如果物件種類一多時，就會有很長很長很長很長很長很長很長的Code要寫。


我的問題是，有沒有可能在Run Time 時，將已經設定好Property的實體物件，直接存到某個 Binary File 。然後下次要用的時候，再直接把這個Binary File 載入進來，直接形成上一次的實體物件狀態。

不知道各位先進有沒有看法或是作法。

感謝各位先進

據我對 OO 的認知。似乎沒這個功能。@@

OO 是沒有「直接」定義此功能，但是依據物件的永續機制，是可以做到的，在此理論說太多沒意思
來看如何做

1. 了解如何將你的 Form 打包存放到 DLL 內，成為 resource
2. 瞭解如何將 DLL 內的 Form 資源叫出，並套用
3. 了解如何修改 DLL 內的 resource

4.以上三點，可以做到你的要求，並指使用一個指令儲存(WriteRootComponent/WriteComponent)與讀取(ReadRootComponent/ReadComponent/ReadComponents)


===================引 用 carstyc 文 章===================
請教各位先進一個蠻奇特的問題。

我在Run Time時，將某個物件的很多Property 做了複雜的設定。若我要將這些Property 的設定存檔，供將來使用，傳統的做法是將這些設定值，一個一個的存到 INI 或 DB 中。下次再將這些設定值讀出後分別放到各物件Property中。可是這種作法就要針對各種物件的各個Property去寫Code。如果物件種類一多時，就會有很長很長很長很長很長很長很長的Code要寫。


我的問題是，有沒有可能在Run Time 時，將已經設定好Property的實體物件，直接存到某個 Binary File 。然後下次要用的時候，再直接把這個Binary File 載入進來，直接形成上一次的實體物件狀態。

不知道各位先進有沒有看法或是作法。

感謝各位先進

請參考

------
努力會更接近成功

感謝各位先進的指導，小弟只是想把有實體產生的 Instance  自動的將其 Property 存檔，以省去針對每個Property去寫Code做儲存的時間。我研究後，已經可以實作了，作法也跟各位分享一下。

[code delphi]
procedure SaveAllPropertyToStream(Instance: TPersistent);
var
PropList: PPropList;
i,j,k:Integer;
TypeData: PTypeData;
begin
i:=GetPropList(Instance,PropList);
for j:=0 to i-1 do
SavePropertyToStream(Instance,PropList[j]^.Name);
end;


procedure SavePropertyToStream(Instance: TPersistent; PropName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(BaseComponentName '_' Instance.GetNamePath '_' PropName '.Data' ,fmCreate );

with TMyWriter.Create(Stream, 1024) do
try
WriteListBegin;
WriteProperty(Instance, GetPropInfo(Instance.ClassInfo, PropName));
WriteListEnd;
finally
Free;
end;
Stream.Free;
end;
[/code]


如此就可以將某個 Instance 的所有Property存在檔案中了。

但經過小弟實測後，大部份的Property皆能儲存，但有某些Instance 明明有某個 Property ，但卻不會出現在 GetPropList 中，所以就會漏掉這些 Property。

比如 ListBox 中的 Itemindex 就不會出現，我也百思不得其解。不過這樣的功能已經解決我大部份的問題了。謝謝各位先進

雖已結案,但能否順便po一下load的方法, 謝謝!

------
努力會更接近成功

希望有幫助


[code delphi]
procedure SaveAllPropertyToStream(Instance: TPersistent);
var
PropList: PPropList;
i,j,k:Integer;
TypeData: PTypeData;
begin
i:=GetPropList(Instance,PropList);
for j:=0 to i-1 do
SavePropertyToStream(Instance,PropList[j]^.Name);
end;

procedure SavePropertyToStream(Instance: TPersistent; PropName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(Instance.GetNamePath '_' PropName '.Data' ,fmCreate );
with TMyWriter.Create(Stream, 1024) do
try
WriteListBegin;
WriteProperty(Instance, GetPropInfo(Instance.ClassInfo, PropName));
WriteListEnd;
finally
Free;
end;
Stream.Free;
end;

procedure LoadALLPropertyFromStream(Instance: TComponent);
var
Stream: TStream;
PropList: PPropList;
i,j,k:Integer;
TypeData: PTypeData;
begin
i:=GetPropList(Instance,PropList);
for j:=0 to i-1 do
LoadPropertyFromStream(Instance,PropList[j]^.Name);
end;

procedure LoadPropertyFromStream(Instance: TPersistent; PropName: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(Instance.GetNamePath '_' PropName '.Data' ,fmOpenRead );
with TMyReader.Create(Stream, 1024) do
try
ReadListBegin;
while not EndOfList do
ReadProperty(Instance);
ReadListEnd;
finally
Free;
end;
Stream.Free;
end;

[/code]

===================引 用 pceyes 文 章===================
雖已結案,但能否順便po一下load的方法, 謝謝!

這樣的方法，只能存取 published 的屬性，不能存取 public 的屬性。

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

sryang 大大：

因為小弟的需求確實也僅需要 published 的 property ，所以沒再繼續往下研究。不知知 sryang大大對於 public 的 property 列舉的方式，甚至是protected or private 的，有沒有可以指導小弟的，謝謝



===================引 用 sryang 文 章===================
這樣的方法，只能存取 published 的屬性，不能存取 public 的屬性。

用 RTTI (Run-time Type Information) 的話，就只能抓得到 published 的屬性了
至於 public 甚至是 protected 或 private 要如何列舉，我也想知道咧

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/