FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Analogia con Clipper
otra pregunta Comunidad, tengo un problema, resultase que necesito hacer una funcion que obviamente sirva para varios procesos, y uno de los parametros seria enviarle un Tquery, o sease que ese parametro variara de acuerdo al proceso, siendo mas claro. Ejemplo
Prorrateo('qryVentas'); . . . Prorrateo('qryVentas2'); Function Prorrateo(<pQuery>) begin dmDatos.pQuery.First; ....Mas lineas end; por ejemplo necesito recibir en pQuery qryVentas o qryVentas2, el problema es para que en la funcion prorrateo pQuery realmente tome qryVentas o qryVentas2...esto para quienes fuimos clipperos se podia hacer con un &pQuery (sino mal recuerdo), pero en Delphi???...espero me haya explicado...saludos
__________________
Visita mi Weblog de Ingeniería de Software... |
#2
|
||||
|
||||
#3
|
||||
|
||||
Hola Jorge.
Pues casi tienes bien el código, solo te falta indicar que el parámetro que pasas es de tipo TQuery (pasa directamente el Query, no una cadena con el nombre del Query para usarlo en una macro) ... y a correr : Prorrateo(dmDatos.qryVentas); /* Pasas realmente el Query */ ... ... Prorrateo(dmDatos.qryVentas2); Function Prorrateo(pQuery: TQuery) /* En el parámetro indicas que pasas un Query */ begin pQuery.First; /* Puedes trabajar normalmente con el Query */ .... end; NOTA: He puesto TQuery asumiendo que es un Query del BDE, pero deberias cambiarlo por TADOQuery, TSQLQuery, TIBQuery, ... si estas usando ADO, BDE, IBX, ... Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#4
|
|||
|
|||
Solo para aclarar Roman entonces de acuerdo al ejemplo que me das quedaria asi
procedure Prorrateo(Query: TQuery); begin dmDatos.Query.First; ....Mas lineas end; ???
__________________
Visita mi Weblog de Ingeniería de Software... |
#5
|
||||
|
||||
Hola.
No funcionaria ese código. En el ejemplo que te he propuesto tienes incluído como debes tratar el datamodule. Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
|
|
|