TPLCBlockElement

type TPLCBlockElement = class(TPLCNumberMappable,ITagInterface,ITagNumeric)

protected

  PBlock: TPLCBlock;

  PIndex: Cardinal;

  function GetLastAsyncReadStatus; override;

  function GetLastAsyncWriteStatus; override;

  function GetLastSyncReadStatus; override;

  function GetLastSyncWriteStatus; override;

  procedure SetBlock();

  procedure SetIndex(); virtual;

  function GetVariantValue;

  procedure SetVariantValue();

  function IsValidValue();

  function GetValueTimestamp;

  procedure WriteFaultCallback(); virtual;

  procedure TagChangeCallback(); virtual;

  procedure RemoveTagCallBack(); virtual;

  function GetValueRaw; override;

  procedure SetValueRaw(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function ScanRead; override;

  function ScanWrite(); override;

  procedure Read; override;

  procedure Write(); override;

published

  property PLCBlock: TPLCBlock; [rw]

  property Index: Cardinal; [rw]

  property EnableMaxValue: Boolean;

  property EnableMinValue: Boolean;

  property MaxValue: Double;

  property MinValue: Double;

  property LastASyncReadStatus;

  property LastASyncWriteStatus;

  property LastSyncReadStatus;

  property LastSyncWriteStatus;

end;

TPLCBlockElement

TPLCNumberMappable,ITagInterface,ITagNumeric

TPLCNumber

TObject