Class TRealStorage

Unit

GoPhastTypes

Declaration

type TRealStorage = class(TPersistent)

Description

Hierarchy

• TPersistent
• TRealStorage

Overview

Fields

	FValue: real;
	FOnChange: TNotifyEvent;

Methods

	procedure SetValue(const Value: real);
	procedure ReadValue(Reader: TReader);
	procedure ReadStringValue(Reader: TReader);
	procedure WriteValue(Writer: TWriter);
	procedure WriteStringValue(Writer: TWriter);
	procedure DefineProperties(Filer: TFiler); override;
	procedure Assign(Source: TPersistent); override;

Properties

	property Value: real read FValue write SetValue;
	property OnChange: TNotifyEvent read FOnChange write FOnChange;

Description

Fields

	FValue: real;

	FOnChange: TNotifyEvent;

Methods

	procedure SetValue(const Value: real);

	procedure ReadValue(Reader: TReader);

	procedure ReadStringValue(Reader: TReader);

	procedure WriteValue(Writer: TWriter);

	procedure WriteStringValue(Writer: TWriter);

	procedure DefineProperties(Filer: TFiler); override;

	procedure Assign(Source: TPersistent); override;

Properties

	property Value: real read FValue write SetValue;

	property OnChange: TNotifyEvent read FOnChange write FOnChange;