Sortieren nach DIN bei TStringList;

[Uwe Raabe]

Versuch mal dies

Delphi-Quellcode:

  Result := CompareStringW(MAKELCID(MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN), SORT_GERMAN_PHONE_BOOK),
    NORM_IGNORECASE or NORM_IGNORENONSPACE or NORM_IGNORESYMBOLS, PWideChar(SL[i1]), Length(SL[i1]),
    PWideChar(SL[i2]), Length(SL[i2])) - 2;