Vererbungs-Problem: class const überschreiben

**s.h.a.r.k**

So, gleich nochmal eine Frage

Und zwar habe ich im Moment folgende Typen, um Daten aus der Datenbank in meiner Anwendung zu halten. Diese haben den Sinn, dass ich auch den Variant-Wert Null darstellen kann, ohne dafür einen Wert aus String/Integer/Float dafür verbraten zu müssen.

zusammenfalten · markieren

Delphi-Quellcode:

			VBasic = class(TObject)

private

  FValue : Variant;

  procedure SetValue(const AVar: Variant);

public

  const VarType = varUnknown;

  property Value : Variant read FValue write SetValue;

  constructor Create(); reintroduce;

  function IsNull(): Boolean;

end;

VInteger = class(VBasic)

  const VarType = varInteger;

end;

VString = class(VBasic)

  const VarType = varString;

end;

VFloat = class(VBasic)

  const VarType = varDouble;

end;

Hier noch die SetValue-Methode von VBasic:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure VBasic.SetValue(const AVar: Variant);

var

  b : Boolean;

begin

  if (VarIsClear(AVar) or VarIsNull(AVar)) then

    FValue := NULL

  else begin

    b := False;

    if (VarType = varUnknown) then // <-- scheinbar immer True

      b := True

    else if (VarType = varString) then

      b := (VarIsStr(AVar)) and (not VarSameValue(FValue, AVar))

    else if (VarType = varInteger) then

      b := (VarIsOrdinal(AVar)) and (not VarSameValue(FValue, AVar))

    else if (VarType = varDouble) then

      b := (VarIsNumeric(AVar)) and (not VarSameValue(FValue, AVar));

    if b then

      FValue := AVar

    else

      raise Exception.Create('Wert hat ungültiges Format.');

  end;

end;

An dieser Stelle merkt der Compiler an, dass beim zweiten If (9. Zeile) immer True heraus kommt und b somit immer True ist. Das Problem wird sein, dass die Konstante VarType, von z.B. VString, nicht die von VBasic überschreibt. Geht sowas eigentlich überhaupt? Oder gibt es evtl. einen anderen Ausweg?

Vererbungs-Problem: class const überschreiben

Vererbungs-Problem: class const überschreiben

Forumregeln