Analogia con Clipper

[JorgeBec]

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

[roman]

Simplemente declaras un parámetro de tipo TQuery:

Código Delphi [-]
procedure Prorrateo(Query: TQuery);
begin
end;

y le pasas cualquiera de los Query:

Código Delphi [-]
Prorrateo(qryVentas);
Prorrateo(qryVentas2);

etcétera

// Saludos

[guillotmarc]

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.

[JorgeBec]

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;


???

[guillotmarc]

Hola.

No funcionaria ese código. En el ejemplo que te he propuesto tienes incluído como debes tratar el datamodule.

Saludos.