CD-Datenbank - Array, aus dem man löschen kann..

[Leuselator]

Delphi-Quellcode:

procedure TForm1.BitBtn1ClickSoWieErMichWuetendMacht(Sender: TObject);
begin
  setlength(daten,500); // was soll das ?!!!
                        // Du schaffst Dir mit viel Mühe ein Dynamisches Array
                        // samt dazugehörigen Methoden, um damit arbeiten zu können,
                        // um es anschließend doch wieder statisch zu machen?
  i:=i+1;

  daten[i].CDname.interpret:=interpret_edit.Text; // hier weist du einem Index-Element
  daten[i].CDname.album:=album_edit.Text;         // Deines vergewaltigten Arrays einen Wert zu
  daten[i].genre:=genre_combobox.Text;
  daten[i].jahr:=jahr_spinedit.Value;
  daten[i].preis:=strtofloat(preis_edit.text);

  cd_listbox.Items.Add(daten[i].CDname.interpret+#9+
                       daten[i].CDname.album+#9+
                       daten[i].genre+#9+
                       inttostr(daten[i].jahr)+#9+
                       floattostrf(daten[i].preis,fffixed,8,2));

  eintrag_hinzufuegen(daten[i]);   // und hier weist Du einem neu erzeugten Element von
                                   // Deinem Array dieselben Daten nochmal zu, indem Du
                                   // Du ein neues Array-Element erzeugst (das macht doch
                                   // eintrag_hinzufügen oder?) und diesem diesem den Wert
                                   // des Elementes Nr.: i zuweist
  anzahl_edit.text:=IntTostr(cd_listbox.Items.Count);
  // Rest weggelassen...
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  TempEintrag : tEintrag;
begin
  TempEintrag.CDname.interpret:= interpret_edit.Text;
  TempEintrag.CDname.album    := album_edit    .Text;
  TempEintrag.genre           := genre_combobox.Text;
  TempEintrag.jahr            := jahr_spinedit .Value;
  TempEintrag.preis           := strtofloat(preis_edit.text);
  eintrag_hinzufuegen(TempEintrag);
  cd_listbox.Items.Add(            TempEintrag.CDname.interpret+#9+
                                   TempEintrag.CDname.album    +#9+
                                   TempEintrag.genre           +#9+
                          inttostr(TempEintrag.jahr)           +#9+
                       floattostrf(TempEintrag.preis,fffixed,8,2));

  anzahl_edit.text:=IntTostr(cd_listbox.Items.Count);
  // Rest weggelassen...
end;

procedure TForm1.lschen1ClickSoWieEsNichtGeht(Sender: TObject);
begin
// klar, geht das schief, da nach dem Delete aus der
// TListbox der ItemIndex unter Umständen = -1 ist
// und der Anschließende Versuch, das -1. Element aus dem
// Array zu löschen schief gehen muß (Erinnerung:
// dynamische Arrays sind Null-basiert)

cd_Listbox.Items.Delete(cd_Listbox.ItemIndex);
eintrag_loeschen(cd_Listbox.ItemIndex);
end;

procedure TForm1.lschen1Click(Sender: TObject);
begin
  if cd_Listbox.ItemIndex >= 0 then begin
    eintrag_loeschen(cd_Listbox.ItemIndex); // erst das ArrayElement
    cd_Listbox.Items.Delete(cd_Listbox.ItemIndex); // dann den Listboxeintrag
  end;
end;

PS.: findest Du meinen Code nicht auch wesentlich einfacher lesbar?