If (FGrid.DataSource.DataSet.ClassNameIs('TZQuery') OR FGrid.DataSource.DataSet.ClassNameIs('TZTable')) Then
Ho come l'impressione che già conosca Zeos.
Così ad intuito. ;D
Stilgar
durante la chiusura del programma mi si pianta qui (con zeos, ma non credo sia un problema legato al dataset sottostante)
// Reset the internal datasource events to nil
FDatasource.OnDataChange := nil;
FDatasource.OnUpdateData := nil;
// Reset the Dataset OnFilterRecord to nil on the dataset linked to the grid
FGrid.Datasource.Dataset.OnFilterRecord := nil; <------