为什么自定义对象持久化失败

Question

我自定义了一个对象,把他的实例持久化到硬盘,然后再读回来的时候参数去选择了
type
  TMyClass = class(TComponent)  //自定义了一个对象
  public
       aaa:string;
end;
//持久化到硬盘文件
var
 my:TMyClass;
 fs: TFileStream;
begin
  my := TMyClass.Create(self);
  my.aaa := 'aaaaaaaaaaaaaaaaaaaaaaaaa';
  fs := TFileStream.Create('c:\test.txt', fmCreate);
  my := TMyClass.Create(self);
  fs.WriteComponent(my );
  fs.free();
end;
//再读回来
var
 fs: TFileStream;
 my1,my2:TMyClass;
begin
   fs := TFileStream.Create('c:\test.txt', fmOpenRead);
   ooo :=  fs.ReadComponent(my2);
   my1 := TMyClass(ooo);
   ShowMessage(my1.aaa);  //这时候my1.aaa为空,为什么是空呢,上面我已经赋值了
end;

Answer 1

必须是published才行，或者自己定义读写方法。

Answer 2

var 
 my:TMyClass; 
 fs: TFileStream; 
begin 
  my := TMyClass.Create(self); 
  my.aaa :=  'aaaaaaaaaaaaaaaaaaaaaaaaa '; 
  fs := TFileStream.Create( 'c:\test.txt ', fmCreate); 
  //呵呵。。这句搞的鬼。
  //my := TMyClass.Create(self); 
  fs.WriteComponent(my ); 
  fs.free(); 
end; 

Answer 3

-_- 貌似低级错误了一把... orz