Fórum Alterar uma string #596724
27/08/2018
0
Em um campo memo tem uma frase:
O cliente [nome] e identidade numero [identidade] residente [endereco].
Preciso trocar [nome] [identidade] [endereco] pelas variáveis criadas vnome, videntidade e vendereco.
Como faço isso? Alguma ideia?
Deste já obrigado.
Jorge Junior
Curtir tópico
+ 0Post mais votado
11/09/2018
Para isso você pode usar o método StringReplace do Delphi. Abaixo deixo um esboço que fiz para a solução do seu problema e o link para um artigo que explica o uso do StringReplace:
procedure TForm1.Button1Click(Sender: TObject);
var
ConteudoAtualMemo: String;
NovoConteudoMemo: String;
VNome: String;
begin
VNome := 'Fabricio';
//Guardo o conteúdo atual do Memo em uma variável
ConteudoAtualMemo := Memo1.Lines.Text;
// uso o StringReplace para substituir o indicar [nome] pelo valor definido na variável VMemo
NovoConteudoMemo := StringReplace(ConteudoAtualMemo, '[nome]', VNome, [rfReplaceAll]);
// por fim, atribuo o novo conteúdo ao Memo
Memo1.Lines.Text := NovoConteudoMemo;
end;
Link para um artigo sobre StringReplace: https://www.devmedia.com.br/delphi-stringreplace-como-utilizar-a-funcao-stringreplace-no-delphi/13222
Espero que tenha te ajudado.
Abraço!
Fabricio Kawata
Gostei + 2
Mais Posts
11/09/2018
Jorge Junior
Era isso mesmo que precisava, muito obrigado mesmo.
Gostei + 0
12/09/2018
Fabricio Kawata
Era isso mesmo que precisava, muito obrigado mesmo.
Disponha Jorge. Bons desenvolvimentos aí.
Abraço!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)