Club Builder

[Xpto]

Me gustaría saber buscar en un TMemo una palabra , saber en que línea está y seleccionar la linea para poder copiarla.
Gracias

[Angel]

Se me ocurre lo siguiente, aprovechando la propiedad Text, poniendo el código por ejemplo en un evento OnExit de un TEdit:

[Xpto]

Funciona perfectamente pero cómo se en que línea se encuentra??
ya que luego quiero coger todo lo que se encuentra en esa linea y creo que se hace mediante la función "Trim".
Gracias Angel
Saludo2

[el diego]

Tal vez contando los "\n" (bajada de linea) que hay hasta la posicion donde esta la palabra. La linea termina en el "\n" siguiente. (en realidad son dos caractares los que dan la bajada de linea. No recuerdo en este momento cual es el otro).
La funcion Trim() es para sacar los espacios en blanco al comienzo y final de una cadena de texto.

saludos

[Angel]

Vale. No ha bía entendido la pregunta completa. Par bsucar la línea no te vale la función Trim, que se limita a elminar los espacios delante y detrás de la cadena. Prueba esto, que es lo que sugiere Diego:

[Xpto]

Gracias por la respuesta al Diego y a tí,
Estoy mirando el código y en las últimas líneas en cadena resultado, el cLinea no me da ningún valor, me da en blanco, los otros me dan valores pero el último no. Voy a seguir mirando...

Muchas gracias
Saludo2

[Angel]

Evidentemente, y eso se me olvidó ponerlo en el código, si las variables son iguales no hay nada que sacar, y esto puede pasar por ser otro el carácter de final de línea. Con ese control el código sería este:

[Xpto]

Vamos a ver que te parece esto, y si se puede ajustar, ya que puede darme la línea, o darme una por encima o una por debajo.
He puesto 3 Edit y el memo.
Entoces lo que hace es ir sumando la longitud de cada línea hasta que sobrepase donde se encuentra la palabra a buscar (nPos). y luego le resto 1, pero la pega es la comentada, puedo acertar y también fallar por 1.



En el evento OnExit de uno de ellos:





int nPos;


cPalabra ="*********";

// Con esto miramos si está la palabra
if ((nPos = Memo5->Text.Pos(cPalabra)) != 0)
{
int i,b,total;
Edit3->Text=0;
for(i=0;i<=Memo5->Lines->Count;i++){
int a=Edit3->Text.ToInt();
if(a>=nPos){Edit7->Text=i-1;goto fin;};
b=Memo5->Lines->Strings[i].Length();
total=a+b;Edit3->Text=total;}
fin:;

[el diego]

hola, basandome en el ejemplo de Angel hice algunas modificaciones para encontrar en que linea esta:

[Angel]

He probado mi propio código (reconozco que lo he puesto de cabeza) con un proyecto con un TMemo, dos TEdit y un botón, y he conseguido que funcione así:

[el diego]

Angel, a mi me funciona bien. No habia entendido bien. Pense que solo hacia falta el numero de lineas y seleccionar el texto (me parecia raro tu codigo por ese motivo jeje).

saludos
diego