Sortieralgo

[sniper_w]

Selection Sort ist nicht schnell aber für kleinere Listen sehr geignet.
Hier:

Delphi-Quellcode:

procedure SelectionSort( Was : TStrings);
 var i,j:integer;
     temp : string;
begin
  if Was.Count >0 then
  begin
   for i:=0 to Was.Count-1 do
        for j:=i to Was.Count-1 do
         if Was.Strings[i] > Was.Strings[j] then
         begin
          temp := Was.Strings[i];
          Was.Strings[i] := Was.Strings[j];
          Was.Strings[j] := temp;
         end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var a:integer;
begin
 Randomize;
 for a:=0 to 30 do ListBox1.Items.Add(inttostr(random(10000)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SelectionSort(ListBox1.Items);
end;