Agregar Lineas a un campo memo...

[[BlueSteel]]

Hola...

quisiera agregar unas lineas a un campo Tmemo... hasta el momento estoy haciendo el siguiente proceso.... pero no me funciona. Se supone que en la consulta existe al menos 10 registros, pero solo me agrega el primer registro

IBQ_Cargos.First;
While IBQ_Cargos.Eof=False Do
Begin
      sCargos.Lines.Append(Concat(IBQ_Cargos['Are_Codigo'],'   ',IBQ_Cargos['Are_Detalle'],'  $',FormatFloat('#,',IBQ_Cargos['Cos_Monto'])));
      IBQ_Cargos.Next;
End;

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