F�rum CONVERS�O DE ARQUIVOS EM TABELAS DBF. #158874

Kra eu criei uma funcao que faz o contrario, retira os acentos nas frases. Da pra voce mudar essa funcao e utilizar no que voce precisa. ai vai:

Function TiraAcento(Frase:String):String;
Var ComAcento : String;
SemAcento : String;
posicao,I : Integer;
Letra : String;
FraseCerta: String;
Begin
ComAcento := ����������º������������������������������������Ǵ;
SemAcento := �aAaAaAaAaA eEeEeEeEiIiIiIiIoOoOoOoOoOuUuUuUuUcC�;
FraseCerta := ��;
For I:=1 To Length(Frase) Do
Begin
Letra := Copy(Frase,I,1);
Posicao := Pos(Letra,ComAcento);
If posicao <> 0 Then
FraseCerta := FraseCerta + Copy(SemAcento,Posicao,1)
Else FraseCerta := FraseCerta + Letra;
End;
TiraAcento := FraseCerta;
End;

Voce pode usar a mesma rotina desta funcao para criar textos encriptados.

flws