开发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