Como chamar funçao?

Delphi

24/10/2005

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

Curtidas 0

Respostas

Emarcolongo

Emarcolongo

24/10/2005

dbedit1.text := ract(dbedit1.text);


GOSTEI 0
Adriano_servitec

Adriano_servitec

24/10/2005

Muito obrigado amigo, valeu mesmo, funcionou legal.

Abraços
T+


GOSTEI 0
POSTAR