Delphi StringReplace: Como utilizar a fun��o StringReplace no Delphi

Em muitos casos precisamos fazer a substituiç�o de determinadas frases, palavras, ou at� mesmo um �nico char numa cadeia de caracteres (string, por exemplo). No Delphi temos uma funç�o para fazer essa tal substituiç�o: a funç�o StringRepalce.

A declaraç�o da funç�o StringReplace, localizada na Unit SysUtils pode ser feita da seguinte forma:

function StringReplace
  (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Imagine que voc� est� fazendo um sistema de integraç�o e chegou num ponto onde ser� necess�rio trocar uma determinada palavra em todo o arquivo. Vamos construir um exemplo para ficar mais usual. Criaremos um TStringList e uma procedure para preencher o mesmo, como mostra a Listagem 1.


  unit Unit1;
   
  interface
   
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;
   
  type
    TForm1 = class(TForm)
    private
   
    public
      pLista: TStringList;
      procedure CarregarStringList;
    end;
   
  var
    Form1: TForm1;
   
  implementation
   
  {$R *.dfm}
   
  procedure TForm1.CarregarStringList;
  begin
   
  end;
     
  end.

Listagem 1. Criando um TStringList

Implementaremos agora o conte�do de nossa lista. Para isso, v� at� o m�todo CarregarLista e implemente o seguinte c�digo da Listagem 2.

procedure TForm1.CarregarStringList;
begin
  if not Assigned(pLista) then
    pLista := TStringList.Create;

  pLista.Clear;
  pLista.Add('WESLEY YAMAZACK 219900000 LINGUAGEM: DelpHi');
  pLista.Add('HUGO CARDOSO  218800000 LINGUAGEM: Java');
  pLista.Add('FELIPE PEREIRA  217700000 LINGUAGEM: DelpHi');
  pLista.Add('ERICK CARLOS  217700000 LINGUAGEM: PL/SQL');
  pLista.Add('MARCOS CARDOSO  217700000 LINGUAGEM: DelpHi');
  pLista.Add('JOAO PIRES          216600000 LINGUAGEM: C#');
  pLista.Add('JULIO CARLOS  215500000 LINGUAGEM: Java');
end;

Listagem 2. Incrementando o m�todo CarregarLista

Seguindo com o nosso exemplo, precisaremos agora substituir onde aparece Linguagem: 1, para Linguagem: Delphi. Adicione um TButton em seu formul�rio e no evento onClick deste implemente o c�digo da Listagem 3.


  procedure TForm1.Button1Click(Sender: TObject);
  var
    lNovoConteudo: String;
  begin
    CarregarStringList;
    lNovoConteudo := StringReplace(pLista.Text, 'DelpHi', 'Delphi', 
     [rfReplaceAll, rfIgnoreCase]);
    ShowMessage( lNovoConteudo  );
  end;

Listagem 3. Adicionando TButton

Com essa rotina, todo o conte�do 'DelpHi' de nossa lista pLista, ser� trocado por Delphi, como mostrado a seguir:


WESLEY YAMAZACK 219900000 LINGUAGEM: 3
HUGO CARDOSO  218800000 LINGUAGEM: 2
FELIPE PEREIRA          217700000 LINGUAGEM: Delphi
ERICK CARLOS          217700000 LINGUAGEM: Delphi
MARCOS CARDOSO  217700000 LINGUAGEM: Delphi
JOAO PIRES          216600000 LINGUAGEM: 3
JULIO CARLOS          215500000 LINGUAGEM: 2

Por�m, voc�s podem ficar curiosos e se perguntarem o que �: rfReplaceAll e rfIgnoreCase? Vamos � explicaç�o:

rfReplaceAll � quer dizer que voc� gostaria de substituir todas as incid�ncias do conte�do �DelpHi�. Caso voc� n�o o informe, ser� substitu�do apenas a primeira incid�ncia de �DelpHi�, ficando desta forma:
WESLEY YAMAZACK 219900000 LINGUAGEM: Delphi HUGO CARDOSO 218800000 LINGUAGEM: Java FELIPE PEREIRA 217700000 LINGUAGEM: DelpHi ERICK CARLOS 217700000 LINGUAGEM: PL/SQL MARCOS CARDOSO 217700000 LINGUAGEM: DelpHi JOAO PIRES 216600000 LINGUAGEM: C# JULIO CARLOS 215500000 LINGUAGEM: Java
rfIgnoreCase � quer dizer que voc� n�o gostaria de se preocupar com os caracteres case sensitive, ou seja, a ou A � a mesma coisa, caso voc� n�o o informe, s� ser� substitu�do o conte�do escrito de forma 100% igual, logo, DelpHi � diferente de Delphi e o conte�do n�o ser� modificado. Vamos fazer um teste implementando o c�digo a seguir:
procedure TForm1.Button1Click(Sender: TObject); var lNovoConteudo: String; begin CarregarStringList; lNovoConteudo := StringReplace(pLista.Text, 'DELPHI', 'Delphi', []); ShowMessage( lNovoConteudo ); end;

Em nenhum momento na nossa pLista o conte�do foi escrito �DELPHI�. Neste caso nada ir� acontecer com o nosso conte�do. Para que funcione, basta adicionar o par�metro rfIgnoreCase, e voc� ter� o conte�do modificado, como mostrado na Listagem 4.


  procedure TForm1.Button1Click(Sender: TObject);
  var
    lNovoConteudo: String;
  begin
    CarregarStringList;
    lNovoConteudo := StringReplace(pLista.Text, 'DELPHI', 'Delphi', [rfIgnoreCase]);
    ShowMessage( lNovoConteudo  );
  end;

Listagem 4. Trabalhando com o par�metro rfIgnoreCase

Com isso, podemos fazer modificaç�es em qualquer conte�do usando ou n�o caracteres case sensitive, trocando apenas a primeira ou todas as incid�ncias de uma palavra.

Saiba mais sobre Delphi ;)

Programador Delphi:
Neste guia de estudos voc� encontra os conte�dos que precisar� para se tornar um programador Delphi completo. Confira a sequ�ncia de cursos e exemplos que te guiar�o do b�sico ao avançado em Delphi.
Nota fiscal eletr�nica na pr�tica:
A Nota Fiscal Eletr�nica consiste de um arquivo XML, o qual � preenchido com os dados de uma movimentaç�o de mercadoria ou serviço, assinado digitalmente e enviado para a SEFAZ do estado no qual o contribuinte reside.

Delphi StringReplace: Como utilizar a fun��o StringReplace no Delphi

Veja nesse artigo um exemplo do uso da função StringReplace no Delphi. A função StringReplace é muito utilizada quando queremos substituir o conteúdo de alguma string na linguagem Delphi.

Saiba mais sobre Delphi ;)

Artigos relacionados