array sortieren

[DeddyH]

Delphi-Quellcode:

Procedure TForm5.BubbleSort(var B: Array of byte);
   Procedure Swap(var xx,yy:byte);
     var
      Swp: byte;
      begin
        swp:=xx;
        xx:=yy;
        yy:=swp;
      end;

var i,j : byte;
Begin
For i:= High(B) downto Low(B) Do
   For j:= Low(B) To i-1 Do
       If (B[j] > B[j+1]) Then Swap( B[j], B[j+1] );
End;

Ungetestet, müsste aber in etwa stimmen.