Ok. Tanx. Von Factorys hab ich keinen Plan? Anonyme Methoden und Generics sind halt auch etwas ungünstig bei D2007.
Wenn das TShape von Delphi nicht 6 sondern 60 Typen hätte, wie wäre das denn programmiert worden, wenn man eine ellenlange Paint hätte vermeiden wollen und auch nicht 60 verschiedene Klassen hätte haben wollen?
Delphi-Quellcode:
procedure TShape.Paint;
begin
case FTyp of
Typ1:
Typ2:
Typ3:
Typ4:
Typ5:
..
TypN:
end;
end;