Numerische höchster Stringwert

[creehawk]

Moin Moin.

Ich habe jetzt wie vorgeschlagen die Zahlen aus den Dateinamen separiert und mit

FileNumbersList.CustomSort(SortStringListOfInteger );

sortiert.

Delphi-Quellcode:

function SortStringListOfInteger(List: TStringList; Index1, Index2: Integer): Integer;
var
  Value1, Value2: Integer;
begin
  Value1 := StrToInt(List[Index1]);
  Value2 := StrToInt(List[Index2]);
  if Value1 < Value2 then
    Result := -1
  else if Value2 < Value1 then
    Result := 1
  else
    Result := 0;
end;

Der Code ist mehrfach im Netz zu finden.

Was ich eben brauchte war Eure Hilfe um zu verstehen was ich machen muss bzw wonach man suchen kann.

Vielen Dank!!

creehawk

[Gausi]

Verstehe ich das richtig? Du separierst aus der Original-Stringlist die Zahlen, packst diese in eine neue Stringlist, und sortierst diese, indem du die Strings darin zu Integer umwandelst? Kann man machen ... ist aber irgendwie von hinten durch die Brust ins Auge.

So sollte es "direkt" gehen:

Delphi-Quellcode:

function SortStringListOfInteger(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareString(LOCALE_USER_DEFAULT, SORT_STRINGSORT or SORT_DIGITSASNUMBERS, PChar(List[Index1]),
    Length(List[Index1]), PChar(List[Index2), Length(List[Index2)) - CSTR_EQUAL;
end;

[himitsu]

Jupp, sollte es, da Windows ja das "Gleiche" schon fertig erledigt.

PS:

Delphi-Quellcode:

function SortStringListOfInteger(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareValue(StrToInt(List[Index1]), StrToIntDef(List[Index2]));  // StrToIntDef( ,0) oder ,MaxInt) oder ,MinInt) falls mal Fehler und keine Zahl drin
end;

[Stevie]

Das ganze nennt sich übrigens natural sort order

Kann man auch StrCmpLogicalW für nutzen (zu finden in Winapi.ShLwApi.pas) - die ruft intern übrigens CompareString mit NORM_IGNORECASE or SORT_DIGITSASNUMBERS auf.

[creehawk]

@gausi
Okay, von hinten durch die Brust ins Auge, kann man so sagen. Aber den Code verstehe ich ohne Probleme. Deine Lösung müsste ich erstmal ausgiebig ventilieren. Bin ich jetzt gerade zu faul für....

@himitsu
.... und da ist die einfache Lösung. DAS war es was ich gesucht habe. Sehr schön. Vielen Dank.

creehawk