convertir ascii a 0 y 1 y a beeps

[danielmj]

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.

[danielmj]

hola, otro simbolo que no funciona bien es si tecleo Alt+254 que debería salir esto "■" pero la aplicacion si le pongo ese cuadrado negro no devuelve 254, sino que devuelve 9632 y no sé por que...

un saludo.

[Ñuño Martínez]

Tiene pinta de que está usando una tabla de códigos diferente a la que esperas. La verdad es que es un lío, con tanto UNICODE, ANSI, ISO y ASCII, y no veo solución sencilla.

Comprueba si la aplicación está usando la misma tabla que tu sistema operativo. El como ya no estoy seguro, aunque creo que en las propiedades del Equipo y en la configuración del compilador vendrá algo.