Agregar etiquetas a cada linea de un memo

[Gerson12]

bueno mi duda es que quiero agregar ciertas etiquetas a cada linea del memo pero estoy usando un codigo que es este

Código Delphi [-]
if Memo1.Lines.Count >0 then
begin
Memo1.Lines[0]:='etiqueta1'+memo1.lines[0]+'etiqueta2';
 end;

pero en el codigo especifica que agrege las etiquetas a la primera linea pero quiero saber si se puede hacer alguna forma en la cual en el memo se agrege en cada linea que tenga un texto
Espero que esta ves si me entiendan
Gracias

[Casimiro Notevi]

Pues crea un bucle para recorrer todas las líneas, no solamente la línea cero, que es lo que estás haciendo en ese código.
Algo así como:

Código Delphi [-]
var iX : integer;
begin
  for iX=0 to memo1.lines.count-1 do
    memo1.lines[iX] := 'etiqueta1' + memo1.lines[iX] + 'etiqueta2';
end;

[Gerson12]

Empezado por Casimiro Notevi

Pues crea un bucle para recorrer todas las líneas, no solamente la línea cero, que es lo que estás haciendo en ese código.
Algo así como:

Código Delphi [-]
var iX : integer;
begin
for iX=0 to memo1.lines.count-1 do
  memo1.lines[iX] := 'etiqueta1' + memo1.lines[iX] + 'etiqueta2';
end;

lo provare amigo ^^ muchas gracias

[Gerson12]

amigo muy buena tu respuesta pero al momento que genera las etiquetas que deseo los genera nuevamente al momento de presionar nuevamente el boton pero habra alguna forma de evitar esto espero mme hayan entendido

[Casimiro Notevi]

No, lo siento, no lo he entendido.
Tendrás que explicar exactamente qué quiéres hacer y qué estás haciendo.

[roman]

Empezado por Gerson12

amigo muy buena tu respuesta pero al momento que genera las etiquetas que deseo los genera nuevamente al momento de presionar nuevamente el boton pero habra alguna forma de evitar esto espero mme hayan entendido

Tendrías que comprobar en cada línea si ya está la etiqueta, por ejemplo:

Código Delphi [-]
var iX : integer;
begin
for iX=0 to memo1.lines.count-1 do
  if Pos('etiqueta1', memo1.lines[iX]) <> 0 then
    memo1.lines[iX] := 'etiqueta1' + memo1.lines[iX] + 'etiqueta2';
end;

// Saludos

[Gerson12]

muchisimas gracias en estos momentos lo provare gracias