AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Klasse auf Interface testen

Ein Thema von Linor · begonnen am 18. Okt 2010 · letzter Beitrag vom 18. Okt 2010
 
Benutzerbild von Linor
Linor

Registriert seit: 19. Mai 2008
Ort: Holzwickede
60 Beiträge
 
Delphi 2010 Professional
 
#4

AW: Klasse auf Interface testen

  Alt 18. Okt 2010, 16:43
Hallo,

danke für die schnellen Antworten, GetInterfaceEntry funktioniert wunderbar. Habe in der Zwischenzeit noch TInterfacedPersistent gefunden was ich anstelle von TInterfacedObject verwenden kann, kommt mir an anderen Stellen noch mehr zugute, da ich noch andere Stellen habe wo ich testen muss ein Objekt ein bestimmtes Interface unterstützt.

@himitsu: Im Prinzip hast du Recht, und ich verwende das auch so, nur habe ich eine Methode in der Basis-Klasse die von den Vorfahren per inherited aufgerufen wird und Default-Funktionen ausführt, die abgeleiteten Klassen erweitern diese nur. Jetzt müsste ich in jedem Nachfahren, der das Interface implementiert, immer wieder den gleichen Code einfügen...

Delphi-Quellcode:
procedure Vater.DoSomething;
begin
   ActionEins.Enabled := Check...
   ActionZwei.Enabled := Check...
end;

procedure Sohn.DoSomething;
begin
   inherited;

   ActionDrei.Enabled := Check...
   ActionInterface.Enabled := Check...
end;

procedure Tochter.DoSomething;
begin
   inherited;

   ActionVier.Enabled := Check...
end;

procedure Enkel.DoSomething;
begin
   inherited;

   ActionFünf.Enabled := Check...
   ActionInterface.Enabled := Check...
end;
Um das zu umgehen:
Delphi-Quellcode:
procedure Vater.DoSomething;
begin
   ActionEins.Enabled := Check...
   ActionZwei.Enabled := Check...

   if ( Supports(Self, MyInterface) ) then
      ActionInterface.Enabled := Check...
end;
Spart mir viel redundanten Code... Ich bin mir bewusst das man das auch über Klassen lösen könnte, aber ich habe eine bestehende Klassenhierarchie und möchte nur ein paar Objekte um Funktionen erweitern, will aber erkennen ob ich ein gerade ein Objekt vor mir habe das ein bestimmtes Verhalten implementiert. Ich arbeite viel mit:

Delphi-Quellcode:
procedure DoSomething(Vater: TVater);
var
   auto; IHatEinAuto;
begin
   if ( Supports(Vater, IHatEinAuto, auto) ) then
      auto.FahreLos;
end;

procedure UndLos;
var
   sohn: TSohn; tochter: TTochter; enkel: TEnkel;
begin
   sohn := TSohn.Create;
   DoSomething(sohn);
   sohn.DoAnything;

   tochter := TTochter.Create;
   DoSomething(tochter);
   tochter.DoAnything;

   enkel := TEnkel.Create;
   DoSomething(enkel);
   enkel.DoAnything;

end;
Gruß, Kai
Imabas - see you on http://www.pixandmore.de

Geändert von Linor (18. Okt 2010 um 18:16 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz