Como Cambiar Caracter ¥ por Ñ????

[[Al González]]

¡Hola a todos!

Empezado por AGAG4

...en vez de ponerle la Ñ le pone el signo ¥...
..reviso caracter por caracter si me encuentro con el signo raro y no me cambia ese signo por la Ñ, pongo ejemplo:

Código Delphi [-]
  for x:=1 to length(val) do
    result:=result+ANSI2ASCII(val[x]);

Agradezco cualquier sugerencia.

Que tal Alfredo. El problema es que estás intentando convertir de OEM a ANSI con una función que convierte de ANSI a OEM (CharToOEM). Necesitas usar la función inversa, OEMToChar.

Para mayor facilidad, si tienes Delphi 7, mi sugerencia sería que utilizaras la función ghCadenaANSI de Interfaz GH (Uses IGHCadenas).

Código Delphi [-]
CadenaNueva := ghCadenaANSI (CadenaVieja);

Un abrazo acentuado.

Al González.