Grabar en primera linea en TMemo
 

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.

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

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

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