Nutzung von Funktionen in verschiedenen Instanzen/Unterklass

[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;