Class TGlobalVariable

Unit

GlobalVariablesUnit

Declaration

type TGlobalVariable = class(TObserver)

Description

TObserver is used to coordinate when TDataArrays need to be updated.

Hierarchy

• TComponent
• TObserver
• TGlobalVariable

Overview

Fields

	FValues: TVariableRecord;
	FCollection: TGlobalVariables;
	FComment: string;

Methods

	function GetBooleanValue: boolean;
	function GetIntegerValue: integer;
	function GetRealValue: double;
	function GetStringValue: string;
	procedure SetBooleanValue(const Value: boolean);
	procedure SetFormat(const Value: TRbwDataType);
	procedure SetIntegerValue(const Value: integer);
	procedure SetRealValue(const Value: double);
	procedure SetStringValue(const Value: string);
	function StoreBooleanValue: Boolean;
	function StoreIntegerValue: Boolean;
	function StoreStringValue: Boolean;
	function GetFormat: TRbwDataType;
	function StoreRealValue: Boolean;
	procedure InvalidateModel;
	procedure SetComment(const Value: string);
	procedure NotifyObservers;
	procedure SetName(const NewName: TComponentName); override;
	constructor Create(AnOwner: TComponent); override;
	procedure Assign(Source: TPersistent); override;

Properties

	property Format: TRbwDataType read GetFormat write SetFormat stored True;
	property RealValue: double read GetRealValue write SetRealValue stored StoreRealValue;
	property IntegerValue: integer read GetIntegerValue write SetIntegerValue stored StoreIntegerValue;
	property BooleanValue: boolean read GetBooleanValue write SetBooleanValue stored StoreBooleanValue;
	property StringValue: string read GetStringValue write SetStringValue stored StoreStringValue;
	property Comment: string read FComment write SetComment;

Description

Fields

	FValues: TVariableRecord;

	FCollection: TGlobalVariables;

	FComment: string;

Methods

	function GetBooleanValue: boolean;

	function GetIntegerValue: integer;

	function GetRealValue: double;

	function GetStringValue: string;

	procedure SetBooleanValue(const Value: boolean);

	procedure SetFormat(const Value: TRbwDataType);

	procedure SetIntegerValue(const Value: integer);

	procedure SetRealValue(const Value: double);

	procedure SetStringValue(const Value: string);

	function StoreBooleanValue: Boolean;

	function StoreIntegerValue: Boolean;

	function StoreStringValue: Boolean;

	function GetFormat: TRbwDataType;

	function StoreRealValue: Boolean;

	procedure InvalidateModel;

	procedure SetComment(const Value: string);

	procedure NotifyObservers;

	procedure SetName(const NewName: TComponentName); override;

	constructor Create(AnOwner: TComponent); override;

	procedure Assign(Source: TPersistent); override;

Properties

	property Format: TRbwDataType read GetFormat write SetFormat stored True;

	property RealValue: double read GetRealValue write SetRealValue stored StoreRealValue;

	property IntegerValue: integer read GetIntegerValue write SetIntegerValue stored StoreIntegerValue;

	property BooleanValue: boolean read GetBooleanValue write SetBooleanValue stored StoreBooleanValue;

	property StringValue: string read GetStringValue write SetStringValue stored StoreStringValue;

	property Comment: string read FComment write SetComment;