Come si ottiene un riferimento a un oggetto TQuery creato in un'istruzione WITH?

Question

Eventuali duplicati:
Reference object instance created using “with” in Delphi

Un metodo che uso per creare oggetti di query in Delphi segue il primo esempio di codice. Mi dà un riferimento all'oggetto e posso quindi passare l'oggetto a una funzione.

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; 

E 'anche possibile fare questo in un comunicato in cui il vostro CON oggetto Crea nel contenuta nella dichiarazione 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; 

Posso passare questo oggetto dinamico a una funzione come `funcDisplayDataSet (TQuery)?

Vorrei solo sapere se questo è possibile. Non sto cercando un riepilogo sul motivo per cui l'istruzione WITH è buona o cattiva. Ci sono altri post sul flusso StackOver con quella discussione. *

Answer 1

Questo non è possibile, in generale, in modo pulito. Opzioni disponibili:

1. Aggiungere un metodo alla classe che restituisce Self.
2. Interrompere l'utilizzo di with e creare una variabile locale per l'istanza.

L'opzione 1 è valida se si ha il controllo sulla classe. Ma lascia la classe molto strana. Perché una classe dovrebbe aver bisogno di un metodo di istanza che ha restituito l'istanza? Se non hai il controllo sulla classe, potresti usare un helper di classe come suggerisce RRUZ, ma considero l'utilizzo degli helper di classe come ultima risorsa. Non ho mai risolto un problema con un aiutante di classe.

Ciò lascia l'opzione 2. Questo sarebbe come risolverei il problema.

Answer 2

Che ne pensi di un helper di classe?

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


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

E utilizzare come questo

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

Answer 3

Il with comunicato non fornisce un riferimento che è possibile utilizzare per passare al di fuori della dichiarazione.

Con un TQuery, si potrebbe ottenere intorno ad esso utilizzando una proprietà che ha un riferimento 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;