bubblesort funzt ni need help

[DeddyH]

Hier noch eine Bubblesort-Variante:

Delphi-Quellcode:

procedure Bubblesort(const sList: TStrings);
var i,j,k: integer;
    getauscht: Boolean;

    procedure tausche(const a,b: integer);
    var tausch: string;
    begin
      tausch := sList[a];
      sList[a] := sList[b];
      sList[b] := tausch;
      getauscht := true;
    end;

begin
  if sList.Count > 1 then  
    begin
      sList.BeginUpdate;
      k := sList.Count - 2;
      i := 0;
      repeat
        getauscht := false;
        for j := 0 to k - i do
          if AnsiCompareStr(sList[j], sList[j + 1]) > 0 then
            tausche(j, Succ(j));
        inc(i);
      until (i > k) or not getauscht;
      sList.EndUpdate;
    end;
end;

@Kaki: geht wohl eher um den Lerneffekt