Nutzung von Funktionen in verschiedenen Instanzen/Unterklass

[mkinzler]

Wie gesagt, garnicht. Da eine IS-A Beziehung zwischen Unterklasse und Superklasse besteht, besitzen abgeleitete Klasse automatisch die Methoden/Attribute der Superklasse, wenn du das durch abweichende Sichtbarkeit nicht verhinderst

[Ideq]

ja aber wie beziehe ich mich auf diese methoden für die verschiedenen unterklassen?

[mkinzler]

Delphi-Quellcode:

type
  TFahrzeug = class
    function GibFPositiony: Integer;
  end;

  TAuto = class( TFahrzeug);
  end;

...
var
  meinAuto: TAuto;
  y: Integer;
..
  meinAuto := TAuto.Create;
  y := meinAuto.GibFPositiony;

[Ideq]

kann ich den befehl so verändern das er universal auch für meinmotorrad benutzbar ist zb. mit einer variablen?

[mkinzler]

Delphi-Quellcode:

  TMotorrad = class( TFahrzeug);
  end;

[Ideq]

ich glaube du versteht mein problem nicht

[mkinzler]

Ja, das glaube ich auch

[Ideq]

ok ein versuch noch hast du dir dir unit die ich am anfang reingestellt hab mal angeguckt da taucht ja immer wieder meinAuto. und dann halt die jeweilige funktion auf. wenn ich jetzt aber eine instanz meinMotorrad erstelle muss da ja überall MeinMotorrad stehen und nicht MeinAuto und dafür suche ich eine Lösung um nicht alles dreimal zu schreiben.

gruß ideq

[mkinzler]

Delphi-Quellcode:

procedure TForm1.Einstellungen( fahrzeug: TFahrzeug);
begin
    BildFahrzeug.Top:=fahrzeug.GibFPositiony;
    BildFahrzeug.Left:=fahrzeug.GibFPositionx;
    BildFahrzeug.Picture.LoadFromFile(fahrzeug.GibFModell+'\'+fahrzeug.GibFModell+'_klein_'+IntToStr(fahrzeug.GibFRotation)+'.bmp');
    TiBewegung.Enabled:=true;
    TiBild.Enabled:=true;
    TiTankinhalt.Enabled:=true;
    TiBeschleunigen.Interval:=100-round(fahrzeug.GibFBeschleunigung*20);
     meineStrecke:=TStrecke.Create;
end;

[Ideq]

und diese procedure rufe ich dann auf mit Einstellungen(meinAuto), Einstellungen(meinFahrrad) oder Einstellungen(meinMotorrad)?