Dateiliste sortieren

[daywalker9]

Du kannst auch einfach eine eigene Sortiermethode schreiben und diese der TStringList bekannt machen:

    procedure TStringList.CustomSort(Compare: TStringListSortCompare); virtual;

Delphi-Quellcode:

  function TForm1.DoSort(List: TStringList; Index1, Index2: Integer): Integer;
  var s1, s2 : String;
  begin s1:=List[Index1];
        s2:=List[index2];
        if s1>s2 then
         result:=1
        else
          if s2>s1 then 
            result:=-1
        else
          result:=0;
         
  end;