Foros Club Delphi - agregar una linea en la primera fila de un memo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - agregar una linea en la primera fila de un memo (https://www.clubdelphi.com/foros/showthread.php?t=68821)

agregar una linea en la primera fila de un memo

agrego varias lineas a un memo
memo1.add.lines(strlinea1)
memo1.add.lines(strlinea2)
memo1.add.lines(strlinea3)
...

ahora, quiero reescribir en la primera linea del memo
o agregar una linea en la primera fila del memo.

como hago.

Hola ingabraham.

Para insertar podés usar la función Insert, donde el primer parámetro es el
número de línea donde harás la inserción y el segundo la cadena de caracteres a insertar.

Ejemplo:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Add('LINEA 1');

  Memo1.Lines.Add('LINEA 2');

  Memo1.Lines.Insert(0,'LINEA INSERTADA')

end;

Para sobreescribir:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Add('LINEA 1');

  Memo1.Lines.Add('LINEA 2');

  Memo1.Lines[0]:= 'LINEA SOBREESCRITA';

end;

Donde el índice es el número de línea a sobreescribir ( en el ejemplo: 0)

Saludos