Pesquisa e substituição de uma String
Crie uma nova aplicação, insira dois edits, um memo e um botão. Agora crie a função FindReplace (ver abaixo).
procedure TForm1.FindReplace(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;
Adicione o código a seguir no evento OnClick do botão.
procedure TForm1.Button1Click (Sender: TObject);
begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;
Agora é só você digitar no Edit1 a string que substituirá a string do Edit2. Feito isso digite qualquer coisa no Memo1 (não se esqueça de digitar o valor que você deseja substituir).
por Erick Rhamnusia
