StringList "gruppiert" sortieren nach Ordnern und Dateinamen

[Hawkeye219]

Hallo Jürgen,

vielleicht funktioniert es so:

Delphi-Quellcode:

function Sort_by_Folder(strings: TStringList; Index1, Index2: Integer): Integer;
var
  Name1, Name2 : string;
begin
  Name1 := strings[Index1];
  Name2 := strings[Index2];

  Result := AnsiCompareText(ExtractFilePath(Name1), ExtractFilePath(Name2));
  if (Result = 0) then
    Result := AnsiCompareText(ExtractFileName(Name1), ExtractFileName(Name2));
end;

Gruß Hawkeye