FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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;
__________________
BlueSteel |
#2
|
||||
|
||||
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
lamentablemente ya intente con eso... pero solo me deja el primer registro....
__________________
BlueSteel |
#4
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
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...
__________________
BlueSteel |
|
|
|