Da du ja ein modernes Delphi hast - wieso verwendest du keine generische TObjectList. Damit würdest du dir das redeklarieren der ganzen TObjectList-Funktionalitäten sparen und deine TCustomerList sähe nur noch so aus (ohne
IDE heruntergetippt kopiert und ungetestet):
Delphi-Quellcode:
TCustomerList=class(TObjectList<TCustomer>)
procedure LoadFromDB(con: TZConnection);
procedure SavetoDB(con: TZConnection);
public
function AddCustomer(KDNR: integer; Name: string; Vorname: string; Firma: string; Produkt: string; Anzahl: Integer; Preis: Currency):integer;
end;
Und ja, da du das Create nicht überschreibst, rufst du das Create der Vorgängerklasse (TObjectList) auf.
Und ja, der Sourcecode könnte ebenfalls erleuchtend wirken. Ein Strg+Click auf TCustomerList.
Create sollte dich an die richtige Stelle führen.