Klasse auf Interface testen

**Linor**

Hallo Zusammen,

auch wenn diese Frage des öfteren kam, eine konkrete Lösung habe ich bis jetzt nicht gefunden, auch ein Workaround wäre schon nett

Also folgendes:

zusammenfalten · markieren

Delphi-Quellcode:

			TBasis = class

   procedure DoSomething;

end;

TNachfahre = class(TBasis, IMyInterface)

   procedure DoNachfahre;

end;

procedure TBasis.DoSomething;

begin

   if ( Supports(Self, IMyInterface) ) then

      DoSomethingElse;

end;

procedure TNachfahre. DoNachfahre;

begin

   ...

end;

procedure UndLos;

var

   n: TNachfahre;

begin

   n := TNachfahre.Create;

   n.DoSomething;

   n.DoNachfahre;  // Exception!

end;

Ich bin mir bewusst das Supports oben die Klassenreferenz (Self) in ein IMyInterface umwandelt, nur ich möchte an dieser Stelle nur eine Entscheidung treffen wenn das Interface unterstützt wird, die Referenz auf das Interface interessiert mich da nicht die Bohne. Denkbar wäre auch Supports mehrere male aufzurufen, was aber nicht geht, da Self nach dem verlassen von DoSomething zerstört ist und beim verlassen auch das Interface gekilled wird.

Wie ich oben schon schrieb, suche ich kein warum sondern ein wie!?

Also das sowas möglich wäre:

markieren

Delphi-Quellcode:

			procedure TBasis.DoSomething;

begin

   if ( Supports(Self, IMyInterface) ) then

      DoSomethingElse;

   if ( Supports(Self, IMyOtherInterface) ) then

      DoSomethingDifferent;

end;

Im Grunde analog zu:

markieren

Delphi-Quellcode:

			procedure TBasis.DoSomething;

begin

   if ( Self is TMyClass ) then

      DoSomethingElse;

   if ( Self is TMyOtherClass ) then

      DoSomethingDifferent;

end;

Klasse auf Interface testen

Klasse auf Interface testen

Forumregeln