Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
Delphi 8 Architect
|
Re: CD-Datenbank - Array, aus dem man löschen kann..
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...
|
|
Zitat
|