2 Klassen und von jeder Klassen auf die Methoden der anderen

[Waldteufel]

Hi.

Warum musst du denn von TFahrzeug aus auf Methoden von TAuto zugreifen? ZuendkerzeWechseln() wird es ja wohl nur in TAuto geben. Und Losfahren() muss dann eben als virtual deklariert werden.

Zum Beispiel so:

Delphi-Quellcode:

type
  TFahrzeug = class
    procedure Losfahren(); virtual;
  end;

  TAuto = class(TFahrzeug)
    procedure Losfahren(); virtual;
  end;

procedure TFahrzeug.Losfaren();
begin
  // los geht's
end;

procedure TAuto.Losfahren();
begin
  if TankVoll then
    inherited Losfahren
  else MotorStotternLassen;
end;