Die Standarsortierung bekomme ich auch hin (so wie Tstringlist.Sort):
Delphi-Quellcode:
function DoSort(List: TStringList; Index1, Index2: Integer): Integer;
var s1, s2 : String;
begin
s1:=List[Index1];
s2:=List[index2];
//wenn s1 ordner == s2 ordner
if ExtractFilePath(s1)=ExtractFilePath(s2) then
Result:=AnsiCompareStr(ExtractFileName(s1),ExtractFileName(s2))
else
Result:=AnsiCompareStr(ExtractFilePath(s1),ExtractFilePath(s2))
end;
Probleme gibt es allerdings wenn ich Dateien nach diesem Muster habe:
aaa01
aaa09
aaa010
=> in diesem Fall wird nämlich folgendes ausgegeben:
aaa01
aaa010
aaa09