Invalid pointer operation

Question

创建一个类
TCell = record
     name : string[32];
     age  : integer;
end;
TCells =array of TCell;
TRow = record
     flag : byte;
     cells : TCells;
end;
TRows = array of Trow;
TMyclass = class(TObject)
    public 
        myrow : TRows;
        tmproe : TRows;
        tmpcell : TCells;
    .....
end;
在调用free的时候，老是报"Invalid pointer operation"
不知是什么原因？
请高手指教

Answer 1

你的myrow和tmproe,tmpcell动态分配长度了吗，还有就是TRow中的Cells动态分配长度了吗

Answer 2

TObject的相关源码：
constructor TObject.Create;
begin
end;destructor TObject.Destroy;
begin
end;procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;
所以，请给出你的程序中覆盖了以上方法的代码，大家研究一下。