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;