Design Problem (Shapes)

[Bjoerk]

Von der Struktur her so:

Delphi-Quellcode:

type
  TBaseObject = class
  protected
    vars;
    getter, setter;  virtual;
  public
    methods; virtual;
    methods; virtual; abstract;
    properties;
  end;


  TObject1..N = class(TBaseObject)
  private
    more vars;
  protected
    more vars;
    more getter, setter;
    getter, setter;  override;
  public
    methods;
    methods; override;
    properties;
  end;