Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Interfaces vergleichen...

  Alt 27. Mär 2017, 16:30
Meinst Du "Supports"?
(Ich glaube es nicht wirklich, aber die Fragestellung klingt ja eindeutig...)

Delphi-Quellcode:
Function DoBar(Const AFace : IInterface;Const AValue : String);
var
  lFoo1: IFoo1;
  lFoo2: IFoo2;
begin
  if Supports(AFace, IFoo1, lFoo1) then
    lFoo1.Bar(AValue);
  if Supports(AFace, IFoo2, lFoo2) then
    lFoo2.Bar(AValue);
end;
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat