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

uploader@clubedelphi.net