维
维扬一少
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组件用上面的代码在窗口中重建的时候没有问题
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组件用上面的代码在窗口中重建的时候没有问题