TQuery como parametro

[jzk]

Hola a tod@s,

Tengo la necesidad imperiosa de pasar a un procedimiento un objeto TQuery como parametro pero no se como hacerlo (si es que fuera posible).

¿Algun@ de ustedes podría ayudarme?

[Neftali [Germán.Estévez]]

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;
 
....
 
 
// La llamada
...
var
  Query:TQuery;
begin
  Query := TQuery.Create(...);
  Query.SQL.Add(...);
  EjecutaQuery(Query);
...

[jzk]

Eso es lo que había intentado pero me da un error en la declaración del procedimiento diciendome : "Undeclared identifier: TQuery".

[quetzal]

Si no estoy errado creo que te falta que declares la unidad para usar la clase Tquery, agrega esto en el uses a DBTables.

espero te sirva

[jzk]

Lo tengo incluido de tal manera que quedaría así, pero me da el mismo error ;

unit procedimientos;
 .....
interface
 procedure ejecuta_sql( Q :TQuery);
  .....

 implementation
 
 uses sysutils,variants,Qdialogs,ExtCtrls,DBTables;
 
 procedure ejecuta_sql (Q:TQuery);

[Neftali [Germán.Estévez]]

Puesto que en interface tambien usas TQuery la unit DBTables no puede estar en el usues de implementation sino en el de interface.

Código Delphi [-]
unit procedimientos; 
  .....
interface
uses DBTables;
  procedure ejecuta_sql( Q :TQuery); 
  ..... 
implementation 
uses sysutils,variants,Qdialogs,ExtCtrls; 
procedure ejecuta_sql (Q:TQuery);

[jzk]

Ahora si que si, muchiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiisimas gracias a l@s dos (Neftali, quetzal)