interface
type

    TMySubInfo = class
    public
        Name : string;
        Date : TDateTime;
        Age  : Integer;
    end;

    TMyInfo = class
    public
        Name : string;
        SubInfo : array of TMySubInfo;
        destructor Destroy; override;
    end;

implementation

    destructor TMyInfo.Destroy;
    begin
      // hmmm..
    end;

end.@H_502_3@ 
 
要正确清理,析构函数应该怎么办？是否足够做SetLength(SubInfo,0),还是需要循环并释放每个TMySubInfo？我需要做任何事情吗？