Alternative zu Typecast => IInterface?

[Der schöne Günther]

Zitat von bytecook:

Bei einem Typecast gegen TSVFXVisualCommand wird verständlicherweise nicht die vom eigentlichen Objekt überschriebene Override Routine aufgerufen.

Also entweder bin ich noch nicht lange genug wach, oder...

Ich verstehe nicht weshalb die ganzen Typecasts sein müssen. Du hast doch mal eine Oberklasse, das ist doch schon mal ordentlich was wert. Du kannst auf Unterklassen lustig typecasten, aber in der Implementierung wird immer die "unterste" aufgerufen:

Delphi-Quellcode:

program Project11;

{$APPTYPE CONSOLE}
{$R *.res}

type
   TBird = class
      public procedure makeNoise(); virtual;
   end;

   TDuck = class(TBird)
      public procedure makeNoise(); override;
   end;

   TCliffracer = class(TBird)
        public procedure makeNoise(); override;
    end;

procedure TCliffracer.makeNoise();
begin
   WriteLn('Skreeeeee');
end;

procedure TDuck.makeNoise;
begin
   WriteLn('Quack!');
end;

procedure TBird.makeNoise();
begin
   WriteLn( '(generic bird sounds)' );
end;

var
   bird: TBird;
begin
   bird := TDuck.Create();

   bird.makeNoise(); // Quack!
   TBird(bird).makeNoise(); // Quack!
   TDuck(bird).makeNoise(); // Quack!

   if (bird is TCliffracer) then
      TCliffracer(bird).makeNoise()
   else
      WriteLn('It''s not a cliffracer');

   readln;
end.

Was möchtest du jetzt mit Interfaces erreichen? Ich glaube mir müsste man das jetzt noch mal in einfachen Worten (am besten mit vielen Vokalen) erklären...

[bytecook]

Zitat von Der schöne Günther:

Zitat von bytecook:

Bei einem Typecast gegen TSVFXVisualCommand wird verständlicherweise nicht die vom eigentlichen Objekt überschriebene Override Routine aufgerufen.

Also entweder bin ich noch nicht lange genug wach, oder...

Ich verstehe nicht weshalb die ganzen Typecasts sein müssen. Du hast doch mal eine Oberklasse, das ist doch schon mal ordentlich was wert. Du kannst auf Unterklassen lustig typecasten, aber in der Implementierung wird immer die "unterste" aufgerufen:

Delphi-Quellcode:

program Project11;

{$APPTYPE CONSOLE}
{$R *.res}

type
   TBird = class
      public procedure makeNoise(); virtual;
   end;

   TDuck = class(TBird)
      public procedure makeNoise(); override;
   end;

   TCliffracer = class(TBird)
        public procedure makeNoise(); override;
    end;

procedure TCliffracer.makeNoise();
begin
   WriteLn('Skreeeeee');
end;

procedure TDuck.makeNoise;
begin
   WriteLn('Quack!');
end;

procedure TBird.makeNoise();
begin
   WriteLn( '(generic bird sounds)' );
end;

var
   bird: TBird;
begin
   bird := TDuck.Create();

   bird.makeNoise(); // Quack!
   TBird(bird).makeNoise(); // Quack!
   TDuck(bird).makeNoise(); // Quack!

   if (bird is TCliffracer) then
      TCliffracer(bird).makeNoise()
   else
      WriteLn('It''s not a cliffracer');

   readln;
end.

Was möchtest du jetzt mit Interfaces erreichen? Ich glaube mir müsste man das jetzt noch mal in einfachen Worten (am besten mit vielen Vokalen) erklären...

Weil ich die Kommandos in einer Objektliste (TSVFXCommands = Class(TObjectList)) halte, die als Items Objekte vom Typ TSVFXCustomCmd hält.
Je nach Objekttyp gibt es in der abgeleiteten Basisklasse unterschiedliche Befehle, die ausgeführt werden sollen.

Alle Ableitungen von TSVFXVisualCmd haben beispielsweise die Routine Process, alle Ableitungen von TSVFXAnimateCmd haben die Routine Animate
zur Verfügung. Je nach Parentklasse soll der Aufruf unterschieden werden. Wenn ich typengecasted TSVFXVisualCmd().Process aufrufe, wird jedoch explizit die Routine dieser Klasse aufgerufen, und nicht vom Nachfolger als überschrieben definierte Routine, weil ich ja nicht beispielsweise gegen TSVFXMoveTo caste. (Basisroutine ist als Virtual deklariert, Nachfolger überschreibt mittels Override).

Mit IInterface sollte ich nun das Problem eleganter umgehen können...

[Lemmy]

Zitat von bytecook:

Mit IInterface sollte ich nun das Problem eleganter umgehen können...

nur zur Vorsicht gefragt: wie? IMHO hast Du einen Fehler in der Vererbungshierarchie und um den zu lösen brauchst Du nicht zwingend Interfaces.

Darüber hinaus würde ich dir empfehlen das Command-Pattern anzuschauen - bzw. wenn dir das zu abstrakt ist die TAction-Implementierung in Delphi. Wenn ich das richtig verstanden habe, willst / brauchst Du genau so was...