Probleme beim sortieren

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Snuffi.

Vergleiche deinen Code mit der von mir korrigierten Fassung:

Delphi-Quellcode:

function SortList(List: TStrings): TStrings;
var
  i, j, min: Integer;
  Buffer: String;
begin
  for i := 0 to List.Count - 2 do
  begin
    min := i; // nicht immer 0 setzen
    for j := i + 1 to List.Count - 1 do
      if StrToInt(copy(List[j], 1, Pos(' ', List[j])-1)) // Copy() ab Position 1
          < StrToInt(copy(List[min], 1, Pos(' ', List[min])-1)) then // ditto
        min := j;
    if min <> i then  // tauschen wenn nötig 
    begin
      Buffer    := List[i];
      List[i]   := List[min];
      List[min] := Buffer;
    end;
  end;
  Result := List;
end;

Freundliche Grüße vom marabu