1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type
  TSichtbar = class

  protected //Attribute
    zPosition : TVektor;

  public //Methoden
    constructor init (pPosition: TVektor); virtual;
    procedure AddiereZuPosition (pVektor: TVektor); virtual;
    procedure setzePosition (pPosition: TVektor); virtual;
    function gibPosition : TVektor; virtual;
    destructor gibFrei; virtual;
    procedure ZeigeDich; virtual; abstract;

   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type
  TTransport = class(TSichtbar)

  protected //Attribute
    zValue : Integer;
    kenntTransporte : TObjectList;

     //Objektbeziehungen:
        // kenntTATransport : TATransport;
        // kenntTATransport () of TATransport;

  public //Methoden
    procedure SetzeValue (pZValue: Integer); virtual;
    procedure zeigeDich; virtual; abstract;
    function GibValue : Integer; virtual;

   end;					

1:
2:
3:
4:

type
  TAlleine = class(TTransport)
    procedure zeigeDich; virtual; abstract;
   end;					

1:
2:
3:
4:
5:
6:

type
  TNadel = class(TAlleine)

  public //Methoden
    procedure zeigeDich; override;
   end;					

1:
2:
3:
4:

type
  TAlleine = class(TTransport)
    procedure zeigeDich; override; abstract;
   end;