hm hab das jetzt so, aber da tut sich nix
Delphi-Quellcode:
procedure BubbleSort(arrArray: array of integer);
var i,j, h: Integer;
begin
for i := Length(arrArray) downto 1 do
for j := 1 to i do
if (arrArray[j-1] > arrArray[j]) then begin
//SwapValues( j-1, j );
h := arrArray[j-1];
arrArray[j-1] := arrArray[j];
arrArray[j] := h;
end;
end;
vermtlich ein verständnisfehler...
aufrufen tu ich das ganze halt so: BubbleSort(arrName)
??