Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 21/10/09
Por: Gabriel
Visualizada: 4320 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009