Agregar Lineas a un campo memo...

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 begin
 Memo1.Lines.Add('Hola');
 end;

Un Saludo.

[[BlueSteel]]

lamentablemente ya intente con eso... pero solo me deja el primer registro....

[marcoszorrilla]

Pues si funciona con uno debiera de hacerlo con todos, seguro que la consutla devuelve 10 registros, por qué no pones una rejilla conectada a la consulta para ver realmente cuantos registros tienes, incluso puedes menter un ShowMessage en el bucle que te vaya mostrando el contenido que quieres anexar.

Un Saludo.

[[BlueSteel]]

ya encontre el error...

ambas sentencias funcionan bien... el Add y el Append....

lo que pasa es que lo estoy agregando a un informe en QReport... por lo tanto el componente TQRMemo no mostraba las demas líneas.... y eso que estaba con los atributos AutoSize:=True y la WordWrap :=True, pero me faltaba activa el atributo AutoStretch:=True

gracias igual...