TOvcCommandProcessor

type TOvcCommandProcessor = class(TPersistent)

protected

  FTableList: TList;

  cpState: TOvcProcessorState;

  cpSaveKey: Byte;

  cpSaveSS: Byte;

  function GetCount;

  function GetTable();

  procedure SetTable();

  function cpFillCommandRec();

  procedure cpReadData();

  function cpScanTable();

  procedure cpWriteData();

  procedure DefineProperties(); override;

public

  constructor Create;

  destructor Destroy; override;

  procedure Add();

  procedure AddCommand();

  procedure AddCommandRec();

  procedure ChangeTableName();

  procedure Clear;

  function CreateCommandTable();

  procedure Delete();

  procedure DeleteCommand();

  procedure DeleteCommandTable();

  procedure Exchange();

  function GetCommandCount();

  function GetCommandTable();

  procedure GetState();

  function GetCommandTableIndex();

  function LoadCommandTable(); virtual;

  procedure ResetCommandProcessor;

  procedure SaveCommandTable(); virtual;

  procedure SetScanPriority();

  procedure SetState();

  function Translate();

  function TranslateUsing();

  function TranslateKey();

  function TranslateKeyUsing();

  property Count: Integer; [rs]

  property Table []: TOvcCommandTable; default; [rw]

end;

TOvcCommandProcessor

TObject