AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Vererbungs-Problem: class const überschreiben
Thema durchsuchen
Ansicht
Themen-Optionen

Vererbungs-Problem: class const überschreiben

Ein Thema von s.h.a.r.k · begonnen am 24. Mär 2010 · letzter Beitrag vom 24. Mär 2010
 
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

Vererbungs-Problem: class const überschreiben

  Alt 24. Mär 2010, 14:23
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.
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:
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?
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz