Dateiliste sortieren

[kurtm1]

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