Class TSFEnum

Unit

VRMLFields

Declaration

type TSFEnum = class(TVRMLSingleField)

Description

SFEnum VRML field.

TSFEnum is one of the exceptional field types that cannot be 100% correctly initialized by CreateUndefined, since EnumNames will be left undefined.

Hierarchy

• TPersistent
• TVRMLField
• TVRMLSingleField
• TSFEnum

Overview

Fields

	Value: integer;
	DefaultValue: integer;
	DefaultValueExists: boolean;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;
	constructor Create(const AName: string; const AEnumNames: array of string; const AValue: integer);
	destructor Destroy; override;
	function EnumNamesCount: integer;
	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;
	function EqualsDefaultValue: boolean; override;
	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;
	procedure Assign(Source: TPersistent); override;
	procedure AssignValue(Source: TVRMLField); override;
	class function VRMLTypeName: string; override;

Properties

property EnumNames[i: integer]: string read GetEnumNames;

Description

Fields

	Value: integer;
Value between 0 .. EnumCount - 1. By default 0.

	DefaultValue: integer;

	DefaultValueExists: boolean;

Methods

	procedure SaveToStreamValue(SaveProperties: TVRMLSaveToStreamProperties); override;

	constructor Create(const AName: string; const AEnumNames: array of string; const AValue: integer);

	destructor Destroy; override;

	function EnumNamesCount: integer;

	procedure Parse(Lexer: TVRMLLexer; IsClauseAllowed: boolean); override;

	function EqualsDefaultValue: boolean; override;

	function Equals(SecondValue: TVRMLField; const EqualityEpsilon: Single): boolean; override;

	procedure Assign(Source: TPersistent); override;

	procedure AssignValue(Source: TVRMLField); override;

	class function VRMLTypeName: string; override;

Properties

	property EnumNames[i: integer]: string read GetEnumNames;