Delphi - Bubblesort - bin totaler anfänger...

[Markus K.]

Hallo eLverpeilo,
hier ist mal eine Möglichkeit von mir bezüglich des BubbleSort Algorithmus.

Delphi-Quellcode:

procedure TForm1.BubbleSort;
var Lauf1,Lauf2:Integer;
begin
     for Lauf1:=20 downto 2 do
         for Lauf2:=2 to Lauf1 do
             if (Sort[Lauf2-1] > Sort[Lauf2]) then Tausch(Lauf2-1,Lauf2);

end;

Vielleicht hilft sie dir.

Tschüß Markus