记录中一个成员是类，能否让它自动Create？

Question

TData = record
    ID: Integer;
    Title: string;
    Text: TStringStream;//就是这里，每次用这个记录时，得先将它Create，用完还得Free，真麻烦。
  end;能否让它自动Create和Free？或者有无替代性的方法？

Answer 1

简单的垃圾办法 record加上数组解决一下，在程序关闭时free数组

Answer 2

tlefttop=record
  left:integer;
  top:integer;
  end;
  tzb=array[0..5,0..5] of tlefttop;

Answer 3

可以这样定义定义一个类
TData = class
public
    ID: Integer;
    Title: string;
    Text: TStringStream;
    
    construtor create；
end；
然后你可以在create中实现text的初始化。也许你可以使用得上一些class才有的高级特性，比如成员的访问控制