TFixedFormatDataSet

type TFixedFormatDataSet = class(TDataSet)

protected

  FData: TSDFStringList;

  FDataOffset: Integer;

  FCurRec: Integer;

  FRecordSize: Integer;

  FRecBufSize: Integer;

  FRecInfoOfs: Integer;

  FLastBookmark: PtrInt;

  FSaveChanges: Boolean;

  FDefaultRecordLength: Cardinal;

  function AllocRecordBuffer; override;

  procedure FreeRecordBuffer(); override;

  procedure InternalAddRecord(); override;

  procedure InternalClose; override;

  procedure InternalDelete; override;

  procedure InternalFirst; override;

  procedure InternalGotoBookmark(); override;

  procedure InternalHandleException; override;

  procedure InternalInitFieldDefs; override;

  procedure InternalInitRecord(); override;

  procedure InternalLast; override;

  procedure InternalOpen; override;

  procedure InternalPost; override;

  procedure InternalEdit; override;

  procedure InternalSetToRecord(); override;

  function IsCursorOpen; override;

  procedure GetBookmarkData(); override;

  function GetBookmarkFlag(); override;

  function GetRecord(); override;

  function GetRecordSize; override;

  procedure SetBookmarkFlag(); override;

  procedure SetBookmarkData(); override;

  procedure SetFieldData(); override;

  procedure ClearCalcFields(); override;

  function GetRecordCount; override;

  function GetRecNo; override;

  procedure SetRecNo(); override;

  function GetCanModify; override;

  function RecordFilter();

  function BufToStore(); virtual;

  function StoreToBuf(); virtual;

public

  property DefaultRecordLength: Cardinal; [rw]

  constructor Create(); override;

  destructor Destroy; override;

  function BookmarkValid(); override;

  function CompareBookmarks(); override;

  function GetFieldData(); override;

  procedure RemoveBlankRecords; dynamic;

  procedure RemoveExtraColumns; dynamic;

  procedure SaveFileAs(); dynamic;

  property CanModify: Boolean;

  procedure LoadFromStream();

  procedure SaveToStream();

published

  property FileMustExist: Boolean; [rw]

  property ReadOnly: Boolean; [rw]

  property FileName: TFileName; [rw]

  property Schema: TStringList; [rw]

  property TrimSpace: Boolean; [rw]

  property CodePage: string; [rw]

  property FieldDefs: TFieldDefs;

  property Active: Boolean;

  property AutoCalcFields: Boolean;

  property Filtered: 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;

TFixedFormatDataSet

TDataSet

TObject