TOvcCommandTable

type TOvcCommandTable = class(TPersistent)

protected

  FActive: Boolean;

  FCommandList: TList;

  FTableName: string;

  function GetCmdRec();

  function GetCount;

  procedure PutCmdRec();

  procedure ctDisposeCommandEntry();

  function ctNewCommandEntry();

  procedure ctReadData();

  procedure ctWriteData();

  procedure DefineProperties(); override;

public

  constructor Create;

  destructor Destroy; override;

  function AddRec();

  procedure Clear;

  procedure Delete();

  procedure Exchange();

  function IndexOf();

  procedure InsertRec();

  procedure LoadFromFile();

  procedure Move();

  procedure SaveToFile();

  property Commands []: TOvcCmdRec; default; [rw]

  property Count: Integer; [rs]

  property IsActive: Boolean; [rw]

  property TableName: string; [rw]

end;

TOvcCommandTable

TObject