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]]

...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:


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 :cool:

[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.


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)