1:
2:

 Fabrik.ErzeugeEinNeuesObjekt;
 Fabrik.AlleObjekteLöschen;					

1:

var ArrayMeineKlasse : array of tMeineKlasse					

1:
2:

NeueInstanz:=tMeineKlasse.create;
array[0]:=NeueInstanz					

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

var oList:TObjectLIst;
  ....

var oTest:TMeineKlasse;
begin
  oTest:=TMeineKlasse.Create;
  oList.Add(oTEst);
...					

1:

ArrayMeineKlasse[0] := TMeineKlasse.Create;					

1:

var ArrayMeineKlasse: array of array of TMeineKlasse;					

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

procedure TGUI.BtKomponistloeschenClick(Sender: TObject);
var hilf: string;
var hilfobjekt: tobject;
var hilfkomponist: tkomponist;
var i,j: integer;
begin
hilf:=Lbkomponisten.Items[Lbkomponisten.ItemIndex];
for i:=0 to anzahlkomponisten-1 do begin
hilfobjekt:=OlKomponisten.Items[i];
hilfkomponist:=tkomponist(hilfobjekt);
if hilfkomponist.getname = hilf then begin
lbkomponisten.deleteselected;
olkomponisten.delete(i);
hilfkomponist.destroy;
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:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mkomponist, Contnrs, ExtCtrls
;

type
  TGUI = class(TForm)
    BtWerk: TButton;
    BtKomponist: TButton;
    BtInterpret: TButton;
    BtCD: TButton;
    LabKomponistenname: TLabel;
    EdKomponistenname: TEdit;
    Lbkomponisten: TListBox;
    EdKomponistensortierung: TEdit;
    LabKomponistensortierung: TLabel;
    LbKomponistenSortieren: TListBox;
    BtKomponistInfobutton: TButton;
    LabKomponistenInfoName: TLabel;
    LabKomponistenInfoSortierung: TLabel;
    LabKomponistenInfoID: TLabel;
    LabKomponistenInfoNameBeschriftung: TLabel;
    LabKomponistenInfoSortierungBeschriftung: TLabel;
    LabKomponistenInfoIDBeschriftung: TLabel;
    BtKomponistloeschen: TButton;
    procedure BtKomponistClick(Sender: TObject);
    procedure BtAktualisierenLbKomponistenClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BtKomponistInfobuttonClick(Sender: TObject);
    procedure BtKomponistloeschenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure einfuegen(sortierung:string; komponist:tkomponist);

  public
    { Public-Deklarationen }
    OlKomponisten: tObjectList;
    idkomponistenfortlaufend:integer;
  end;

var
  GUI: TGUI;

implementation

{$R *.dfm}

procedure TGUI.BtKomponistClick(Sender: TObject);
var NeuerKomponist,hilfskomponist: tKomponist;
var hilf:integer;
var hilfobjekt: tobject;
begin
NeuerKomponist:=tkomponist.create;
Neuerkomponist.setname(Edkomponistenname.text);
Neuerkomponist.setsortierung(Edkomponistensortierung.text);
Neuerkomponist.setid(idkomponistenfortlaufend);
einfuegen(neuerkomponist.getsortierung, neuerkomponist);
idkomponistenfortlaufend:=idkomponistenfortlaufend+1;
lbkomponisten.clear;
for hilf:=0 to olkomponisten.count-1 do begin
hilfobjekt:=OlKomponisten.items[hilf];
hilfskomponist:=tkomponist(hilfobjekt);
LbKomponisten.Items.Add(hilfskomponist.getname);
end;
EdKomponistenname.text:='';
EdKomponistensortierung.text:='';
end;



procedure TGUI.FormActivate(Sender: TObject);
begin
OlKomponisten:=TObjectList.create(true);
idkomponistenfortlaufend:=1;
end;


procedure tgui.einfuegen(sortierung:string; komponist: tkomponist);
var hilf: integer;
var hilfstring: string;
begin
LbKomponistenSortieren.items.add(sortierung);
for hilf:= 0 to lbkomponistensortieren.count-1  do begin
hilfstring:=LbKomponistenSortieren.items[Hilf];
if hilfstring = sortierung then
OlKomponisten.insert(hilf, komponist);
end;
end;





procedure TGUI.BtKomponistloeschenClick(Sender: TObject);
var hilf: string;
var hilfobjekt: tobject;
var hilfkomponist: tkomponist;
var i,j: integer;
begin
hilf:=Lbkomponisten.Items[Lbkomponisten.ItemIndex];
for i:=0 to olkomponisten.count-1 do begin
hilfobjekt:=OlKomponisten.Items[i];
hilfkomponist:=tkomponist(hilfobjekt);
if hilfkomponist.getname = hilf then begin
lbkomponisten.deleteselected;
olkomponisten.delete(i);
end;
end;
end;
end.