fixed: TIdSoapWriter.CheckForBadCharacters raises an error when retur…

…ning parameter value contain Unicode characters `Ord` returns character code. but for Unicode chars it's size more than byte.
ashumkin · Jan 26, 2015 · 22f3c2c · 22f3c2c
1 parent a16ac7b
commit 22f3c2c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/IdSoapRpcPacket.pas b/source/IdSoapRpcPacket.pas
@@ -1954,7 +1954,7 @@ procedure TIdSoapWriter.CheckForBadCharacters(const AString, AName, ARoutine: St
 const ASSERT_LOCATION = ASSERT_UNIT+'.TIdSoapWriter.CheckForBadCharacters';
 var
   I: Integer;
-  LOrd: Byte;
+  LOrd: Word;
 begin
   Assert(self.TestValid(TIdSoapWriter), ASSERT_LOCATION + ': Self is invalid');