Код: Выделить всё
program project1;
{$mode objfpc}{$H+}
uses Objects;
type
TTestArr = array of integer;
TDemo = object(TObject)
V:TTestArr;
end;
{ TDemo2 }
TDemo2 = object(TDemo)
procedure DoTest;
end;
{ TDemo2 }
procedure TDemo2.DoTest;
begin
SetLength(V, 10);
end;
procedure Inits;
var
D:TDemo2;
begin
//D.Init;
D.DoTest;
D.Done;
end;
begin
writeln('aaaaaa');
Inits;
end.а вылет у меня тут не на SetLength(V, 10);, а на D.Done - нефиг вызывать деструктор без конструктора, посмотрите внимательней
