Buscar por:

Substituir strings em um memo

Código

/*Pra vocês ai que querem traduzir alguma coisa ou qualquer outra coisa lá vai o comando para substituir:

*/

procedure TForm1.Button1Click(Sender: TObject);

  var

  Qtde_Palavras, Linha : Integer;

  begin

   For Qtde_Palavras := 1 to (número de chars por  linha) do

    begin

    For Linha := 0 to (Memo1.Lines.Count) do begin

    Memo1.Lines.Strings[Linha] := StringReplace(Memo1.Lines.Strings[Linha], 'palavra', 'teste', [rfIgnoreCase]);

Memo1.Lines.Strings[Linha] := StringReplace(Memo1.Lines.Strings[Linha], '1', '2', [rfIgnoreCase]);

      end;

     end;

end;