{$IFDEF VALUE_EXTENSIONS_USES} Controllers, Tiles, {$ENDIF} {$IFDEF VALUE_EXTENSIONS_TVALUE_DECLARATION} public class operator Implicit(Value: TDirection): TValue; class operator Implicit(Value: TTileType): TValue; {$ENDIF} {$IFDEF VALUE_EXTENSIONS_IMPLEMENTATION_SECTION} class operator TValue.Implicit(Value: TDirection): TValue; begin Result := TValue.Create(TEnumValue.Create(Ord(Value), TypeInfo(TDirection))); end; class operator TValue.Implicit(Value: TTileType): TValue; begin Result := TValue.Create(TEnumValue.Create(Ord(Value), TypeInfo(TTileType))); end; {$ENDIF}