Bei Sortierung Komma zeichen ignorieren

[Uwe Raabe]

Mit einem halbwegs aktuellen Delphi kann man auch recht einfach Zahlen in einer Stringlist sortieren:

Delphi-Quellcode:

uses
  System.SysUtils,
  System.Classes;

function NumberCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := string.Compare(List[Index1], List[Index2], [coDigitAsNumbers]);
end;

procedure Main;
var
  lst: TStringList;
  I: Integer;
begin
  lst := TStringList.Create;
  try
    lst.CommaText := '5, 32, 2, 86';
    lst.CustomSort(NumberCompareStrings);
    Writeln(lst.CommaText); // => 2,5,32,86
  finally
    lst.Free;
  end;
end;