TBaseJSONDataSet

type TBaseJSONDataSet = class(TDataSet)

protected

  function LocateRecordIndex();

  function AllocRecordBuffer; override;

  procedure FreeRecordBuffer(); override;

  procedure InternalInitRecord(); override;

  procedure GetBookmarkData(); override;

  function GetBookmarkFlag(); override;

  function GetRecord(); override;

  function GetRecordSize; override;

  procedure InternalClose; override;

  procedure InternalDelete; override;

  procedure InternalFirst; override;

  procedure InternalGotoBookmark(); override;

  procedure InternalLast; override;

  procedure InternalOpen; override;

  procedure InternalPost; override;

  procedure InternalInsert; override;

  procedure InternalEdit; override;

  procedure InternalCancel; override;

  procedure InternalInitFieldDefs; override;

  procedure InternalSetToRecord(); override;

  function GetFieldClass(); override;

  function IsCursorOpen; override;

  procedure SetBookmarkFlag(); override;

  procedure SetBookmarkData(); override;

  function GetRecordCount; override;

  procedure SetRecNo(); override;

  function GetRecNo; override;

  procedure FreeData; virtual;

  procedure MetaDataToFieldDefs; virtual; abstract;

  procedure InitDateTimeFields; virtual;

  function ConvertDateTimeField(); virtual;

  function FormatDateTimeField(); virtual;

  function CreateFieldMapper; virtual;

  property OwnsData: Boolean; [rw]

  property MapUnknownToStringType: Boolean; [rw]

  property MetaData: TJSONObject; [rw]

  property Rows: TJSONArray; [rw]

  property RowType: TJSONRowType; [rw]

  property FieldMapper: TJSONFieldMapper; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetFieldData(); override;

  procedure SetFieldData(); override;

  function Locate(); override;

  function Lookup(); override;

  function BookmarkValid(); override;

  function CompareBookmarks(); override;

published

  property FieldDefs: TFieldDefs;

  property Active: Boolean;

  property BeforeOpen: TDataSetNotifyEvent;

  property AfterOpen: TDataSetNotifyEvent;

  property BeforeClose: TDataSetNotifyEvent;

  property AfterClose: TDataSetNotifyEvent;

  property BeforeInsert: TDataSetNotifyEvent;

  property AfterInsert: TDataSetNotifyEvent;

  property BeforeEdit: TDataSetNotifyEvent;

  property AfterEdit: TDataSetNotifyEvent;

  property BeforePost: TDataSetNotifyEvent;

  property AfterPost: TDataSetNotifyEvent;

  property BeforeCancel: TDataSetNotifyEvent;

  property AfterCancel: TDataSetNotifyEvent;

  property BeforeDelete: TDataSetNotifyEvent;

  property AfterDelete: TDataSetNotifyEvent;

  property BeforeScroll: TDataSetNotifyEvent;

  property AfterScroll: TDataSetNotifyEvent;

  property OnCalcFields: TDataSetNotifyEvent;

  property OnDeleteError: TDataSetErrorEvent;

  property OnEditError: TDataSetErrorEvent;

  property OnFilterRecord: TFilterRecordEvent;

  property OnNewRecord: TDataSetNotifyEvent;

  property OnPostError: TDataSetErrorEvent;

end;

TBaseJSONDataSet

TDataSet

TObject