Intelligentes BubleSort; sortieren wie im Windows Explorer

Thema durchsuchen

Ansicht

Themen-Optionen

Intelligentes BubleSort; sortieren wie im Windows Explorer

Ein Thema von Popov · begonnen am 17. Apr 2012 · letzter Beitrag vom 17. Apr 2012

Vorheriger Beitrag

Nächster Beitrag

Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.049 Beiträge

Delphi 10.1 Berlin Enterprise

AW: Intelligentes BubleSort; sortieren wie im Windows Explorer

17. Apr 2012, 08:44

Für XP/Server 2003 gibt's auch folgende Möglichkeit:

markieren

Delphi-Quellcode:

			function StrCmpLogicalW(P1, P2: PWideChar): Integer;  stdcall; external 'Shlwapi.dll';

function NaturalCompare(List: TStringList; Index1, Index2: Integer): Integer;

begin

  Result := StrCmpLogicalW(PWideChar(List[Index1]), PWideChar(List[Index2]));

end;

Und dann am besten wie schon erwähnt in Verbindung mit CustomSort benutzen.