¡Hola a todos!
Cita:
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.