Alterar uma string
Amigos, vou tentar explicar o que preciso.
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.
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
Curtidas 0
Melhor post
Fabricio Kawata
11/09/2018
Fala Jorge!
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!
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!
GOSTEI 2
Mais Respostas
Jorge Junior
27/08/2018
Show de bola Fabricio Kawata
Era isso mesmo que precisava, muito obrigado mesmo.
Era isso mesmo que precisava, muito obrigado mesmo.
GOSTEI 0
Fabricio Kawata
27/08/2018
Show de bola Fabricio Kawata
Era isso mesmo que precisava, muito obrigado mesmo.
Era isso mesmo que precisava, muito obrigado mesmo.
Disponha Jorge. Bons desenvolvimentos aí.
Abraço!
GOSTEI 0