fsl_utilities Delphi compatibility

Saxos-Simone · Jan 31, 2024 · ca580ba · ca580ba
1 parent ebad98c
commit ca580ba
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/library/fsl/fsl_utilities.pas b/library/fsl/fsl_utilities.pas
@@ -16928,11 +16928,11 @@ function removeAccentFromChar(ch : UnicodeChar) : String;
     #$2C6C : result := 'z';
     #$A763 : result := 'z';
 
-    #$0439 : result := UnicodeToUTF8($0438);
+    #$0439 : result := {$IFDEF FPC}UnicodeToUTF8{$ELSE}Chr{$ENDIF}($0438);
   else if ch < #$FE then
     result := ch
   else
-    result := UnicodeToUTF8(v);
+    result := {$IFDEF FPC}UnicodeToUTF8{$ELSE}Chr{$ENDIF}(v);
   end;
 end;