TTest1 = class ID: integer; procedure Delete; end;
TTest2 = class aa : String; TestList:Array[0..6] of TTest1; procedure Delete; end;
在执行以下语句时出错!如下
var MyClass : TTest2; i : integer; begin MyClass := TTest2.Create; MyClass.aa := '00'; for i := 0 to 6 do MyClass.TestList[i].ID := i; //开始执行这时出错!!!!! MyClass.Delete; MyClass.Free; end;