como tirar acentos ao digitar em um dbedit
23/08/2004
0
Uso Fireird 1.5 e Delphi 7.
Zottis
Posts
23/08/2004
Aroldo Zanela
No evento OnKeyPress, siga o exemplo:
if not (Key in [´A´..´Z´, ´a´..´z´, ´0´..´9´]) then key := 0;
No exemplo acima vai impedir a entrada, mas você pode alterar para conseguir o efeito desejado, conforme abaixo:
if (Key in [´Á´,´À´,´Ã´]) then key := ´A´; if (Key in [´á´,´à´,´ã´]) then key := ´a´;
Só por curiosidade, qual o motivo?
23/08/2004
Vinicius2k
Outra solução seria usar uma função, no OnExit, por exemplo :
function RemoverAcentos(S: String): String; const StrA = ´áéíóúàèìòùãõâêîôûçüÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÃÕÇÜ´; StrB = ´aeiouaeiouaoaeioucuAEIOUAEIOUAEIOUAOCU´; var i,aPos: Integer; begin for i:= 1 to Length(S) do begin aPos:= Pos(S[i],StrA); if aPos > 0 then S[i]:= StrB[aPos]; end; Result:= S; end;
T+
23/08/2004
Zottis
Obrigado pela ajuda acho que já resolve o meu problema.
valeu
Clique aqui para fazer login e interagir na Comunidade :)