Einzelnen Beitrag anzeigen

shebang

Registriert seit: 7. Feb 2020
131 Beiträge
 
Delphi 11 Alexandria
 
#30

AW: Dateinamen auslesen und sortieren

  Alt 11. Apr 2023, 15:28
Dann würde ich mir aber die TStringList sparen und direkt auf dem Array arbeiten:
Delphi-Quellcode:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, System.IOUtils, Generics.Collections, Generics.Defaults;

function StrCmpLogicalW(P1, P2: PWideChar): Integer; stdcall; external 'Shlwapi.dllname 'StrCmpLogicalW';

var
  i: Integer;
  SA: TArray<string>;
begin
  try
    SA := TDirectory.GetFiles(ExtractFilePath(ParamStr(0)));

    TArray.Sort<string>(SA, TComparer<string>.Construct(
    function(const Left, Right : string) : Integer
    begin
      Result := StrCmpLogicalW(PWideChar(Left), PWideChar(Right));
    end));

    for i := 0 to High(SA) do
    begin
      // mach was mit der Liste
      WriteLn(SA[i]);
    end;
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
  Mit Zitat antworten Zitat