Einzelnen Beitrag anzeigen

XxnemesisxX49

Registriert seit: 4. Sep 2012
14 Beiträge
 
#31

AW: TStringList absteigend sortieren

  Alt 5. Sep 2012, 18:17
ok, hab ich.
Das kommt dann einfach in meine Unit oder?
Delphi-Quellcode:
// Anwendungsbeispiel zum "natürlichen" Sortieren
function StringListSortCompare(List: TStrings; Index1, Index2: integer): integer;
begin
  // Index1 und Index2 sind vertauscht -> absteigend sortieren
  if List.CaseSensitive
    then Result := NaturalCompareStr(List[Index2], List[Index1])
    else Result := NaturalCompareText(List[Index2], List[Index1]);
end;
  Mit Zitat antworten Zitat