Registriert seit: 7. Feb 2020
131 Beiträge
Delphi 11 Alexandria
|
AW: Dateinamen auslesen und sortieren
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.dll' name ' 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.
|
|
Zitat
|