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