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