Hallo erstmal,
bin leider nicht der Beste was Delphi-Sachen angeht und bräuchte mal wieder Hiilfe. In der Suche hab ich auch nichts entdeckt, sorry.
Also hier mein Problem:
Ich will in einer Checklistbox verschiedene Items adden und löschen können. Aber jedesmal beim schliessen des Programms und wieder öffnen ist in der listbox immer 1 Item weniger und ich weiss nicht woran es liegt.
Die Items werden in einer Datenbank gespeichert für die ihr nen ALIAS "
test"anlegen müsst.
Meine Vermutung wo der Fehler sein müsste hab ich als Kommentar eingefügt:
QC:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
while not table1.Eof do
begin
Checklistbox1.Items.Add(table1.fieldbyname('Genre').AsString);
table1.Next; //hier müsste ein Fehler vorliegen
end;
end;
procedure TForm1.ButtonAddClick(Sender: TObject);
begin
checklistbox1.Items.Add(table1.fieldbyname('Genre').AsString);
table1.Insert;
end;
procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
checklistbox1.Items.Delete(checklistbox1.ItemIndex); //hier müsste ein Fehler vorliegen
table1.delete;
end;