Einzelnen Beitrag anzeigen

creehawk

Registriert seit: 1. Jul 2013
Ort: Hamburg
233 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: Numerische höchster Stringwert

  Alt 22. Nov 2022, 07:10
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
  Mit Zitat antworten Zitat