Das Ganze kannste auch noch ein wenig eleganter lösen, da in TuWasBesonderes immer
das Gleiche gemacht wird:
Delphi-Quellcode:
...
TVisitableBase = class
procedure AcceptVisitor(const v: IVisitor);
end;
TClass1 = class(TVisitableBase)
// viele Methoden...
end;
TClass2 = class(TVisitableBase)
// viele Methoden...
end;
Es ging ja auch darum, dass die Klassen keine gemeinsame Basis haben müssen.