Browse Source

FIX: NormalizeAccentedChar function

Alexander Koblov 3 tháng trước cách đây
mục cha
commit
ba08ab16cd
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  1. 2 0
      src/uaccentsutils.pas

+ 2 - 0
src/uaccentsutils.pas

@@ -59,6 +59,7 @@ begin
   slTempoAccents := TStringList.Create;
   slTempoAccentsStripped := TStringList.Create;
   try
+    slTempoAccents.CaseSensitive := True;
     ParseLineToList(cStrAccents, slTempoAccents);
     ParseLineToList(cStrAccentsStripped, slTempoAccentsStripped);
 
@@ -67,6 +68,7 @@ begin
 
     gslAccents := TStringList.Create;
     gslAccents.Assign(slTempoAccents);
+    gslAccents.CaseSensitive := True;
     gslAccents.Sort;
     gslAccentsStripped := TStringList.Create;