Cita:
Empezado por jzk
...Tengo la necesidad imperiosa de pasar a un procedimiento un objeto TQuery como parametro pero no se como hacerlo ...
|
Puedes pasar cualquier objeto por parámetro, incluído un TQuery:
Código Delphi
[-]
interface
...
procedure EjecutaQuery(Q:TQuery);
implementation
...
procedure EjecutaQuery(Q:TQuery);
begin
Q.Open;
end;
....
...
var
Query:TQuery;
begin
Query := TQuery.Create(...);
Query.SQL.Add(...);
EjecutaQuery(Query);
...