Hi Leute,
ich hab mir mit Hilfe des Tuts aus der Code-Lib die folgende procedure gebastelt. Es soll eine Zeile sortiert werden (deshalb heißt der Array "letzteZeile"
). In laenge wird die Anzahl der Einträge des Arrays gespeichert. In dem Array stehen 4 oder 5 Einträge. (z.B. 4, -12, -41, -3, 54) Diese sollen jetzt geordnet werden, so dass der höhste Eintrag als erster erscheint und der niedrigste als letztes. Hier der Code:
Delphi-Quellcode:
//////////////////////////////////////////
//Der Array "Letzte Zeile" wird sortiert//
//////////////////////////////////////////
procedure TForm11.BubbleSort(letzteZeile:Array of integer;laenge:integer);
var Zaehler1, Zaehler2, Austausch: Integer;
begin
for Zaehler1 := laenge downto 2 do
for Zaehler2 := 1 to Zaehler1-1 do
if letzteZeile[Zaehler2] < letzteZeile[Zaehler2+1] then
begin
Austausch := letzteZeile[Zaehler2];
letzteZeile[Zaehler2] := letzteZeile[Zaehler2+1];
letzteZeile[Zaehler2+1]:=Austausch;
end;
end;
Ich rufe also in meinem Code die Prozedur mit:
Bubblesort(LetzteZeile,Spieleranzahl);
auf. (Spieleranzahl ist 'nen Integer). Da der Array LetzteZeile global ist müsste er doch eigentlich sortiert werden? Wird er aber nicht
Was ist daran denn jetzt schon wieder falsch?????
p.s. Alle die mich wegen der Verwendung des Bubblesort-Sortierverfahrens kritisieren wollen, bitte ich dies nicht zu tun, da ich, wie erwähnt mit 4 bis 5 Einträgen arbeite und mir das Bubblesort-Verfahren für diese Anzahl von Einträgen als einfachstes erscheint.
