Substituir caracter na string

Question

Ol�.Boa noite a todos.como fa�o para substituir um caracter na string.Exemplo:Tenho a string �vaca�.Quero substituir a letra �a� por �b�. ficaria assim, ap�s executado o c�digo: �Vbcb�Obrigado....

Huidemar Costa · Accepted Answer

� a mesma ideia, uma forma seria utilizar o StringList.[code]var  Arquivo : TStringList;begin  try    Arquivo.LoadFromFile(arquivo.txt);    Arquivo.Text := StringReplace(Arquivo.Text, cnpj,...

Madcat · Answer

Procura e substitui��o de string num campo memo

Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;

Procedure 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;

Micheus · Answer

Se vc utiliza D7, pode utilizar a fun��o StringReplace (SysUtils). Ex.:

Texto := �vaca�;
Texto := StringReplace(Texto, �a�, �b�, [rfReplaceAll, rfIgnoreCase]);

Observe que � poss�vel definir se ser� substituida apenas a 1� ocorr�ncia ou todas, bem como se ser�o diferenciadas mai�sculas de min�sculas.

Dbergkamps10 · Answer

Obrigado aos dois companheiros que responderam. Funcionou perfeitamente.Atenciosamente,Dalton...

Marcos Cruz · Answer

ola como eu faria isso para usar em arquivo txt quero pegar determinado valor tipo um CNPJ e trocar...

Marcos Cruz · Answer

ola como eu faria isso para usar em arquivo txt quero pegar determinado valor tipo um CNPJ e trocar...

F�rum Substituir caracter na string #325442