Zitat:
Delphi-Quellcode:
if IsPositiveResult(Dateneditieren.ShowModal()) then
begin
Kunde:= TKunde (Dateneditieren.StrGrAuswahl.Objects[1,2]);
neuKunde:=TKunde(lvAuswahl.ItemFocused.SubItems.Objects[0]);
kunde:= neuKunde.Create(neuKunde.ID,neuKunde.Vorname,neuKunde.Nachname);
lvAuswahl.ItemFocused.SubItems.Add(Dateneditieren.StrGrAuswahl.Cells[1,1]);
lvAuswahl.ItemFocused.SubItems.Add(Dateneditieren.StrGrAuswahl.Cells[2,1]);
neuKunde:=TKunde.Create(Kunde.ID,(Dateneditieren.StrGrAuswahl.Cells[1,1]),kunde.nachname);
neuKunde:=Tkunde(Dateneditieren.StrGrAuswahl.Cells[2,1]);
connect.KundeTransa.StartTransaction;
connect.KundeTransa.Commit;
connect.KundeQuery.CommitUpdates;
end else
Wozu die Zuweisungen an Kunde und neukunde, wenn Du diese anschließend mit neu angelegten Instanzen überschreibst (im Falle von neukunde dann anschließend sogar noch einmal mit einer bestehenden)? Ich habe das Gefühl, dass Du Dir eine ganze Menge Speicherlecks da einprogrammiert hast.