[Lazarus] -FcUTF8,-dEnableUTF8 create problem

[FreeMan]

showmessage(StrToHex('1234567890'));
results:
Compiler Options --> Other is empty
31323334353637383930

Compiler Options --> Other "-FcUTF8"

31323334353637383930


Compiler Options --> Other "-FcUTF8 , -dEnableUTF8"

31323334353637383930




On 19.02.2015 13:02, luiz americo pereira camara wrote:
>
> Can you check the return value of the below procedure when passing 
> wParam with and without -FcUTF8?
>
> function StrToHex(const S: RawByteString): String;
> var
>   i: Integer;
> begin
>   Result := '';
>   if S = '' then
>     Exit;
>   for i := 1 to Length(S) do
>   begin
>     Result := Result + IntToHex(Byte(S[i]), 0);
>   end;
> end;
>
> Luiz

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20150219/7dfd4119/attachment-0003.html>