Tengo el siguiente problema, hice una importación de datos de un sistema en clipper a mi aplicación en windows, usó Firebird 1.52, pero me he percatado que los nombres de los CLIENTES en vez de ponerle la
Ñ le pone el signo
¥ al principio tuve problemas con las consultas de los clientes pero lo solucione con la siguiente función:
Código Delphi
[-]
function AnSi2Ascii(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
PText:=StrAlloc(MaxLength);
StrPCopy(PText,AText);
{$IFDEF WIN32}
CharToOEM(PText,PText);
{$ELSE}
AnsiToOEM(PText,PText);
{$ENDIF}
Result:=StrPas(PText);
StrDispose(PText);
end;
Pero si quiero hacer una asignación para desaparecer ese caracter no me lo cambia, he realizado un ciclo donde 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.