CD-Datenbank - Array sortieren
Hallo!
In meiner bisher erstellten Datenbank (http://www.delphipraxis.com/topic177...chen+kann.html) soll es möglich sein, nach Interpret zu sortieren. Die Listbox auf "sorted" zu stellen hilft nichts, da ich auch weitere Sortier-Routinen einbauen will, welche dann nach genre, Albumname etc. sortieren. Bisher habe ich folgendes erdacht, leider gibt die Routine in der Listbox dann nur die entsprechende Anzahl sortierter Einträge mit leeren Daten aus (Preis 0,00 wo zuvor 14,98 stand).
Delphi-Quellcode:
Für jeden Hinweis bin ich dankbar! :wiejetzt:
procedure TForm1.nachInterpret1Click(Sender: TObject);
var k,m,wo:integer; sortier_ok:boolean; x:tAlleCDs; hilf:tEintrag; begin wo:=cd_listbox.Items.Count; cd_listbox.Items.Clear; i:=0; Repeat sortier_ok:=true; For k:=1 to wo-1 do Begin x:=daten; i:=i+1; if x[k+1].cdname.interpret < x[k].CDname.interpret then begin sortier_ok:=False; hilf:=x[k]; x[k]:=x[k+1]; x[k+1]:=hilf; end; end; UNTIL sortier_ok; for m:=1 to i do begin cd_listbox.Items.Add(daten[m].CDname.interpret+#9+daten[m].CDname.album+ #9+daten[m].genre+#9+inttostr(daten[m].jahr)+#9+floattostrf(daten[m].preis,fffixed,8,2)); end; |
Re: CD-Datenbank - Array sortieren
Wißt Ihr auch nicht, warum es nicht geht? :-(
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz