¿Como capturar el ultimo lines.text de un Memo?

[danytorres]

Hola a todos los del Foro, la duda que tengo es que necisito capturar el ultimo String de un memo por ejemplo;


1
2
3
4
5

necesito capturar el 5 en edit. el codigo que empleo es el sigiente:

Edit1.text := Memo1.lines.text; lo que metrae es 1,2,3,4,5 me devuelve todo lo quetiene el Memo y no es lo que deseo. agradeceria a quien me pudiera ayudar. Gracias.

______________________________

un saludo..

[cso2000]

Hola:

Tal vez este codigo te sirva

Edit1.text := Memo1.Lines.String[Memo1.lines.count-1];


Saludos:

[Ruben_Cu]

Hola danytorres, simplificando un poco el código que te envió cso2000 te propongo que pruebes con:

procedure TForm1.Button1Click(Sender: TObject);
begin
        with Memo1 do Edit1.text:=Lines[Lines.Count-1];
end;

Saludos