TDataSet constructor

TDataSet([
  1. TComponent? aOwner
])

Implementation

TDataSet([TComponent? aOwner]) : super(aOwner) {
  _fieldDefs = fieldDefsClass();
  _fieldList = fieldsClass();
  _constraints = TCheckConstraints(this);

  // FBuffer must be allocated on create, to make Activebuffer return
  // nil (original comment kept as-is)
  _buffers.add(null); // ReAllocMem(FBuffers,SizeOf) + FBuffers[0]:=nil
  _activeRecord = 0;
  _bufferCount = -1;
  _eof = true;
  _bof = true;
  _isUniDirectional = false;
  autoCalcFields = true;
}