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

[Ismael L. Donis Garc?a]

Prueba a ver si te funciona:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
  i := ord('é');
  ShowMessage ('No. ' + inttostr(i));
end;

A mi nó, me da error.

Saludos reiterados
=========
¦¦ ISMAEL ¦¦
=========
----- Mensaje original ----- 
De: "JoshyFun" <joshyfun en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: jueves, 03 de diciembre de 2009 05:17
Asunto: Re: [Lazarus-es] Funcion para convertir de caracter a ascii


Hello Ismael,

Friday, December 4, 2009, 12:29:15 AM, you wrote:

ILDGa> Ya había mirado dicha función, pero no he encontrado la forma de 
pasar una
ILDGa> letra a ordinal.
ILDGa> Ya que ord('a') da error.
ILDGa> lo que quiero es:
ILDGa> var i: integer;
ILDGa> i := ord('a');

Acabo de probarlo ahora mismo y funciona :-? Mi código:

function nada(): integer;
var
   i: integer;
begin
   i:=ord('a');
   Result:=i;
end;

-- 
Best regards,
 JoshyFun


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