Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ascii ?? (https://www.clubdelphi.com/foros/showthread.php?t=19956)

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.

Código:

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

¡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. :)

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