Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

AndréAraujo

Inserir Tags em varias linhas de um texto de um TMemo

Recommended Posts

Olá Pessoal, eu estou tentando criar uma rotina que inseri tags em

todas as linhas de um texto, mais não estou tendo muito sucesso.

 

ex:

 

Texto no Memo

Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto

Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto

E ao clicar em um botão o texto tem que ficar assim inclusive as

linhas em branco.

Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />

Alguém conhece uma forma de realizar esta ação?

Desde já agradeço a atenção!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso é bem simples... basta criar um laço de 0 até o total de linhas do memo -1 e depois inserir a tag.. veja como exemplo o código abaixo.

 

 

procedure TForm1.Button1Click(Sender: TObject);
var iLinha : integer;
begin
   For iLinha := 0 to Memo1.Lines.Count -1 do
       Memo1.Lines[iLinha] := Memo1.Lines[iLinha] + '<br />';
end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.