Como localizar um string dentro de outra, e remover?

Question

Ol�, tenho uma string.. gostaria de saber como fa�o pra localizar um string dentro dela, e remover ela desta string primaria...Desde ja agrade�o......

Diogoalles · Answer

uitlize a seguinte fun��o, que localiza o q vc quer dentro de um Rich , poderia ser um memo, e substitui por outra

Procedure FindReplace (const Enc, subs: String; Var Texto: TRichEdit);
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;

a� no clique de um bot�o vc pode inserir a chamada da fun��o

procedure TFrm001.Button1Click(Sender: TObject);
begin
  FindReplace(�O Texto q vc quer substituir�,�pelo novo valor�, RichEdit1);
end;

como vc quer remover uma string, localize ela e substitua por ��, que � o valor nulo.

abra�o

Diogo

Cebikyn · Answer

Tem fun��es no Delphi que fazem isso, mas eu recomendo usar as units do FastStrings, que fazem este tipo de coisa muito mais r�pido que qualquer fun��o do Delphi:

http://www.droopyeyes.com/default.asp?mode=ShowProduct&ID=4

As units s�o gratuitas.

Exemplo:

StringFinal := FastReplace( StringOriginal , StringParaLocalizar , ��);

F�rum Como localizar um string dentro de outra, e remover? #201642