TZRVariable

type TZRVariable = class(TComponent)

protected

  procedure SetName(); override;

  procedure SetParentComponent(); override;

  function EvaluateValue; virtual;

  procedure ResetValue; virtual;

  function GetIsEmpty;

  function GetIsRepeated;

public

  constructor Create(); override;

  destructor Destroy; override;

  function HasParent; override;

  function GetParentComponent; override;

  procedure Clear;

  procedure Prepare; virtual;

  procedure Unprepare; virtual;

  procedure Update; virtual;

  procedure Undo; virtual;

  procedure Redo; virtual;

  procedure Reset; virtual;

  property IsRepeated: Boolean; [r]

  property Master: TZRCustomController; [rw]

  property Status: TZRVariableStatus; [r]

  property Text: string; [r]

  property Value: Variant; [r]

published

  property Format: TZFormat; [rw]

end;

TZRVariable

TObject