Como chamar funçao?
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
Curtidas 0
Respostas
Emarcolongo
24/10/2005
dbedit1.text := ract(dbedit1.text);
GOSTEI 0
Adriano_servitec
24/10/2005
Muito obrigado amigo, valeu mesmo, funcionou legal.
Abraços
T+
Abraços
T+
GOSTEI 0