Jak uzyskać odniesienie do obiektu TQuery utworzonego w instrukcji WITH?

Question

Powiel możliwe:
Reference object instance created using “with” in Delphi

Jedną z metod, które używam do tworzenia obiektów zapytań w Delphi następująco pierwszą próbkę kodu. Daje mi odniesienie do obiektu i mogę następnie przekazać obiekt do funkcji.

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; 

Czy jest to również możliwe w instrukcji WITH, gdzie twój obiekt Create zawarty jest w instrukcji WITH?

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; 

Czy mogę przekazać ten dynamiczny obiekt do funkcji `funcDisplayDataSet (TQuery)?

Chciałbym tylko wiedzieć, czy jest to możliwe. Nie szukam podsumowania , dlaczego instrukcja WITH jest zła lub dobra. W tej rozmowie są inne posty dotyczące przepływu StackOver. *

Answer 1

To nie jest możliwe, ogólnie rzecz biorąc, w czysty sposób. Twoje opcje:

1. Dodaj metodę do klasy, która zwraca Self.
2. Przestań używać with i utwórz lokalną zmienną dla instancji.

Opcja 1 jest wykonalna, jeśli masz kontrolę nad klasą. Ale klasa wygląda raczej dziwnie. Dlaczego klasa potrzebuje metody instancji, która zwróciła instancję? Jeśli nie masz kontroli nad klasą, możesz użyć pomocnika klasowego, jak sugeruje RRUZ, ale traktuję użycie pomocy klasy jako ostateczność. Nigdy nie rozwiązałem problemu z pomocnikiem klasy.

To pozostawia opcję 2. W ten sposób rozwiązałbym problem.

Answer 2

A co z używaniem pomocnika klasowego?

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


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

I jak używać tej

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

Answer 3

with oświadczenie nie przewiduje odwołanie, które można użyć, aby przejść poza stwierdzeniem.

Z TQuery, można obejść stosując właściwość, która ma odniesienie do dominującej:

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;