瀏覽代碼

FIX: Diacritics list

Alexander Koblov 3 月之前
父節點
當前提交
a6f85c0c0b
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/uaccentsutils.pas

+ 2 - 2
src/uaccentsutils.pas

@@ -38,8 +38,8 @@ var
   gslAccents, gslAccentsStripped: TStringList;
 
 const
-  cStrAccents = 'á;â;à;å;ã;ä;ç;é;ê;è;ë;í;î;ì;ï;ñ;ó;ô;ò;ø;õ;ö;ú;û;ù;ü;ÿ;Á;Â;À;Å;Ã;Ä;Ç;É;Ê;È;Ë;Í;Í;Ì;Ï;Ñ;Ó;Ô;Ø;Õ;Ö;ß;Ú;Û;Ù;Ü;Ÿ;¿;¡;œ;æ;Æ;Œ;ě;š;č;ř;ž;ý;ň;ď;ť;ů;Ě;Š;Č;Ř;Ž;Ý;Ň;Ď;Ť;Ů';
-  cStrAccentsStripped = 'a;a;a;a;a;a;c;e;e;e;e;i;i;i;i;n;o;o;o;o;o;o;u;u;u;u;y;A;A;A;A;A;A;C;E;E;E;E;I;I;I;I;N;O;O;O;O;O;B;U;U;U;U;Y;?;!;oe;ae;AE;OE;e;s;c;r;z;y;n;d;t;u;E;S;C;R;Z;Y;N;D;T;U';
+  cStrAccents = 'á;â;à;å;ã;ä;ç;é;ê;è;ë;í;î;ì;ï;ñ;ó;ô;ò;ø;õ;ö;ú;û;ù;ü;ÿ;Á;Â;À;Å;Ã;Ä;Ç;É;Ê;È;Ë;Í;Í;Ì;Ï;Ñ;Ó;Ô;Ø;Õ;Ö;Ú;Û;Ù;Ü;Ÿ;¿;¡;æ;œ;ß;Æ;Œ;ẞ;ě;š;č;ř;ž;ý;ň;ď;ť;ů;Ě;Š;Č;Ř;Ž;Ý;Ň;Ď;Ť;Ů';
+  cStrAccentsStripped = 'a;a;a;a;a;a;c;e;e;e;e;i;i;i;i;n;o;o;o;o;o;o;u;u;u;u;y;A;A;A;A;A;A;C;E;E;E;E;I;I;I;I;N;O;O;O;O;O;U;U;U;U;Y;?;!;ae;oe;ss;AE;OE;SS;e;s;c;r;z;y;n;d;t;u;E;S;C;R;Z;Y;N;D;T;U';
 
 implementation