Ist in einem Pointer ein TObject

[xaromz]

Hallo,

folgendes Problem: Ich hab einen Pointer. Da kann ein TObject drin sein, oder ein IInterface.
Wie kann ich herausfinden, was von den beiden ich grade vor mir habe?

Gruß
xaromz

[Ultimator]

Evtl mit

Delphi-Quellcode:

if (PtrDings^ is TObject) then
  ShowMessage('OBJEKT!') 
else
if (PrtDings^ is IInterface) then 
  ShowMessage('IINTERFACE!')
else
  ShowMessage('WAS ANDERES!');

[sniper_w]

Delphi-Quellcode:

if (PtrDings^ is TObject) then
  ShowMessage('OBJEKT!')

sollte

Delphi-Quellcode:

if (PtrDings is TObject) then
  ShowMessage('OBJEKT!')

[Chewie]

So funktioniert das ganze eh nicht, in beiden Fällen würde angezeigt werden, dass es sich um ein Objekt handelt. Der Grund:
Jedes Interface, das einem begegnet, ist von einem Objekt implementiert worden. Und dieses ist wiederum vom Typ TObject.
Also wenn schon, dann zuerst nach dem Interface fragen.

[Oxmyx]

Das ganze funktioniert prinzipiell nicht, wenn es sich um einen untypisierten Zeiger handelt. Denn auf einen solchen ist der is-Operator natürlich nicht anwendbar.

[Ultimator]

Ja, stimmt, sorry :oops:

[Dax]

Wie stehts denn mit

Delphi-Quellcode:

if TObject(PtrDings) is TObject then..

oder

Delphi-Quellcode:

if TObject(PtrDings) is IInterface then..

? Habs nicht getestet ;)

[xaromz]

Hallo,

Zitat:

Delphi-Quellcode:

if TObject(PtrDings) is IInterface then..

Das hatte ich auch gedacht, aber Delphi sagt "Operator auf diesen Operandentyp nicht anwendbar".

Gruß
xaromz

[Ultimator]

Delphi-Quellcode:

if TObject(PtrDings) is TObject then
 ShowMessage('Object');

Das klappt.

Das mit IInterface klappt leider nicht :?
Aber wenn wir den Pointer zu TObject casten, dass ergibt eine Prüfung auf TObject natürlich true ;)

[Christian Seehase]

Moin Zusammen,

Zitat:

Zitat von Ultimator

Delphi-Quellcode:

if TObject(PtrDings) is TObject then
 ShowMessage('Object');

Das klappt.

Das mit IInterface klappt leider nicht :?
Aber wenn wir den Pointer zu TObject casten, dass ergibt eine Prüfung auf TObject natürlich true ;)

oder, um es etwas deutlicher zu machen:

Durch TObject(PtrDings) sagt man dem Compiler, dass man sich sicher ist, dass PtrDings vom Typ TObject ist, bzw. dass der Compiler hier nicht den Typ prüfen muss. Ob diese Art Typecast dann auch stimmt liegt in der Verantwortung dessen der es schreibt.