Parrafos de un Memo

[sac]

Hola gente quería saber si alguno me puede guiar en algo que al principio parecia sencillo.
necesito cargar un txt en un memo pero necesito que al hacer un click sobre un párrafo cualquiera de ese txt, éste se vea en otro memo. Solamente el párrafo seleccionado no se si soy claro.
Desde ya gracias.

[[Lepe]]

Un memo no tiene párrafos.

Se entiende "párrafo" como un texto con etiquetas "paragraph" típicamente usadas en RichEdits.

Para simular algo así, tendrás que buscar los caracteres #13 (salto de carro) y #10 (salto de línea) que normalmente vienen como #13#10 (ó $D$A en Hexadecimal, que seguro lo has visto en el depurador de Delphi). Puedes usar la función PosEx para buscar la primera ocurrencia y la siguiente de esos caracteres.

Es lo único que se me ocurre, a ver si alguien aporta algo mejor.

Saludos

[Casimiro Noteví]

Si es un memo "normal y corriente" entonces seguramente tendrá el $D$A en cada línea, por lo que habría que saber cómo es el texto que se va a procesar, lo mismo cada "párrafo" (en esta ocasión) tiene 2 saltos de línea (por decir algo) y entonces con buscar $D$A$D$A ya podría servir.
Digo yo, haría falta ver un ejemplo.

[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.

[sac]

Mmm está complicado no? Estoy probando lo que me aconsejaron.
Lo otro sería usar un archivo PowerPoint ver todas las diapositivas y cada diapositiva que se cliquea que aparezca en un memo pero obviamente creo que esto debe ser el doble de complicado. Sigo intentando.

[Casimiro Noteví]

Empezado por sac

Mmm está complicado no?

No, no es que esté complicado, es que no tenemos el fichero para poder probar
Además de que no nos explicas los resultados de las pruebas que se te han comentado.

Y no sé a qué viene lo del powerpoint y diapositivas, ¿Pero de qué estamos hablando?

Como se dice hoy en día, nos falta feedback por tu parte