開發Delphi對象式數據管理功能（五）

 

　　寫DFM文件的過程WriteComponentResFie

　　該過程帶有兩個參數FileName和InstanceFileName參數指定要寫入的DFM文件名Instance參數是TComponent類型的它指定要寫入的部件名一般是TForm對象的子類該過程將Instance部件和其擁有的所有部件寫入DFM文件

　　這個過程的意義在於可以在程序運行過程中產生Delphi的窗體部件和在窗體中插入部件並由該函數將窗體寫入DFM文件支持了動態DFM文件的重用性

　　該過程的程序是這樣的

　　

　　procedure WriteComponentResFile(const FileName: string; Instance: TComponent);

　　var

　　Stream: TStream;

　　begin

　　Stream := TFileStreamCreate(FileName fmCreate);

　　try

　　StreamWriteComponentRes(InstanceClassName Instance);

　　finally

　　StreamFree;

　　end;

　　end;

　　

　　函數中用FileStream創建文件用Stream對象的WriteComponetRes方法將Instance寫入流中

　　

　　 讀DFM文件的函數ReadComponentResFile

　　

　　ReadComponentResFile函數帶有兩個參數FileName和InstanceFileName參數指定要讀DFM文件名Instance參數指定從DFM文件中要讀的部件該函數從DFM文件中將Instance和它擁有的所有部件並返回該部件

　　這個函數的意義在於配合WriteComponentResFile過程的使用支持DFM文件的重用性

　　該函數的程序是這樣的

　　

　　function ReadComponentResFile(const FileName: string; Instance: TComponent):

　　TComponent;

　　var

　　Stream: TStream;

　　begin</FO    

From:http://tw.wingwit.com/Article/program/Delphi/201401/30266.html