Fórum Como chamar funçao? #300455
24/10/2005
0
Ola amigos como faço para chamar essa funçao do events onexit de um dbedit?
function RACT(texto: string): string; stdcall;
{Função que serve para identificar uma acento, cedilha ou trema em caracteres com letra
maiúscula ou minúscula; recebe como variável uma string; retorna uma string.}
const
ComAcento = ´àâêôûãõáéíóúçüñÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuNAAEOUAOAEIOUCU´;
var
x: Integer;
begin
for x := 1 to Length(texto) do
if Pos(texto[x], ComAcento) <> 0 then
texto[x] := SemAcento[Pos(texto[x], ComAcento)];
Result := texto;
end; // da função RemoveAcentoCedilhaTrema
Obrigado
function RACT(texto: string): string; stdcall;
{Função que serve para identificar uma acento, cedilha ou trema em caracteres com letra
maiúscula ou minúscula; recebe como variável uma string; retorna uma string.}
const
ComAcento = ´àâêôûãõáéíóúçüñÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuNAAEOUAOAEIOUCU´;
var
x: Integer;
begin
for x := 1 to Length(texto) do
if Pos(texto[x], ComAcento) <> 0 then
texto[x] := SemAcento[Pos(texto[x], ComAcento)];
Result := texto;
end; // da função RemoveAcentoCedilhaTrema
Obrigado
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
24/10/2005
Emarcolongo
dbedit1.text := ract(dbedit1.text);
Responder
Gostei + 0
24/10/2005
Adriano_servitec
Muito obrigado amigo, valeu mesmo, funcionou legal.
Abraços
T+
Abraços
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)