Fórum Erro com acentos #350106
05/12/2007
0
é o seguinte
eu tenho uma tela de cadastro de clientes
e quando digito acentos ou algum caracter fora do normal da um erro na hora que mando salvar no banco de dados
alguem pode me ajudar de alguma maneira???
des de ja obrigado
forte abraço a todos
Jeovanne
Curtir tópico
+ 0Posts
05/12/2007
Felipeucc
Gostei + 0
05/12/2007
Bebeketo
function RemoveAcento(Str:String): String;
Const
ComAcento = ´àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜñ´;
SemAcento = ´aaeouaoaeioucuAAEOUAOAEIOUCUn´;
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
if Pos(Str[x],ComAcento)<>0 Then
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
Result := Str;
end;
use assim: edit1.text:= removeacento(edit1.text);
Gostei + 0
06/12/2007
Jeovanne
deu certim
:lol:
Gostei + 0
06/12/2007
Anorex
Gostei + 0
06/12/2007
Jeovanne
teria alguma forma que poderiamos fazer istu???
se tiver como vai ser muito filé
Gostei + 0
06/12/2007
Anorex
posta o sql q vc tá passando pq eu mando tudo entre aspas simples e não tenho nenhum problema quanto a acentos.
Gostei + 0
06/12/2007
Jeovanne
e os componetes que estou usando da paleta dbexpress ja fazem a inclusão no banco sem precisar digitar codigo
Gostei + 0
06/12/2007
Gandalf.nho
Gostei + 0
06/12/2007
Unix
Tem como alterar o charset de tudo..
Uma base de 200mb.
Gostei + 0
06/12/2007
Gandalf.nho
Recrie o banco usando o novo charset e depois copie os dados da base velha para a nova.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)