наследование объектов с дин. массивом - как?

[zub]

проверил, pointer(v) := nil работает - как и должно быть, ведь init делает тоже самое.

Код: Выделить всё

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 - нефиг вызывать деструктор без конструктора, посмотрите внимательней

[alexs]

Не пора ли прекращат обсуждение того, как НЕ НАДО писать программы?

А то ещё кого либо научим не правильно

[zub]

>>Не пора ли прекращат обсуждение того, как НЕ НАДО писать программы?

А как надо? классы для всего?

[alexs]

Правильно использовать конструкторы

[Vadim]

Правильно - прежде чем калякать первый попавшийся под руку код, надо программу спроектировать, а потом уже код писать.

[alexs]

прежде чем калякать первый попавшийся под руку код, надо программу спроектировать, а потом уже код писать

Это аксиома - поэтому даже не обсуждается.

[Vadim]

alexs
Постоянно сталкиваюсь с вопросами по программированию, ноги у которых растут из отсутствия проектирования.

[alexs]

Я тоже, к сожалению. Но это уже к теме не относится.