Unterprogramm zum Sortieren

[mr_]

Hallo Jungs,

ich bin gerade dabei ein Delphiprogramm zu schreiben, mit dem man ein Bücherverzeichnis erstellen und verschiedene Sachen damit anstellen kann. Nach zwei Tagen Suchmaschinen quälen und Forenlesen habe ich noch immer keine Lösung für mein Problem gefunden.

Es handelt sich um Folgendes: Ich will die Anzahl der Bücher pro Kategorie fallend sortiert anzeigen lassen (mit einem Unterprogramm für das Sortieren von n Zahlen). Ich bin jetzt soweit, dass ich mir die Anzahl pro Kategorie in einem zweispaltigen StringGrid anzeigen lasse, aber ich weiß überhaupt nicht, wie ich jetzt das Unterprogramm realisiere, damit mir die Anzeige sortiert ausgegeben wird.

Hier mein Ansatz:

Delphi-Quellcode:

procedure sortieren(var a);
var i: integer;
    sel: boolean;
    dummy: string;
begin
 repeat
  sel:=true;
  for i:=1 to 4 do
   begin
    if a[i]>a[i+1] then
    begin
     dummy:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=dummy;
     sel:=false
    end
   end;
  until sel;
end;

procedure TDateiarbeit.ButtonBproKClick(Sender: TObject);
var i,k: integer;
    kat: array[1..4] of integer;
    a: array[1..4] of kat;
begin
 for k:=1 to 4 do kat[k]:=0;
 k:=1;
 while StringGrid2.Cells[1,k]<>'' do
  begin
   for i:=0 to 4 do StringGrid2.Cells[i,k]:='';
   k:=k+1
  end;
 Seek(Buchdatei,0);
 while not Eof(Buchdatei) do
  begin
   Read(Buchdatei,Buch);
   with Buch do
    begin
     if (Buch.Kategorie='Krimi') then kat[1]:=kat[1]+1;
     if (Buch.Kategorie='Nachschlagewerk') then kat[2]:=kat[2]+1;
     if (Buch.Kategorie='Roman') then kat[3]:=kat[3]+1;
     if (Buch.Kategorie='Science-Fiction') then kat[4]:=kat[4]+1
    end
  end;
 sortieren(a);
 StringGrid2.Cells[0,0]:='Kategorie';
 StringGrid2.Cells[1,0]:='Anzahl der Bücher';
 for i:=1 to 4 do StringGrid2.Cells[0,i]:=???;     <-- hier sollen die Kategorien hin
                  StringGrid2.Cells[1,i]:=???      <-- hier sollen die Anzahlen hin
end;

Hat jemand von euch eine zündende Idee? Wenn ja, her damit!

Lieben Dank schon mal.
Marius