TServerIndexDefs constructor

TServerIndexDefs(
  1. TDataSet? aDataSet
)

Implementation

TServerIndexDefs(TDataSet? aDataSet) : super(aDataSet) {
  if (aDataSet is! TCustomSQLQuery) {
    databaseErrorFmt(SErrNotASQLQuery, [aDataSet?.name ?? '']);
  }
}