Kundenliste

[EdAdvokat]

Ich bin da erst einmal ratlos. Man kann es drehen und wenden, die procedure SaveToDB stimmt irgenwie nicht. Weder mit  for I:= Self.Count-1 downto 0 do noch mit  for I:=0 to Self.count-1 do läuft die Sache rund.
Es ist doch nicht normal, dass ein Speichervorgang von ca. 1000 Datensätzen gut 5 Minuten dauert und im Ergebnis dann 2000 Datensätze vorhanden sind, obwohl überhaupt keine Veränderung in der Datenbank vorgenommen wurde.
Das Hinzufügen einer Methode Speichern zum Objekt TCustumer würde nach meinem Verständnis bedeuten, dass ich die gleiche Procedure SaveToDB von TCustomerList hin zu TCustomer schreibe und dann aufrufen soll?
Das wäre doch das gleiche in Grün.
Möglicherweise habe ich ein Brett vor dem Kopf. Ich vermute, dass die SaveToDB-procedure eine Macke hat, egal ob for I:= 0 to self.count-1 do oder umgekehrt. Es ist doch nicht normal, dass ein solcher Vorgang gut 6 Minuten dauern soll.
Leider bin ich mit meinem Latein am Ende.