Parrafos de un Memo

[ecfisa]

Hola sac .

Como te menciona Lepe, el concepto de parrafo no se lleva bién con el TMemo.

No sé si te sirva captuar el mensaje EM_CHARFROMPOS y empezar a retroceder columnas y filas e intentar encontrar la secuencia CRLF inicial para tomar la cadena comprendida hasta la próxima. Según tengo entendido los saltos de línea no son almacenados en el buffer de texto del TMemo.

Algo que se me ocurre es considerar en el Memo1 cada línea como un párrafo.

Un ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\ARCHIVO.TXT');
  Memo1.WordWrap:= False; // (una línea es un párrafo)
end;

procedure TForm1.Memo1Click(Sender: TObject);
begin
  Memo2.Lines.Add(Memo1.Lines[SendMessage(memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0)]);
end;

Saludos.