dynamischer Aufruf von Interface-Methoden

[Basilikum]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var
    myObject: TObject;
    myIntf : IInterface1;
begin
  myObject := TKlasseA.Create;

  If Supports(myObject,IInterface1,myIntf) Then
    Button1.Caption := myIntf.getName;
end;

(funktioniert aber nur bei Interfaces mit GUID {aaaaaaaa-bbbb-cccc-dddd-eeeeeeeeeeee})