Ver Mensaje Individual
  #11  
Antiguo 03-02-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.281
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por danielmj Ver Mensaje
hola, sigo intentando sacar el calor decimal de un caracter ascii extendido >127, pero no lo consigo. por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;

begin
  c:= '■';
  label1.Caption:= intToStr(ord(c));
end;

Me devuelve 9632 cuando en realidad es 254 ¿alguna sugerencia?
A mi este código me está funcionando.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c: char;
begin
  c:= '®';
  Label1.Caption:= intToStr(ord(c));
end;

Me devuelve un 174.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita