Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Design Problem (Shapes)

  Alt 15. Apr 2014, 15:55
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;
  Mit Zitat antworten Zitat