hola de nuevo, he empezado a trastear un poco la app, a esbozar si lo preferis, en fin el caso es que si pulso sobre un edit las teclas Alt+155, aparece el simbolo ascii "ø" que es lo correcto, el problema es que en el label no me guarda su valor numerico es decir "155", sino 248 y su semejante binario, adjunto captura.
http://subefotos.com/ver/?cca3e3c60fa720f17f770603948a6a37o.png
El codigo que tengo es este:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i,x: integer;
begin
for i:= length(edit1.Text) downto 1 do
begin
label1.Caption:= IntToStr(Ord(edit1.Text[i]));
x:= StrToInt(label1.Caption);
label2.Caption:= IntToBin(x,8);
end;
end;
¿por qué no aparece el valor real? otro ejemplo, el valor numerico de ' ' es 255, pero en vez de eso me devuelve 160.
Gracias por vuestra ayuda.