Passar valor para fun��o por ponteiro

Question

Gostaria de receber o objeto Q_aux da minha fun��o como ponteiro, de uma
Tadoquery;
A fun��o est� abaixo, mas n�o sei como fazer isso.

procedure TDM.Q_Exec (SQL:string;Q_Aux:TADOQuery);
begin
Q_Aux.Close;
Q_Aux.SQL.Clear;
Q_Aux.SQL.Add(SQL);
Q_Aux.Open;
end;

Beppe · Answer

Essa sua fun�o n�o necessita disso, ali�s, TADOQuery, j� � um ponteiro, disfar�ado. Voc� pode especificar o modo var no par�metro, para que ele receba um novo objeto dentro da fun��o, e a mudan�a persista ap�s ela, no argumento passado. Ainda � poss�vel paassar como ponteiro, como vc pediu, basta crair um novo tipo, para ^TADOQuery, e usar esse tipo.

F�rum Passar valor para fun��o por ponteiro #222662