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


Adriano_servitec

Adriano_servitec

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+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar