Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Unitname anhand Objektreferenz ermitteln

**Hawkeye219**

Funktioniert doch

Delphi-Quellcode:

			{$M+}

TTest = class(TInterfacedObject, ITest)

protected

  function GetSelfPointer:TObject;

end;

{$M-}

Gruß Hawkeye

Hawkeye219 Registriert seit: 18. Feb 2006 Ort: Stolberg 2.227 Beiträge Delphi 2010 Professional	#7 Re: Unitname anhand Objektreferenz ermitteln 26. Apr 2010, 17:51 Funktioniert doch markieren Delphi-Quellcode: {$M+} TTest = class(TInterfacedObject, ITest) protected function GetSelfPointer:TObject; end; {$M-} Gruß Hawkeye
	Zitat