Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#13

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

  Alt 2. Feb 2004, 18:12
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?
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat