Jak porównać tekst w sposób nieczuły na OSX Yosemite

Question

Próbuję porównać dwa ciągi na OSX w sposób niewrażliwy na wielkość liter przy użyciu AnsiSameText. To działało dobrze, ale na OS X Yosemite zachowuje się dziwnie, jeśli "preferowany język" OSX jest ustawiony na Holenderski ("Preferencje systemowe" -> "Język & Region" -> "Preferowane języki" -> "Nederlands Dutch ").

W poniższym przykładzie kodu spodziewałbym się, że wydrukuje tylko "to samo". Ale dostaję "to samo, różne, różne".

program Project2; 

{$APPTYPE CONSOLE} 

{$R *.res} 

uses 
    System.SysUtils; 

begin 
    if AnsiSameText('abcde', 'ABCDE') then // Same 
    WriteLn('Same') 
    else 
    WriteLn('Different'); 

    if AnsiSameText('abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') then // different 
    WriteLn('Same') 
    else 
    WriteLn('Different'); 

    if AnsiSameText('i', 'I') then // different 
    WriteLn('Same') 
    else 
    WriteLn('Different'); 
end. 

Jaki jest prawidłowy sposób porównywania tekstów w sposób niewrażliwy na wielkość liter?

Używam Delphi XE7.

Answer 1

Delphi inicjuje UTF8CompareLocale z wartością zwróconą przez CFLocaleCopyCurrent. UTF8CompareLocale jest używane wewnątrz AnsiSameText dla ustawień regionalnych, które są używane do porównywania wielkości liter. Ale wtedy OSX Yosemite uważa "ja" i "i" inaczej, jeśli język OSX jest ustawiony na holenderski.

Wywołanie SetUTF8CompareLocale('en_US'); w systemie holenderskim rozwiązuje problem bez konieczności łatania jednostek Delphi.