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:

unit uTContainer;

interface

uses uTRing, Graphics;

type TContainer = class(TObject)
     private
       Item : array [1..5] of TRing;   // Instanzen(Objekte) von Klasse TRing
     public
       constructor Create;
       destructor Free;
       procedure Init;

     end;

implementation

// Constructor
constructor TContainer.Create;
begin
     inherited Create;
     Init;
end;

// Destructor
destructor TContainer.Free;
var
   i : integer;
begin
     for i := 0 to 4 do
         Item[i].Free;
end;

procedure TContainer.Init;
var
   i : integer;
begin
     for i := 0 to 4 do
         Item[i] := TRing.Create;
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:
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:

unit uTRing;

interface

uses Graphics;

type TRing = class(TObject)
     private
       stift : integer;         // Variable für Stiftdicke
       farbe : TColor;          // Variable für Stiftfarbe
       x1,y1,x2,y2 : integer;   // Variablen für Ringposition
     public
       constructor Create;
       destructor Free;
       procedure Init;
       procedure SetStaerke(dicke : integer);  // Stiftdicke setzen
       function  GetStaerke : integer;         // Stiftdicke ausgeben
       procedure SetFarbe (stiftfarbe : TColor);   // Stiftfarbe setzen
       function  GetFarbe : TColor;                // Stiftfarbe ausgeben
       procedure SetPosition(ObenLinksX,ObenLinksY,UntenRechtsX,UntenRechtsY : integer);
       procedure Zeichnen (myCanvas : TCanvas);
     end;

implementation

procedure TRing.SetStaerke(dicke : integer);
begin
     stift := dicke;
end;

function TRing.GetStaerke : integer;
begin
     result := stift;
end;

procedure TRing.SetFarbe (stiftfarbe : TColor);
begin
     farbe := stiftfarbe;
end;

function TRing.GetFarbe : TColor;
begin
     result := stift;
end;

procedure TRing.SetPosition(ObenLinksX,ObenLinksY,UntenRechtsX,UntenRechtsY : integer);
begin
     x1 := ObenLinksX;
     y1 := ObenLinksY;
     x2 := UntenRechtsX;
     y2 := UntenRechtsY;
end;

procedure TRing.Zeichnen (myCanvas : TCanvas);
begin
     myCanvas.Pen.Color := GetFarbe;
     myCanvas.Pen.Width := GetStaerke;
     myCanvas.Ellipse(x1,y1,x2,y2);
end;

constructor TRing.Create;
begin
     inherited Create;
     Init;
end;

destructor TRing.Free;
begin
end;

procedure TRing.Init;
begin
     SetStaerke(3);
     SetFarbe(clLime);
     SetPosition(50,50,150,150);
end;

end.					

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

type TContainer = class(TObject)
     private
       Item : array [1..5] of TRing;   // Instanzen(Objekte) von Klasse TRing
     public
       constructor Create;
       destructor Free;
       procedure Init;

     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:
28:
29:
30:
31:
32:
33:
34:
35:
36:

unit uTContainer;

interface

uses uTRing, Graphics;

type TContainer = class(TObject)
     private
       Item : array [1..5] of TRing;   // Instanzen(Objekte) von Klasse TRing
     public
       constructor Create;
       destructor Destroy;
end;

implementation

// Constructor
constructor TContainer.Create;
var
   i : integer;
begin
     for i := 1 to 5 do
         Item[i] := TRing.Create;
end;

// Destructor
destructor TContainer.Destroy;
var
   i : integer;
begin
     inherited Create;
     for i := 1 to 5 do
         Item[i].Destroy;
end;

end.