Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
18. Aug 2004
Ok, ist tatsächlich so wie ichs mir gedacht hab.
Hier nen Beispiel
{$DEFINE _VARIANTE1_}
type
TBasic = class(TObject)
private
{$IFDEF _VARIANTE1_}
procedure FBerechnung;
{$ELSE}
Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
18. Aug 2004
Bin mir nicht 100% sicher. Angenommen du hast folgende Klasse
TBasic = class(TObject)
private
procedure FberechneIrgendwas;
public
procedure Berechne; //diese Procedure macht nix anderes als "FberechneIrgendwas" auzurufen
wenn die du jetzt von der Klasse TBasic ableitest und nicht mir virtual arbeitest so ruft die Methode Berechne weiterhin die Methode "FBerechneIrgendwas"...