Class TSFEnum

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TSFEnum = class(TX3DSingleField)

Description

SFEnum VRML 1.0 field.

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

Hierarchy

Overview

Fields

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

Methods

Protected procedure SaveToStreamValue(Writer: TX3DWriter); override;
Public constructor Create(AParentNode: TX3DFileItem; const AName: string; const AEnumNames: array of string; const AValue: integer);
Public destructor Destroy; override;
Public function EnumNamesCount: integer;
Public procedure ParseValue(Lexer: TX3DLexer; Reader: TX3DReader); override;
Public function EqualsDefaultValue: boolean; override;
Public function Equals(SecondValue: TX3DField; const EqualityEpsilon: Double): boolean; override;
Public procedure Assign(Source: TPersistent); override;
Public procedure AssignValue(Source: TX3DField); override;
Public procedure AssignDefaultValueFromValue; override;
Public class function TypeName: string; override;
Public procedure Send(const AValue: LongInt); overload;

Properties

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

Description

Fields

Public Value: integer;

Value between 0 .. EnumCount - 1. By default 0.

Public DefaultValue: integer;
 
Public DefaultValueExists: boolean;
 

Methods

Protected procedure SaveToStreamValue(Writer: TX3DWriter); override;
 
Public constructor Create(AParentNode: TX3DFileItem; const AName: string; const AEnumNames: array of string; const AValue: integer);
 
Public destructor Destroy; override;
 
Public function EnumNamesCount: integer;
 
Public procedure ParseValue(Lexer: TX3DLexer; Reader: TX3DReader); override;
 
Public function EqualsDefaultValue: boolean; override;
 
Public function Equals(SecondValue: TX3DField; const EqualityEpsilon: Double): boolean; override;
 
Public procedure Assign(Source: TPersistent); override;
 
Public procedure AssignValue(Source: TX3DField); override;
 
Public procedure AssignDefaultValueFromValue; override;
 
Public class function TypeName: string; override;
 
Public procedure Send(const AValue: LongInt); overload;
 

Properties

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