如何把一个自定义的类对象写进一个文件

Question

该方法只能写入从TComponent继承的类
对于其他类：计算对象长度InstanceSize
不过最好是由对象自己提供SaveToStream和LoadFromStream函数。

Answer 1

人家说定义了一个类，又不是组件，用TStream::WriteComponent恐怕不行吧。

Answer 2

to windindance(风舞轻扬):看样子你虾子对Delphi也有些研究哦，联系一下，交个朋友怎样？

Answer 3

procedure SaveClassInfo(hInstance: TComponent);
var
  fsClassInfo: TFileStream;
begin
  fsClassInfo := TFileStream.Create('myclass.txt',fmCreate);
//创建或者打开你的保存文件；
  fsClassInfo.WriteComponent(Form1);//你要保存的类名
  fsClassInfo.Free;
end;