Percorrer o dbgrig em busca de caracteres especiais?

Question

Ola pessoal, gostaria de saber se tem jeito de ao dar um clique num botao percorrer todo o campo do dbgrid e substituir caracteres especiais e acentos por letras normais.Tenho duas fun�oes que uso par...

Firekiller · Answer

Use assim, no OnClick de um bot�o coloque assim:

with DBGrid1.Datasource.Dataset do begin
first;
While not eof do begin
Edit;
FieldByName(�NomeDoCampo�).AsString := SEMCHAR(ract(FieldByName(�NomeDoCampo�).AsString));
Post;
Next;
End;
End;

Ou use no OnClose do Form.

Adriano_servitec · Answer

Ola amigo, assim ele percorre a tabela toda em busca de erros e caracteres especiais, mais ta dando um problema esta substituindo todos os dados pelo primeiro nome que ta na tabela, sera que tem algum problema na minha fun�ao?

Obrigado pela ajuda amigo

F�rum Percorrer o dbgrig em busca de caracteres especiais? #301151