Vamos a ahorrarnos una variable 
Código Delphi [-]
with tquickreport1b.create(self) do
try
qtodo.close;
qtodo.sql.Clear;
qtodo.sql.add(s);
qtodo.open;
preview;
finally Free; end;
chau
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|