TIBQuery: Evento OnBeforeOpen

[Angel.Matilla]

Estoy trabajando con BCB 6.

Para simplificar código quería hacer que dos TIBQuery que tengo llamaran a los mismos eventos OnAfterOpen y OnBeforeOpen.
Con el primero de ellos no tengo problema y con el evento definido así me funcionan los dos:

void __fastcall TForm1::AfterOpen(TDataSet *DataSet)
{
     DataSet->Last();
     DataSet->First();
}
//---------------------------------------------------------------------------

pero con el otro el código que he puesto no va:

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     DataSet->Prepare();
}
//---------------------------------------------------------------------------

Ya he comprobado que el método Prepare() es propio del query y no del DataSet. ¿Cómo tendría que definir un query genérico para que ese evento me sirviera para ambos TIBQuery? No sé si me he logardo explicar.

He probado a definir ese query con

TIBQuery *qQuery = new TIBQuery(this);

y tratar de heredar las propiedades del DataSet, pero no acabo de dar con la manera.

[[AgustinOrtu]]

Facil, castea el objeto DataSet a TIBQuery:

Código PHP:

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     TIBQuery(DataSet) ->Prepare();
} 


[Angel.Matilla]

Empezado por AgustinOrtu

Facil, castea el objeto DataSet a TIBQuery:

No; me da error al compilar (E2288 Pointer to structure required on left side of -> or ->*)

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     TIBQuery(DataSet)->Prepare();
}
//----------------------------------------------------------------------------

[[AgustinOrtu]]

Bueno en realidad no he usado nunca C++ Builder

Pero la idea es castear la referencia de DataSet a la clase TIBQuery

Ejemplo en la documentacion

Código PHP:

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     TIBQuery *Query = dynamic_cast<TIBQuery *>(Sender);
     if (Query)
     Query ->Prepare();
} 


[Angel.Matilla]

Empezado por AgustinOrtu

Código PHP:

void __fastcall TForm1::BeforeOpen(TDataSet *DataSet)
{
     TIBQuery *Query = dynamic_cast<TIBQuery *>(Sender);
     if (Query)
     Query ->Prepare();
} 


De acuerdo. Me estaba empeñando en hacerlo a "lo bruto". Ese código que me has puesto es el que vale. Muchísimas gracias.