Delphi - linea en un memo

 
Vista:

linea en un memo

Publicado por Murphys (15 intervenciones) el 02/11/2007 04:02:11
Como localizar una línea determinada en un memo y pasarla (extraerla) a un edit.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:linea en un memo

Publicado por M@rceloL (42 intervenciones) el 03/11/2007 16:00:12
Bueno, podés usar la propiedad Lines de la TMemo:

Digamos, Edit1.Text:=Memo1.Lines[3] Me da la tercera línea del memo.

Con este enfoque, buscar la linea podría ser algo así:

var ind:integer;
salir:boolean;
begin
ind:=0;
Salir:=false;
while (ind<Memo1.Lines.Count) and not Salir do
begin
if Memo1.Lines[ind]='hola' then
begin
Edit1.Text:=Memo1.Lines[ind];
Salir:=true;
end
else
inc(ind);
end;

Quizás la comparación de la línea no tiene mucho sentido, digo, si uno sabe lo que quiere extraer, simplemente puede poner el texto en el edit, no necesita buscarlo... :)

Quizás lo que quieras es buscar una determinada frase o palabra en la línea. Entonces en vez de la comparación con =, podría usarse la función AnsiContainsStr, de la unidad StrUtils.

Espero te sirva. Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:linea en un memo

Publicado por erdani (5 intervenciones) el 28/03/2012 19:22:23
no entendi mucho lo q dijiste.
ya lo e probado y no me sirve.
(pero necesito un codigo q me sirva: q cuando yo le de clip a unas de las lineas me pase la informacion al edit ).espero tu respuesta y gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar