[resolvido] localizar E Substituir

[Luiz Ahumada]

Olá Amigos!

Estou fazendo um programa em Delphi 7 e uma de suas funções é:

O usuário digita um texto qualquer em um edit ou em um memo e após apertar um determinado botão (Converte), ele pega o texto e joga para um memo (mmfinal). Porém nesse novo memo eu quero que todos os caracteres de acentuação sejam substituídos por outra coisa:

á substitui por á

é substitui por é

í substitui por í

ó substitui por ó

ú substitui por ú

à substitui por à

ã substitui por ã

õ substitui por õ

ç substitui por ç

entre outros..

Resumindo:

usuário digita "avião" em um edt;

usuário aperta botão Converter;

mmfinal aparece "avião"

Muitíssimo grato pela ajuda!

Luiz Ahumada

[Churc]

Opa

veja se isso te ajudar...

Procedure AcheSubstitua (const Enc, subs: String; Var Texto: TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

Ai voce pode fazer...

AcheSubstitua('á', 'á', mmfinal);

Adapte as suas necessidades

abraçox

[Luiz Ahumada]

Funcionou!

Muito grato!!!