Forum: Object-Pascal / Delphi-Language
Delphi
by guinnes,
4. Feb 2011
Nicht schön tut aber :
procedure Check(Proc: TProc);
begin
if Integer(TMethod(Proc).Data) > Integer(Application) then
ShowMessage('Object')
else
ShowMessage('Class Proc');
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by guinnes,
4. Feb 2011
Ich habs nicht probiert, aber da in Data ein Zeiger auf die Instanz steht und es die bei einer Class Procedure aber nicht gibt, sollte da konsequenterweise NIL drin stehen
Dafür brauchst du ja auch keine Instanz
Forum: Object-Pascal / Delphi-Language
Delphi
by guinnes,
4. Feb 2011
Hast du mal gekuckt, ob bei einer Class-Procedure Data nicht einfach nur NIL ist ?