Kundenliste

[EdAdvokat]

so sieht nun die löschen-Methode aus:

Delphi-Quellcode:

procedure TFRMMainCustomer.btnDeleteClick(Sender: TObject);//löschen (update)
var zqyMain: TZQuery;
begin
   zqyMain:=TZQuery.Create(nil);
   zqyMain.connection:=conMain;

   if lvCustomer.Selected<>nil then
  begin
     CustomerList[lvCustomer.Selected.Index].RemoveFromDB(conMain);

    //Customerlist[LVCustomer.Selected.Index].Free;
    CustomerList.Delete(LVCustomer.Selected.Index);
    LVCustomer.Items.Delete(LVCustomer.Selected.Index);
  end;
end;

ich habe erkenntlich die Freigabe Free herausgenommen und es geht. Ja es geht!!!
Ich habe wirklich Hochachtung vor Euch Fachleuten, doch wie kommt man von der 5Oldi- Kreisklasse wenigstens in die 4.Oldi- Kreisklasse ohne aufdringlich solche Fragen zu stellen?
Ich danke für die Hilfe.