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