Re: [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

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus