Das sollt ungefähr so sein:
Delphi-Quellcode:
type
TMyList :
Class(Tobjectlist);
procedure Delete(idx:integer);
end;
procedure TMylist.Delete(idx:integer);
{ lÖSCHEN DES DATENSATZES AUS DER lISTE }
begin
if self.id>-1
then DeleteFromDB(self.id);
{ und aus der DB }
inherited dELETE;
end;
Das ist nur das Prinzip!
die genaue Umsetzung ist dann Dein Problem
Gruß
K-H