Узнать тип переменной

[MAcK]

не могу узнать как сделать сравнение типа:

var
A: ^MyStruct;
begin
   if a  = MyStruct then
    write('a структура MyStruct');
end;

В делфях есть команда AS.

[Somebody]

Вроде бы никак нельзя, а зачем?

[MAcK]

Делаю список, в котором нужно хранить любую структуру.
Сохраняю структуру в пересенную типа Pointer. Вот и нужно знать что это переменная содержит

[Somebody]

Можно ввести своё поле для типа или использовать object'ы, для них есть typeof, возвращающий указатель на VMT.

[Hacker19_90]

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

не могу узнать как сделать сравнение типа:

var
A: ^MyStruct;
begin
   if a  = MyStruct then
    write('a структура MyStruct');
end;

В делфях есть команда AS.

Ну можно конечно сравнить по размеру хотя это полной гарантии не даёт!!! Но всё таки!!!
помоему есть функция sizeof естественно сравнивать надо обьекты!!!
Увас конечно работать не будет, потому А - это указатель всегда 4 байта и содержит адрес!!! А MyStruct - структура или запись!!!

[Salih]

Вопрос хоть и был поднят давно, но у меня также возникла подобная проблемка. Вобщем по совету Somebody получилось сделать. Код выглядит примерно так:

procedure IsMyType(B:pointer);
var
  //A: ^MyStruct;
  P: ^TObject;
  obj: TObject;
begin
  P:=B;
  Obj:=p^;
  if Obj.ClassNameIs('MyStruct') then 
    write('B структура MyStruct');
end;

В моем случае MyStruct был классом.

[Serge_Bliznykov]

Salih, Вы точно уверены, что Ваш код будет работать в обычном Паскале? (подчёркиваю, не FreePascal, не Delphi, а в обычном "классическом" Паскале (TurboPascal, например). Потому как автор темы напрямую упомянул, что в Delphi есть AS ( я бы сказал, точнее нужен IS )

[Salih]

Действительно, я не обратил на это внимание. Просто удивился причем тут As, и продолжил свои поиски. Делал я в дельфи. А для паскаля я не в курсе есть ли готовые методы для объекта (зависит от среды программирования).
В данном случае, наверно, будет проще добавить дополнительное поле в структуру.

[Serge_Bliznykov]

В данном случае, наверно, будет проще добавить дополнительное поле в структуру

ну, да, согласен.