Fórum Pegar codigo ascii #374001
24/08/2009
0
Estou montando arquivo da nfp onde a origem dos dados é um DBF, mas o que acontece é que na descricao dos produtos usando acentos e quando o delphi le esses dados traz codigos estranhos que sao recusados pelo validador da nfp, o que posso fazer para ou substituir esses caracteres ou traze-los com seus acentos ? (a aplicacao que grava no DBF é desenvolvida em clipper).
Abs
Abs
Felipeiw
Curtir tópico
+ 0
Responder
Posts
24/08/2009
Denis
vc pode fazer uma função que leia a linha inteira que veio do DBF e corrija os campos. Algo assim :
Function TiraAcento(texto : String):String;
var i:Integer;
begin
for i:=1 to length(texto) do
begin
case texto[i] of
´Á´,´Ã´,´Â´,´À´ : texto[i]:= ´A´;
´á´,´ã´,´â´,´à´ : texto[i]:= ´a´;
´Í´ : texto[i]:= ´I´;
´í´ : texto[i]:= ´i´;
´É´,´Ê´ : texto[i]:= ´E´;
´é´,´ê´ : texto[i]:= ´e´;
´Õ´,´Ó´ : texto[i]:= ´O´;
´õ´,´ó´ : texto[i]:= ´o´;
´Ç´ : texto[i]:= ´C´;
´ç´ : texto[i]:= ´c´;
´º´,´ª´ : texto[i]:= ´.´;
´ú´,´ü´ : texto[i]:= ´u´;
´Ú´,´Ü´ : texto[i]:= ´U´;
end;
end;
Result := texto;
end;
assim qualquer caracter estranho que vier vc troca, e mais alguns que vc queira colocar na função
Function TiraAcento(texto : String):String;
var i:Integer;
begin
for i:=1 to length(texto) do
begin
case texto[i] of
´Á´,´Ã´,´Â´,´À´ : texto[i]:= ´A´;
´á´,´ã´,´â´,´à´ : texto[i]:= ´a´;
´Í´ : texto[i]:= ´I´;
´í´ : texto[i]:= ´i´;
´É´,´Ê´ : texto[i]:= ´E´;
´é´,´ê´ : texto[i]:= ´e´;
´Õ´,´Ó´ : texto[i]:= ´O´;
´õ´,´ó´ : texto[i]:= ´o´;
´Ç´ : texto[i]:= ´C´;
´ç´ : texto[i]:= ´c´;
´º´,´ª´ : texto[i]:= ´.´;
´ú´,´ü´ : texto[i]:= ´u´;
´Ú´,´Ü´ : texto[i]:= ´U´;
end;
end;
Result := texto;
end;
assim qualquer caracter estranho que vier vc troca, e mais alguns que vc queira colocar na função
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)