Сразу скажу, что в Delphi всё ОК.
А FPC 2.0.0, 1.9.8 такая вот ерунда (в процессе работы acess violation...):
- Код: Выделить всё
program Project1;
type
TBaseC = class
a,b,c: Integer;
arra: Array of Cardinal;
end;
TOneClass = class(TBaseC)
arr: Array of Cardinal;
end;
TMainClass = class
A,B,C: Array of TBaseC;
end;
var SSS: TMainClass;
begin
SSS:=TMainClass.Create;
SetLength(SSS.A,1);
SSS.A[0]:=TBaseC.Create; // кстати если TOneClass.Create - OK
SetLength(TOneClass(SSS.A[0]).arr, 100000); // Хана! <--------------------------------
end.