Классы и передача Self

[luckyleo769]

Здравствуйте ув. форумчане!

Вот существует такой код:

 Type
    TObj=class
       ...
    End;

 PObj=^TObj;

 Type
    TFormsElements=class
      Objects:array of PObj;
      Procedure RegisterMySelf(Obj:PObj);
    End;

   PFormsElements=^TFormsElements;


 Type
     TOtherObj=class(TObj)
       ...
       Constructor Create(Elem: PFormsElements);
     End;

...


Procedure TFormsElements.RegisterMySelf(Obj: PObj);
Begin
  SetLength(Objects,Length(Objects)+1);
  Objects[Length(Objects)-1]:=Obj;
End;



Constructor TOtherObj.Create(Elem: PFormsElements);
Begin
   ...
   Elem.RegisterMySelf(@Self);
End;

  ...
  var
     FE:TFormsElements;
     Elem:TOtherObj;
  Begin
      FE:=TFormsElements.Create;
      Elem:=TOtherObj.Create(@FE);
      ...
  End;
  ...

Каким-то образом Self в конструкторе не передается методу...
При дальнейшем обращении к

Elem.Object[i].#######

вылетает ошибка "Access violation at address..."

Но если убрать вызов метода из конструктора и вместо этого сделать вот так:

  ...
  var
     FE:TFormsElements;
     Elem:TOtherObj;
  Begin
      FE:=TFormsElements.Create;
      Elem:=TOtherObj.Create;
      FE.RegisterMySelf(@Elem);
      ...
  End;
  ...

То все нормально: обращение к FE.Objects[i] проходит нормально.

Почему? Что можно с этим сделать

[VVkSoft]

ИМХО Кажется что ви хотите передать указатель на обєкт которой ищо в процессе сотворения.
Возможно кто меня исправить

[luckyleo769]

Попробовал из другого метода сделать(после создания объекта) - то же самое....

[Vapaamies]

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

PObj=^TObj;

Что это за бред? Выпилить к чертовой матери! TObj и так уже указатель, раз объявляяется ключевым словом class.

[phomm]

Выкинуть все замуты с указателями и делать просто передачу объектов, а не указателей на них. Подозреваю, что адрес неявной переменной Self после выхода из метода не является валидным, а вы его наружу передали и сохранили. А так чисто по логике - всё должно быть ок, и селф прекрасно из конструктора можно использовать, но не по указателям.

[luckyleo769]

Исправил - работает. Но ведь получается два одинаковых объекта (один в Elem, другой в FE.Objects[X]), вместо объекта и указателя на него или я чего-то недопонимаю?

[Аватар]

Объект один, а указателей на него несколько

[luckyleo769]

Все перепроверил. И правда! Спасибо! Тема закрыта=)