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:
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;
Für jeden Hinweis bin ich dankbar!
