Foros Club Delphi - Agregar Lineas a un campo memo...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Agregar Lineas a un campo memo... (https://www.clubdelphi.com/foros/showthread.php?t=18598)

BlueSteel

17-02-2005 14:55:01

Agregar Lineas a un campo memo...

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 :(

Código:

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

17-02-2005 17:49:00

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

Un Saludo.

BlueSteel

17-02-2005 18:51:23

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

marcoszorrilla

17-02-2005 19:02:55

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

17-02-2005 19:15:48

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

La franja horaria es GMT +2. Ahora son las 09:57:40.