Agregar etiquetas a cada linea de un memo
 

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 :eek:

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 :)

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

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

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

muchisimas gracias en estos momentos lo provare gracias