Ascii ??

[torito]

Hola amigos foreros, me encuentro con la sig. situación. tengo una función mediante la cual me envian una cadena de numeros los cuales debo dividir en paquetes de 3 y cada paquete lo convierto de deciamal a ascii, pero al meterle la cadena 092166061150 y al dividirla en 092,166,061,150 me arroja de cadena \¦=– de lugar de \ª=û, como veran hay una diferencia notoria, les envio mi codigo adjunto por si alguien pudiera auxiliarme, muchas gracias.

function cambia_ascii(pass: string): string;
var
dato,res: string;
nada: char;
i,z: integer;
begin
with form1 do
begin
//pass:=edit3.Text;
dato:='';    res:='';
for i:=1 to length(pass) do
 begin
 if (i mod 3) <> 0 then
  begin
  dato:=dato+pass[i];
  end
 else
  begin
  dato:=dato+pass[i];
  z:=StrToInt(dato);
  nada:=chr(z);
  res:=res+nada;
  dato:='';
  end;//= a 3
 end;//for

 cambia_ascii:=res;
end;
end;

P.D: se que se pueden ahorrar 4 lineas de código pero después lo hago, sorry

[[Al González]]

¡Buen día a todos!

Torito:

Los valores mostrados seguramente son correctos. El problema es la fuente de texto que utilizas para mostrar los caracteres. Dependiendo de la fuente utilizada, la imagen gráfica de algunos caracteres varía.

Seguimos en contacto.

Al González.

[torito]

No, ya revise lo de la fuente, medijeron también que el problema es el unicode, y creo que si es por ahi ya que no es lo mismo alt+0166 que alt+166