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

unit mTKugel; (Oberklasse)
       private
            ... und so weiter
       public
           constructor init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit : double);  virtual;
           procedure loescheDich ( ); virtual;
           ... und so weiter                    

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

unit mTSpurKugel; (Unterklasse)
interface
  uses
   mSuM,mTTisch,mTKugel;
type
   TSpurKugel = CLASS (TKugel)
   public
     hatBuntstift : Buntstift;
     constructor init (pPosX, pPosY, pRadius, pRichtung : double); override;
     procedure loescheDich ( ); override;
   end;
..und so weiter                    

1:

 procedure constructor(...);virtual;abstract;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

 unit mTKugel;
interface
  uses
    mSuM,
    mTTisch;
   type
       TKugel = CLASS

       private
           procedure setzeRichtung (pRichtung : double);
           function hPosition ( ): double;
           function vPosition ( ): double;
           function gibRichtung ( ): double;
       public
           constructor init (pPosX, pPosY, pRadius, pRichtung : double);  virtual;
           procedure zeichneDich ( ); virtual;
           procedure loescheDich ( ); virtual;
           procedure bewegeDich ( );
           procedure merke (pTisch : TTisch);
           destructor gibFrei ( );
       protected
           hatBuntstift : Buntstift;
           zPosX : double;
           zPosY : double;
           zRadius : double;
           zRichtung : double;
           kenntTisch : TTisch;
end;

implementation
  constructor TKugel.init (pPosX, pPosY, pRadius, pRichtung : double);
    begin
      hatBuntstift := Buntstift.init;
      zPosX := pPosX;
      zPosY := pPosY;
      zRadius := pRadius;
      zRichtung := pRichtung;
      hatBuntstift.bewegeBis (zPosX, zPosY);
      hatBuntstift.dreheBis (pRichtung);
    end;

  procedure TKugel.merke (pTisch : TTisch);
    begin
      kenntTisch := pTisch;
    end;

  procedure TKugel.zeichneDich ( );
    begin
      hatBuntstift.zeichneKreis (zRadius);
    end;

  procedure TKugel.loescheDich ( );
    begin
      hatBuntstift.radiere ( );
      self.zeichneDich ( );
      hatBuntstift.normal ( );
    end;

  procedure TKugel.bewegeDich ( );
    begin
      self.loescheDich ( );
      hatBuntstift.bewegeUm (0.05);
      if (self.hPosition+zRadius >= kenntTisch.anfangsXP+kenntTisch.tischBreite-4) or (self.hPosition-zRadius <= kenntTisch.anfangsXP+4) then
        begin
          self.setzeRichtung (180-self.gibRichtung);
      end;
      if (self.vPosition-zRadius <= kenntTisch.anfangsYP+4) or (self.vPosition+zRadius >= kenntTisch.anfangsYP+kenntTisch.tischHoehe-4) then
        begin
          self.setzeRichtung (360-self.gibRichtung);
      end;
      self.zeichneDich ( );
    end;

  procedure TKugel.setzeRichtung (pRichtung : double);
    begin
      zRichtung := pRichtung;
      hatBuntstift.dreheBis (pRichtung);
    end;

  function TKugel.gibRichtung ( ): double;
    begin
      gibRichtung := zRichtung;
    end;

  function TKugel.hPosition ( ): double;
    begin
      hPosition := hatBuntstift.hPosition ( );
    end;

  function TKugel.vPosition ( ): double;
    begin
      vPosition := hatBuntstift.vPosition ( );
    end;

  destructor TKugel.gibFrei ( );
    begin
      hatBuntstift.gibFrei ( );
    end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit mTSpurKugel;
interface
  uses
    mSuM,
    mTTisch,
    mTKugel;
type
   TSpurKugel = CLASS (TKugel)
   public
     hatBuntstift : Buntstift;
     constructor init (pPosX, pPosY, pRadius, pRichtung : double); override;
     procedure loescheDich ( ); override;
   end;

implementation
constructor TSpurKugel.init (pPosX, pPosY, pRadius, pRichtung : double);
begin
  inherited init (pPosX, pPosY, pRadius, pRichtung);
  hatBuntstift.runter;
end;

procedure TSpurKugel.loescheDich;
begin
  hatBuntstift.wechsle;
  self.zeichneDich;
end;
end.                    

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

unit mTDoppelRingKugel;

interface
  uses
    mSuM, mTTisch, mTKugel;

type
  TDoppelRingKugel = CLASS (TKugel)
  public
    procedure zeichneDich ( ); override;
end;

implementation
procedure TDoppelRingKugel.zeichneDich ( );
begin
  inherited zeichneDich ( );
  hatBuntstift.zeichneKreis (10);
end;
end.                    

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

uses
  mSuM,
  mTTisch in 'mTTisch.pas',
  mTKugel in 'mTKugel.pas',
  mTSpurKugel in 'mTSpurKugel.pas',
  mTDoppelRingKugel in 'mTDoppelRingKugel.pas';                    

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

uses
  mSuM,
  mTTisch in '..\mTTisch.pas',
  mTKugel in '..\mTKugel.pas',
  mTSpurKugel in '..\mTSpurKugel.pas',
  mTDoppelRingKugel in '..\mTDoppelRingKugel.pas';