Interface, Einsteigerproblem?

[neolithos]

Warum so umständlich???

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var aClass: TBaseClass; 
    aInterface1: ITest1; 
    aInterface2: ITest2; 
begin 
  aClass := TTestClass.Create; 

  if aClass is ITest2 then // <-- hier dahinter steht ein QueryInterface
     begin
       aInterface2 := aClass as ITest2; 
       aInterface2.Test2; 
     end;
  if aClass is ITest1 then 
     begin
       aInterface1 := aClass as ITest1;
       aInterface1.Test1;
      end;
end;

Übrignes wird das vom Compiler in was ähnliches umgesetzt wie du geschrieben hast.