Question

我有一个函数，它可以返回不同的类型，我使用辨别联合。我需要的是将有区别的联合中的一种类型转换为另一种类型。还有一些类型可以转换为所有其他类型（ String ），但有些类型只能转换为String（ MyCustomType ）

为此，我已将成员方法 ConvertTo 添加到ResultType：

type MyTypes = 
   | Boolean       = 1
   | Integer       = 2
   | Decimal       = 3
   | Double        = 4
   | String        = 5
   | MyCustomType  = 6

type ResultType = 
   | Boolean of bool
   | Integer of int
   | Decimal of decimal
   | Double of double
   | String of string
   | MyCustomType of MyCustomType

   with 
     member this.ConvertTo(newType: MyTypes) = 
       match this with 
       | ResultType.Boolean(value) -> 
           match newType with 
           | MyTypes.Boolean -> 
              this
           | MyTypes.Integer -> 
              ResultType.Integer(if value then 1 else 0)
          ...
       | ResultType.MyCustomType(value) -> 
           match newType with 
           | MyTypes.MyCustomType -> 
              this
           | MyTypes.String -> 
              ResultType.String(value.ToString()) 
           | _ -> 
              failwithf "Conversion from MyCustomType to %s is not supported" (newType.ToString())

我不喜欢这样的结构，因为如果我添加更多类型，这需要我做很多更改： MyTypes ， ResultType 以及在 ConvertTo 成员函数。

有人可以提出更好的解决方案吗？

提前致谢

Answer 1

设计稍有不同，可以利用System.Convert.ChangeType以及被区分联合的构造函数实际上是函数的事实：

// statically typed wrapper for System.Convert.ChangeType
let conv a : 'T = System.Convert.ChangeType(a, typeof<'T>) :?> 'T

type MyCustomType() = class end

type ResultType = 
  | Boolean of bool
  | Integer of int
  | Decimal of decimal
  | Double of double
  | String of string
  | MyCustomType of MyCustomType
  with
    member this.ConvertTo (newType:'T->ResultType) =
      match this with
      | Boolean b -> newType( conv b )
      | Integer i -> newType( conv i )
      | Decimal d -> newType( conv d )
      | Double d -> newType( conv d )
      | String s -> newType( conv s )
      | MyCustomType m ->
         if typeof<'T> <> typeof<string> then
            raise (new System.InvalidCastException("MyCustomType can only be converted to String"))
         else
            String (m.ToString())

let i = Integer 42

let b = i.ConvertTo Boolean
printfn "%A" b

let d = i.ConvertTo Decimal
printfn "%A" d

let d2 = i.ConvertTo Double
printfn "%A" d2

let s = i.ConvertTo String
printfn "%A" s

//let mi = i.ConvertTo MyCustomType  // throws InvalidCastException

let m = MyCustomType (new MyCustomType())
let sm = m.ConvertTo String
printfn "%A" sm

//let im = m.ConvertTo Integer // throws InvalidCastException

编辑：添加更多自定义类型后，这无济于事。

也许你应该让你的自定义类型实现IConvertible。然后，您可以从ConvertTo中删除特殊情况代码，并完全依赖System.Convert.ChangeType。

每当您添加新的自定义类型时，您仍然需要扩展每个自定义类型的ToObject实现。这是否真的比中央ConvertTo函数更好是值得商榷的。

Answer 2

为什么要开始进行类型转换？歧视联盟是一种隐藏类型信息的好方法，直到您需要它并抽象出复杂性。通常，在使用此类型的函数中有匹配语句，然后只在需要时才进行转换。

如果您正在尝试制作某种类型的解析器或语言引擎，那么您别无选择，只能定义所有转换或至少定义其错误状态。如果你不介意详细说明为什么/你将使用它，也许我可以建议另一种方法。

旁白：F＃和.NET通常不支持重载类型的重载。

受歧视的工会中的类型之间的转换

2 个答案: