Design Problem (Shapes)

[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.