ソースを参照

minor warning fix.

Ugochukwu Mmaduekwe 7 年 前
コミット
6c69e41215
1 ファイル変更4 行追加0 行削除
  1. 4 0
      CryptoLib/src/Utils/ClpConverters.pas

+ 4 - 0
CryptoLib/src/Utils/ClpConverters.pas

@@ -478,7 +478,11 @@ begin
     raise EArgumentNilCryptoLibException.CreateRes(@SEncodingInstanceNil);
   end;
 
+{$IFDEF FPC}
+  result := a_encoding.GetBytes(UnicodeString(a_in));
+{$ELSE}
   result := a_encoding.GetBytes(a_in);
+{$ENDIF FPC}
 end;
 
 class function TConverters.SplitString(const S: String; Delimiter: Char)