Delphi的组件读写机制(三）

end;

WriteProperties(Instance);

WriteListEnd;

……

end;

从WriteData方法中我们可以看出生成DFM文件信息的概貌。先写入组件前面的标志(PreFix)，然后写入类名、实例名。紧接着有这样的一条语句：

WriteProperties(Instance);

这是用来写组件的属性的。前面提到过，在DFM文件中，既有published属性，又有非published属性，这两种属性的写入方法应该是不一样的。来看WriteProperties的实现：

procedure TWriter.WriteProperties(Instance: TPersistent);

……

begin

Count := GetTypeData(Instance.ClassInfo)^.PropCount;

if Count > 0 then

begin

GetMem(PropList, Count * SizeOf(Pointer));

try

GetPropInfos(Instance.ClassInfo, PropList);

for I := 0 to Count - 1 do

begin

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!