[Lazarus-es] Funcion para convertir de caracter a ascii

[JoshyFun]

Hello Ismael,

Friday, December 4, 2009, 3:58:15 PM, you wrote:

ILDGa> procedure TForm1.Button1Click(Sender: TObject);
ILDGa> var
ILDGa>    i : integer;
ILDGa> begin
ILDGa>   i := ord('é');
ILDGa>   ShowMessage ('No. ' + inttostr(i));
ILDGa> end;
ILDGa> A mi nó, me da error.

Ójo!!! 'é' en UTF-8 no es un byte, son 2, por lo tanto no hay un "ord"
que valga. Tendrías que hacer:

i:=Ord(UTF8ToAnsi('é')[1]);

Ya que el editor por defecto trabaja un UTF-8. Tu otra solución sería
cambiar la codificación del código fuente a ANSI, para ello pulsas con
el click derecho, "File Settings" -> "Encoding" -> "ANSI (cpxxxx)".

-- 
Best regards,
 JoshyFun