Ver Mensaje Individual
  #2  
Antiguo 14-10-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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;
 
....
 
 
// La llamada
...
var
  Query:TQuery;
begin
  Query := TQuery.Create(...);
  Query.SQL.Add(...);
  EjecutaQuery(Query);
...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita