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...