Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
Du bräuchtest dann ein Verweis auf das aktuelle Objekt
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
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;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
TMotorrad = class( TFahrzeug);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
type
TFahrzeug = class
function GibFPositiony: Integer;
end;
TAuto = class( TFahrzeug);
end;
...
var
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
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
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
25. Aug 2008
Dann implementiere die Methosde in TFahrzeug