Supermarktkasse

[Andreas L.]

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