如何把动态建出来的组件保存到文件, 并根据文件把组件重新创建出来? 有个小问题! ( 积分: 100 )

  • 主题发起人 主题发起人 维扬一少
  • 开始时间 开始时间

维扬一少

Unregistered / Unconfirmed
GUEST, unregistred user!
var F: TFileStream; //保存的
begin
F := TFileStream.Create('c:/aaaa.txt', fmCreate);
F.WriteComponent(Self);
F.Free;
end;

var F: TFileStream; //读取的
begin
F := TFileStream.Create('c:/aaaa.txt', fmOpenRead);
F.ReadComponent(self) ;
F.Free;
end;

代码如上, 因为我自己给组件加了个属性filename, 把这个组件保存到文件没问题, 读取到窗口的时候提示property filename does not exist
这是什么原因?
而保存正常的VCL组件用上面的代码在窗口中重建的时候没有问题
 
var F: TFileStream; //保存的
begin
F := TFileStream.Create('c:/aaaa.txt', fmCreate);
F.WriteComponent(Self);
F.Free;
end;

var F: TFileStream; //读取的
begin
F := TFileStream.Create('c:/aaaa.txt', fmOpenRead);
F.ReadComponent(self) ;
F.Free;
end;

代码如上, 因为我自己给组件加了个属性filename, 把这个组件保存到文件没问题, 读取到窗口的时候提示property filename does not exist
这是什么原因?
而保存正常的VCL组件用上面的代码在窗口中重建的时候没有问题
 
自己顶一下
 
你要保存的是自定义的组件吗?
 
因为我做的东西需要在窗口中加一些组件,有些是delphi已经有的, 有些是我自己写的,现在要把这些组件保存成文件 ,并且可以让这些组件拼成的界面在另一个程序中重现(另一个程序直接读取这个文件,创建出界面)
 
代码我已经在上面贴出来了, 保存delphi的组件没有问题, 可保存我自己写的组件提示上面的错, 大伙帮我看看可能是什么原因?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部