Eine weitere Möglichkeit wäre sowas wie:
Delphi-Quellcode:
TBase = class
end;
TVarBase = class(TBase)
VarState: Integer;
end;
Dann können deine Unterklassen entweder von der Basis mit- oder ohne VarState ableiten.
Deine neue Unterklasse würde dann eben von TBase ableiten, der Rest von TVarBase.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."