¿Cómo se obtiene una referencia a un objeto TQuery creado en una declaración WITH?

Question

Duplicar posible:
Reference object instance created using “with” in Delphi

Un método que utilizo para crear objetos de consulta en Delphi sigue el primer ejemplo de código. Me da una referencia al objeto y puedo pasar el objeto a una función.

procedure SomeProcedure; 
var 
    qry: TQuery; 
begin 
    qry := TQuery.Create(nil); 

    with qry do 
    begin 
    Connection := MyConn; 
    SQL.Text := 'SELECT * FROM PEOPLE'; 
    Open; 

    funcDisplayDataSet(qry); 
    Free; 
    end; 

end; 

¿Es también posible hacer esto en una instrucción WITH donde su objeto en Crear contenida en la declaración CON?

procedure SomeProcedure; 
begin 
    with TQuery.Create(nil) do 
    begin 
    Connection := MyConn; 
    SQL.Text := 'SELECT * FROM PEOPLE'; 
    Open; 

    funcDisplayDataSet(???); // Here I'm unsure how to pass the object created... 
    Free; 
    end; 
end; 

¿Puedo pasar este objeto dinámico a una función como `funcDisplayDataSet (TQuery)?

Me gustaría saber si esto es posible. No estoy buscando un resumen sobre por qué la declaración WITH es mala o buena. Hay otras publicaciones de en el flujo de StackOver con esa discusión. *

Answer 1

Eso no es posible, en general, de una manera limpia. Sus opciones:

1. Agregue un método a la clase que devuelve Self.
2. Deje de usar with y cree una variable local para la instancia.

La opción 1 es viable si tiene control sobre la clase. Pero deja la clase bastante extraña. ¿Por qué una clase necesitaría un método de instancia que devolviera la instancia? Si no tienes control sobre la clase, podrías usar un ayudante de clase como sugiere RRUZ, pero considero el uso de ayudantes de clase como último recurso. Nunca he resuelto un problema con un ayudante de clase.

Eso deja la opción 2. Esta sería la forma en que resolvería el problema.

Answer 2

¿Qué tal el uso de un ayudante de clase?

type 
    TQueryHelper = class helper for TQuery 
    public 
    function Instance: TQuery; 
    end; 


function TQueryHelper.Instance: TQuery; 
begin 
    Result := Self; 
end; 

Y utilizar como esto

With TQuery.Create(nil) do 
    begin 
    SQL.Text:='Select * from OTGH'; 
    ShowMessage(Instance.SQL.Text); 
    end; 

Answer 3

El with declaración no proporciona una referencia que se puede utilizar para pasar fuera de la norma.

Con un TQuery, podría obtener alrededor de ella mediante el uso de una propiedad que tiene una referencia al padre:

begin 
    with TQuery.Create(nil) do 
    begin 
    Connection := MyConn; 
    SQL.Text := 'SELECT * FROM PEOPLE'; 
    Open; 
    // Fields have reference to parent component, but your implementation may vary 
    funcDisplayDataSet(TQuery(Fields.Fields[0].GetParentComponent)); 
    Free; 
    end; 
end;