Einzelnen Beitrag anzeigen

Benutzerbild von MaBuSE
MaBuSE

Registriert seit: 23. Sep 2002
Ort: Frankfurt am Main (in der Nähe)
1.840 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

Re: Frage: Abstrakte Klasse und Implementierung [OOP]

  Alt 8. Aug 2005, 13:48
Zitat von Touchdown:
Noch ein Beispiel
...
Darüber braucht man sich aber jetzt keine Gedanken machen, weil BMW und Opel eben Autos sind.
TAuto(OBJ).Fahre; Autos ist ja auch etwas was so nie hergestellt wird, es ist immer eine bestimmt Marke die produziert wird.
In diesem Beispiel würde ich aber Fahre im Auto implementieren, da sich die Wagen alle "gleich" fahren.

Ein etwas besseres Beispiel wäre als Basisklasse "TFahrzeug" und davon abgeleitet "TFahrad", "TAuto", "TLKW" und "TMotorad"

mit
Delphi-Quellcode:
if obj is TFahrzeug then
begin
  (obj as TFahrzeug).Fahre;
end;
kann ich dann jedes Fahrzeug "sicher" fahren.

Und ein Fahrad färt sich anders als ein LKW

[edit: Fettschrift]
(°¿°) MaBuSE - proud to be a DP member
(°¿°) MaBuSE - proud to be a "Rüsselmops" ;-)
  Mit Zitat antworten Zitat