Design Problem (Shapes)

[Bjoerk]

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;

[DeddyH]

Delphi-Quellcode:

procedure TShape.Paint;
begin
  case FTyp of
    Typ1:
      PaintTyp1;
    Typ2:
      PaintTyp2;
    Typ3:
      PaintTyp3;
    Typ4:
      PaintTyp4;
    Typ5:
      PaintTyp5;
    ..

    TypN:
  end;
end; 

procedure TShape.PaintTyp1;
begin
  ...
end;

procedure TShape.PaintTyp2;
begin
  ...
end;

//usw. usf.

[Bjoerk]

Jenau.

[Sir Rufo]

Wenn du das flexibel erweitern möchtest, dann nimm eine Shape-Klasse und eine ShapeStrategy-Klasse.
Hier mal skizziert, wie das geht:

Delphi-Quellcode:

type
  TShapeStrategy = class abstract
  protected
    procedure Paint( ACanvas : TCanvas ); virtual; abstract;
  end;

  TShapeStrategyClass = class of TShapeStrategy;

  TShape = class( TGraphicControl )
  private
    FStrategyName : string;
    FStrategy : TShapeStrategy;
    procedure SetStrategyName( const Value : string );
  protected
    procedure Paint; override;
  public
    class procedure RegisterStrategy( const AName : string; AStrategy : TShapeStrategyClass );
  published
    property StrategyName : string read FStrategyName write SetStrategyName;
  end;

procedure TShape.Paint;
begin
  if Assigned( FStrategy ) then
    FStrategy.Paint( Canvas );
end;

[Dejan Vu]

Zitat von Bjoerk:

Ok. Tanx. Von Factorys hab ich keinen Plan? Anonyme Methoden und Generics sind halt auch etwas ungünstig bei D2007.

Da sind keine Generics oder anonyme Methoden im Spiel, das ist richtig billig und schnell gebaut. Und Factories gibts im Wiki für lau zum anschauen.

Zitat von Bjoerk:

Delphi-Quellcode:

procedure TShape.Paint;
begin
  case FTyp of
    Typ1:

    Typ2:

    Typ3:
...

Das ist -mit Verlaub- nicht weitsichtig. Es verstößt gegen das OCP und ist auch so nicht sonderlich flexibel, denn jedes Shape hat ja u.U. individuelle Parameter oder unterscheidet sich im Verhalten (Stichwort Collisiondetection). Du legst dich bei diesem Pattern sofort darauf fest, das sich die Shapes nur im Aussehen unterscheiden.

Ring dich dazu durch, individuelle Klassen zu erstellen. Es ist mehr Tipparbeit, aber im Endeffekt machst Du das nur 1x, während Du bei der 'Case'-Variante (Non OOP) eh irgendwann refaktorisieren musst, weil das Design Quark ist.

Die Strategy-Idee von Sir Rufo löst das Paint-Case-Problem auf sehr elegante Weise und sollte dann verwendet werden, wenn in einer Klasse eine bestimmte Funktion flexibel änderbar sein sollte. Bezüglich der eventuell unterschiedlichen Eigenschaften (Höhe/Breite vs. Radius vs. Elipsenradien vs. äh... Schuhgröße) wirst Du mit dem Pattern dann nicht weit kommen.

[Bjoerk]

Ok. Dann sag ich mal danke für die Antworten. Class of schau ich mir demnächst mal genauer an.