Grabar en primera linea en TMemo

[[brakaman]]

Hola :

Estoy pasando datos de un TEdit a un Tmemo con lo habitual

Tmemo1.Lines.Add(Edit1.Text);

Entonces siempre cuando empieza a colocar datos lo hace en la segunda linea.

¿Como cambiar y que empiece en la primera linea?

y puestos con el TMemo, cuando haces la operacion contraria, pasar una linea al TEdit, ¿Como quitar las 2 barras verticales que coloca delante y detras del texto?

Gracias a todos.

[[maeyanes]]

Veamos...

Si quieres siempre iniciar en la primera línea puedes hacer:

Código Delphi [-]
Memo1.Lines.Clear;
Memo1.Lines.Add(Edit1.Text);

Sobre tu segunda pregunta, no entiendo mucho... que barras verticales dices que coloca? Puedes poner un ejemplo?



Saludos...

[[brakaman]]

Hola .

Correcto la primera pregunta,

en cuanto a la segunda se produce cuando asignas el contenido del Memo al Edit.

Ejemplo Edit1.Text:= Memo1.Lines.Text;

Sale esto .... Asignar al Memo||
Me refiero a las barras verticales que añade, y por cierto ¿Como se traspasaria solo una linea del memo?, no encuentro el indice en las propiedades del Tstring Lines.

Gracias

[[maeyanes]]

Ah ya... las lineas solo son una representanción del retorno de carro/salto de línea...

Para obtener solo una línea del memo en un edit solo tienes que hacer:

Código Delphi [-]
Edit1.Text := Memo1.Lines[0]; // Esta es la primera línea
Edit1.Text := Memo1.Lines[1]; // Segunda línea y así sucesivamente hasta Memo1.Lines.Count - 1

Saludos...