Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Ultimator**

Evtl mit

Delphi-Quellcode:

			if (PtrDings^ is TObject) then

  ShowMessage('OBJEKT!') 

else

if (PrtDings^ is IInterface) then 

  ShowMessage('IINTERFACE!')

else

  ShowMessage('WAS ANDERES!');

Ultimator Registriert seit: 17. Feb 2004 Ort: Coburg 1.860 Beiträge FreePascal / Lazarus	#2 Re: Ist in einem Pointer ein TObject 13. Okt 2005, 16:30 Evtl mit markieren Delphi-Quellcode: if (PtrDings^ is TObject) then ShowMessage('OBJEKT!') else if (PrtDings^ is IInterface) then ShowMessage('IINTERFACE!') else ShowMessage('WAS ANDERES!'); Julian J. Pracht
	Zitat

Einzelnen Beitrag anzeigen

Re: Ist in einem Pointer ein TObject