Delphi-Quellcode:
uses ContNrs;
...
type
TArtikel = class(TComponent)
private
fPreis: Double;
fID: Integer; //Kennung
//weitere Variablen hinzufügen....
published //im published abschnitt ermöglichst du es, die Variablen als Eigenschaften auch außerhalb der KLasse zu benutzen
property Preis: Double read fPreis write fPreis;
property ID: Integer read fID write fID;
end;
type
TArtikelCollection = class(TComponent)
private
fIDCount: Integer; //speichert die anzahl der ids, jedesmal wenn du einen neuen Artikel erstellst, musst du diese erhöhen
fArtikels: TObjectList;
//... Den Rest schaffst du aber auch alleine, Vergiss nicht die ObjectList im Constructor zu erstellen ;-)
Denke, das sollte die erstmal helfen
