canoboss
29-12-2004, 20:54:12
Hola a todos.
Tengo un par de problemas ke no consigo solucionar. El primero es k no consiguo imprimir el contenido de un DBGrid lo unico ke puedo imprimir el es contenido de un RichEdit. El segundo problemilla es ke al intentar pasar los datos de una tabla d mi base de datos a un RichEdit (para intentar imprimirlos) no puedo cuadrar las tabulaciones y me kedan asi:28 Manuela Garcia Hurtado XXXXXXXX
29 Sonia Martinez XXXXXXXX
30 José Antonio Mellado Gil XXXXXXXX
Y me gustaria me saliera bien tabulado como si fuera una tabla.
El codigo ke uso es el siguiente:
DataModule2->Clientes->FindFirst();
RichEdit1->Lines->Add(DataModule2->Clientes->FieldByName("dni")->AsString+"\t"+
RichEdit1->Paragraph->TabCount+
DataModule2->Clientes->FieldByName("nombre")->AsString+" "+
DataModule2->Clientes->FieldByName("apellidos")->AsString+"\t"+
DataModule2->Clientes->FieldByName("telefono")->AsString+"\n");
while(DataModule2->Clientes->FindNext()==true)
{
RichEdit1->Lines->Add(DataModule2->Clientes->FieldByName("dni")->AsString+"\t"+
DataModule2->Clientes->FieldByName("nombre")->AsString+" "+
DataModule2->Clientes->FieldByName("apellidos")->AsString+"\t"+
DataModule2->Clientes->FieldByName("telefono")->AsString+"\n");
}
Muxas gracias anticipadamente.:D
Tengo un par de problemas ke no consigo solucionar. El primero es k no consiguo imprimir el contenido de un DBGrid lo unico ke puedo imprimir el es contenido de un RichEdit. El segundo problemilla es ke al intentar pasar los datos de una tabla d mi base de datos a un RichEdit (para intentar imprimirlos) no puedo cuadrar las tabulaciones y me kedan asi:28 Manuela Garcia Hurtado XXXXXXXX
29 Sonia Martinez XXXXXXXX
30 José Antonio Mellado Gil XXXXXXXX
Y me gustaria me saliera bien tabulado como si fuera una tabla.
El codigo ke uso es el siguiente:
DataModule2->Clientes->FindFirst();
RichEdit1->Lines->Add(DataModule2->Clientes->FieldByName("dni")->AsString+"\t"+
RichEdit1->Paragraph->TabCount+
DataModule2->Clientes->FieldByName("nombre")->AsString+" "+
DataModule2->Clientes->FieldByName("apellidos")->AsString+"\t"+
DataModule2->Clientes->FieldByName("telefono")->AsString+"\n");
while(DataModule2->Clientes->FindNext()==true)
{
RichEdit1->Lines->Add(DataModule2->Clientes->FieldByName("dni")->AsString+"\t"+
DataModule2->Clientes->FieldByName("nombre")->AsString+" "+
DataModule2->Clientes->FieldByName("apellidos")->AsString+"\t"+
DataModule2->Clientes->FieldByName("telefono")->AsString+"\n");
}
Muxas gracias anticipadamente.:D