Vererbung von Methoden verhindern

[SirThornberry]

und wie willst du dann sowas abfangen?

Delphi-Quellcode:

procedure DoAnything(Sprite: TSprite);
begin
  Sprite.Load(1);
  Sprite.Load();
end;

procedure TForm2.cmd1Click(Sender: TObject); 
var 
   sprite : TSprite2; 
begin 
      sprite := TSprite2.Create; 
      DoAnything(sprite);
end;

Genau so läuft es ja auch mit den Componenten die zur Designzeit aufs Formular gepackt werden. Sie sind alle von TComponent abgeleitet und werden alle als TComponent behandelt.

[Jelly]

Ich hab ja auch nicht gesagt, dass das ein schönes Design ist, das ich vorgeschlagen hab. Damit wir uns da nicht missverstehen.

Aber auch in deiner DoAnything Methode wird dir die Exception um die Ohren fliegen, da zur Laufzeit der Classenname geprüft wird. Ich sag... Einen Aufruf verhindern kann man nicht, aber man kann entsprechend darauf reagieren.

[SirThornberry]

ich hab es getestet und es fliegt keine exception sondern die richtige Methode wird auch aufgerufen.
Ich hatte mich eher gewundert das die Methode nicht direkt aufrufbar ist denn es wird ja nirgends überschrieben etc.

[Jelly]

Zitat von SirThornberry:

ich hab es getestet und es fliegt keine exception sondern die richtige Methode wird auch aufgerufen.

Ich hab die Exception gekriegt, habs gestern extra getestet. Dumm jetzt nur, dass ich das Beispielprojekt nicht gespeichert habe... Ich kanns mir heut abend eventuell nochmals erstellen...

[SirThornberry]

ich habs mit Delphi7 Enterprice getestet.