[sof]

попал в непонятное:

Имеется два класса: TClass_01, TClass_02.
TClass_01 управляет TClass_02 и возвращает ссылки на TClass_02 в основную программу. Возникла необходимость получаемые ссылки на TClass_02 помещать в стекоподобную структуру в виде указателей.
Однако метод класса:
FUNCTION TClass_01.Add: TClass_02;
просто так в указатель не переделать, т.е. в основной программе не получилось выполнить ADDR(cls01.add).
Пришлось прибегнуть к следующему:
Type XZ = ^TClass_02;
VAR PTemp: POINTER;
VAR clsTemp: TClass_02;

PTemp := XZ(cls01.add); //PTemp = $9876543 - какой-то адрес, что подтверждается в Watch list'е

Собственно вопрос:
clsTemp := PTemp; //прекрасно присваивается, компилируется и работает и содержит уже не указатель а сам класс - разве так может быть?
т.е. clsTemp.метод_01 - отрабатывает на ура
Любые попытки разыменования PTemp приводят к ошибке

[cotseec]

переменная типа класс и есть указатель, т.е.

Код:

Sender:TObject

есть указатель на область памяти где описан класс TObject, для

Возникла необходимость получаемые ссылки на TClass_02 помещать в стекоподобную структуру в виде указателей

необходимо сделать приведение типов из классового типа в тип Pointer (конечно если вам нужен именно тип Pointer), т.е.

Код:

 var
   tmp:TClass_02;
...
   Pointer(tmp);
...

или помещать напрямую (без приведения типов)

[Pyro]

с объектами можно забыть об указателях вообще
вместо Pointer - TObject; проверка и приведение is, as

[cotseec]

с объектами можно забыть об указателях вообще
вместо Pointer - TObject; проверка и приведение is, as

это верно, но тут немного другой вопрос

Возникла необходимость получаемые ссылки на TClass_02 помещать в стекоподобную структуру в виде указателей

пример кода

Код:

var
  tmp:TForm2;
begin
  List:=TList.Create;
  List.Add(Pointer(Form2));// работает
  List.Add((Form2));// работает
  tmp:=(TObject(List.Items[0]) as TForm2);// работает, т.к. приведен 
                                             // тип Pointer к TObject
                                             // (предок всех классов)
  tmp:=TForm2(List.Items[0]);// работает, т.к. приведен тип Pointer
                                        // к TForm2
  //tmp:=(List.Items[0] as TForm2);// не работает
  if (TObject(List.Items[0]) is TForm2) then
        ShowMessage ('It''s Work');// необходимо приведение типа Pointer к TObject
  List.Free;
end;