Vererbungs-Problem: class const überschreiben

[himitsu]

Klasseninterne Konstanten, Typen oder Variablen werden nicht überschrieben und demnach ist in VBasic das VarType immer varUnknown, da es von der Variable und nicht von der enthaltenen Klasse abhängt.

Da es nun eine unveränderliche Konstante ist, bemerkt Delphi daß (VarType = varUnknown) immer TRUE und
(VarType = varString) immer FALSE ergibt.

Einzige Lösung:
VarType muß als ReadOnly-Property oder als Funktion ausgelegt sein.
Die zugehörige Funktion als Virtual (oder Virtual Abstact) und dann in jeder Ableitung entsprechend überschrieben und mit passendem Result/Funktionsergebnis versehen werden.