TPLCNumber

type TPLCNumber = class(TPLCTag)

protected

  function GetValueAsText(); virtual;

  procedure AsyncNotifyChange(); override;

  function GetValueChangeData; override;

  procedure ReleaseChangeData(); override;

  procedure SetMinMaxValues(); virtual;

  FEnableMin: Boolean;

  FEnableMax: Boolean;

  FMinLimit: Double;

  FMaxLimit: Double;

  PScaleProcessor: TScaleProcessor;

  PValueRaw: Double;

  function GetValue; virtual;

  function GetValueRaw; virtual; abstract;

  procedure SetValue(); virtual;

  procedure SetValueRaw(); virtual; abstract;

  procedure SetScaleProcessor();

  procedure SetMinLimit();

  procedure SetMaxLimit();

  procedure Notification(); override;

  property EnableMinValue: Boolean; [rws]

  property EnableMaxValue: Boolean; [rws]

  property MinValue: Double; [rw]

  property MaxValue: Double; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Write; virtual; overload;

  function ScanWrite; virtual; overload;

  procedure RemoveScaleProcessor;

  property Value: Double; [rw]

  property ValueRaw: Double; [rw]

published

  property ScaleProcessor: TScaleProcessor; [rw]

  property OnValueChange; [s]

  property OnValueChangeFirst;

  property OnValueChangeLast;

  property OnAsyncValueChange;

end;

TPLCNumber

TObject