access violation при создании обьекта

[goog]

Всем привет.
О коде: в паскале была такой класс как Tcollection, в дельфи он тоже есть, но заметно хуже (мнение нубика) ), так или иначе я решил написать это клас сам О.о
примерно так:

Type
  PointerArray = array of Pointer;

  TMyCollection = class(TObject)
  private
    FItems: PointerArray;
    FCount: integer;
    FDelta: integer;
    FLimit: integer;
    procedure SetLimit(ALimit: integer);
    procedure SetCount(ACount: integer);
    procedure SetDelta(ADelta: integer);
  public
    property Items: PointerArray read FItems;
    property Count: integer      read FCount write SetCount;
    property Delta: integer      read FDelta write SetDelta;
    property Limit: integer      read FLimit write SetLimit;
    constructor Init(ALimit, ADelta :integer);
    destructor Done;virtual;
  end;
implementation
{TMyCollection}
  {..все процедуры-сеты..}

  constructor TMyCollection.Init(ALimit, ADelta :integer);
  begin
   inherited create;
   count:= 0;                //<-вылетает сдесь
   Delta:= ADelta;
   Limit:= Alimit;
  end;
{/TMyCollection}
end.

но при создании обьекта появляется access violation, я так понимаю, что это из-за того что обьект не создался, а обращается к памяти, но почему этого не произошло?
заранее спасибо)

[Jeni]

Только что проверил этот код - всё работает. Может покажешь, что записано в процедуре SetCount?

[goog]

тривиально:

procedure TMyCollection.SetCount(ACount: integer);
  begin
    FCount:= Acount;
end;

[Jeni]

Значит проблема где-то в другом месте. Если пришлешь проект, могу глянуть, т.к. у меня этот код нормально работает.

Сообщение от goog

FCount:= Acount;

Если так, то может не стоит и огород городить - напиши проще, без процедуры:

property Count: integer read FCount write FCount;

[goog]

вот оно Ptest.zip

[Jeni]

Ошибка в строке: q:= q.Init(10,2); - как же можно использовать q.Init, пока переменная q не создана?

Создавать конкретный экземпляр класса (т.е. объект) нужно так:
q:= TMycollection.Init(10,2);

[DelDev]

А чем стандартный класс не угодил, зачем велосипед изобретать?

[goog]

Сообщение от Jeni

Ошибка в строке: q:= q.Init(10,2); - как же можно использовать q.Init, пока переменная q не создана?

Создавать конкретный экземпляр класса (т.е. объект) нужно так:
q:= TMycollection.Init(10,2);

БОльшое спасибо! так и знал, что где-то ступил, но я только учусь)

А чем стандартный класс не угодил, зачем велосипед изобретать?

в стандартный класс можно записывать только эллементы одного типа, или я чего-то не понял)

[Квэнди]

в стандартный класс можно записывать только эллементы одного типа, или я чего-то не понял)

как и в любом нормальном языке - да.
но чем не угодил при этом тип Tobject ?

[goog]

Сообщение от Квэнди

но чем не угодил при этом тип Tobject ?

при чем тут Tobjekt?