THRIFT-3524 dcc32 warning "W1000 Symbol 'IsLowSurrogate' is deprecated: 'Use TCharHelper'" in Thrift.Protocol.JSON.pas
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 36c3d72..896dfcc 100644
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -868,12 +868,12 @@
            +  HexVal(tmp[3]);
 
       // we need to make UTF8 bytes from it, to be decoded later
-      if Character.IsHighSurrogate(char(wch)) then begin
+      if CharUtils.IsHighSurrogate(char(wch)) then begin
         if highSurogate <> #0
         then raise TProtocolException.Create( TProtocolException.INVALID_DATA, 'Expected low surrogate char');
         highSurogate := char(wch);
       end
-      else if Character.IsLowSurrogate(char(wch)) then begin
+      else if CharUtils.IsLowSurrogate(char(wch)) then begin
         if highSurogate = #0
         then TProtocolException.Create( TProtocolException.INVALID_DATA, 'Expected high surrogate char');
         surrogatePairs[0] := highSurogate;