Class TSFEnum

Unit

Declaration

type TSFEnum = class(TX3DSingleField)

Description

Warning: this symbol is deprecated.

VRML 1.0 (deprecated) field representing an enumerated value, which means that you choose one (named) value from a set of possible values. This is deprecated, as VRML 1.0 is an ancient format now.

Hierarchy

Overview

Fields

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

Methods

Public constructor Create(const AParentNode: TX3DFileItem; const AExposed: boolean; const AName: string; const AEnumNames: PConstantStringArray; const AEnumNamesCount: Cardinal; const AValue: integer);
Public procedure ParseValue(Lexer: TX3DLexer; Reader: TX3DReader); override;
Public function EqualsDefaultValue: boolean; override;
Public function Equals(SecondValue: TX3DField): boolean; override;
Public procedure Assign(Source: TPersistent); override;
Public procedure AssignValue(Source: TX3DField); override;
Public procedure AssignDefaultValueFromValue; override;
Public procedure UnassignDefaultValue; override;
Public class function X3DType: string; override;
Public procedure Send(const AValue: LongInt); overload;

Properties

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

Description

Fields

Public Value: integer;

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

Public DefaultValue: integer;

This item has no description.

Public DefaultValueExists: boolean;

This item has no description.

Methods

Public constructor Create(const AParentNode: TX3DFileItem; const AExposed: boolean; const AName: string; const AEnumNames: PConstantStringArray; const AEnumNamesCount: Cardinal; const AValue: integer);

This item has no description.

Public procedure ParseValue(Lexer: TX3DLexer; Reader: TX3DReader); override;

This item has no description.

Public function EqualsDefaultValue: boolean; override;

This item has no description. Showing description inherited from TX3DField.EqualsDefaultValue.

Whether the value is equal to default. Returns always False in TX3DField, descendants should override it. It is used when writing the field value to X3D file (values that are default do not have to be written, ever).

Public function Equals(SecondValue: TX3DField): boolean; override;

This item has no description. Showing description inherited from TX3DField.Equals.

True if the SecondValue object has exactly the same type and properties. For this class, this returns just (SecondValue.Name = Name).

All descendants (that add some property that should be compared) should override this like

Result := (inherited Equals(SecondValue)) and
  (SecondValue is TMyType) and
  (TMyType(SecondValue).MyProperty = MyProperty);

The floating-point fields may be compared with a small epsilon tolerance by this method.

Note that this *doesn't* compare the default values of two fields instances. This compares only the current values of two fields instances, and eventually some other properties that affect parsing (like names for TSFEnum and TSFBitMask) or allowed future values (like TSFFloat.MustBeNonnegative).

Public procedure Assign(Source: TPersistent); override;

This item has no description.

Public procedure AssignValue(Source: TX3DField); override;

This item has no description. Showing description inherited from TX3DField.AssignValue.

Copies the current field value. Contrary to TPersistent.Assign, this doesn't copy the rest of properties.

After setting, our ValueFromIsClause is always changed to False. You can manually change it to True, if this copy indeed was done following "IS" clause.

Descendants implementors notes:

In this class, implementation takes care of setting our ValueFromIsClause to False. In descendants, you should do like

if Source is <appropriate class> then
begin
  inherited;
  Value := Source.value;
end else
  AssignValueRaiseInvalidClass(Source);

Public procedure AssignDefaultValueFromValue; override;

This item has no description. Showing description inherited from TX3DField.AssignDefaultValueFromValue.

Set field's default value from the current value.

Note that for now this doesn't guarantee that every possible field's value can be stored as default value. In case of trouble, it will silently record "no default is known" information, so e.g. EqualsDefaultValue will always return False. Our default value mechanisms are sometimes limited, not every value can be a default value. For example, for multiple-valued nodes, we usually cannot save arrays longer than one as default value. This is not a problem, since X3D specification doesn't specify too long default values. But it may be a problem for prototypes, since then user can assign any value as default value. May be corrected in the future.

Public procedure UnassignDefaultValue; override;

This item has no description. Showing description inherited from TX3DField.UnassignDefaultValue.

Remove default value, recording that "no default is known". In effect EqualsDefaultValue will always return False.

Public class function X3DType: string; override;

This item has no description. Showing description inherited from TX3DField.X3DType.

Field type in X3D, like 'SFString' or 'MFInt32'. As for VRML/X3D interface declaration statements. In base TX3DField class, this returns XFAny (name indicating any type, used by instantreality and us).

Public procedure Send(const AValue: LongInt); overload;

This item has no description.

Properties

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

Names of the enumerated values. Note that this cannot be initialized by CreateUndefined, so you always must initialize this field using the Create overload that takes AEnumNames parameter.

Public property EnumNamesCount: Cardinal read FEnumNamesCount;

This item has no description.


Generated by PasDoc 0.16.0.