Làm thế nào để liệt kê một enum/loại trong F #

Question

Tôi đã bị một loại liệt kê được xác định như sau:

type tags = 
    | ART = 0 
    | N = 1 
    | V = 2 
    | P = 3 
    | NULL = 4 

là có một cách để làm một for ... in tags do?

Đây là lỗi mà tôi nhận được:

Giá trị, xây dựng, không gian tên hoặc loại tags không được định nghĩa

Answer 1

Sử dụng Enum.GetValues:

let allTags = Enum.GetValues(typeof<tags>) 

Answer 2

Để làm cho nó một enum bạn cần phải cung cấp một cách rõ ràng giá trị cho từng trường hợp, nếu không nó là một loại hình công đoàn:

type tags = 
    | ART = 0 
    | N = 1 
    | V = 2 
    | P = 3 
    | NULL= 4 
let allTags = System.Enum.GetValues(typeof<tags>) 

Answer 3

Quyền của Robert về cách tạo ra enum thực tế và nhận các trường hợp của nó. Nếu bạn có một loại công đoàn thực sự, bạn có thể nhận được các trường hợp thông qua các chức năng Microsoft.FSharp.Reflection.FSharpType.GetUnionCases.

Answer 4

Dưới đây là ví dụ hoàn chỉnh để in thông tin về bất kỳ công đoàn bị phân biệt đối xử nào. Nó cho thấy làm thế nào để có được trường hợp của công đoàn bị phân biệt đối xử và cũng làm thế nào để có được các lĩnh vực (trong trường hợp bạn cần chúng). Việc kê khai chức năng in loại công đoàn phân biệt nhất định:

open System 
open Microsoft.FSharp.Reflection 

let printUnionInfo (typ:Type) = 
    printfn "type %s =" typ.Name 
    // For all discriminated union cases 
    for case in FSharpType.GetUnionCases(typ) do 
    printf " | %s" case.Name 
    let flds = case.GetFields() 
    // If there are any fields, print field infos 
    if flds.Length > 0 then 
     // Concatenate names of types of the fields 
     let args = String.concat " * " [ for fld in flds -> fld.PropertyType.Name ] 
     printf " of %s" args 
    printfn ""  

// Example 
printUnionInfo(typeof<option<int>>) 

Answer 5

Bạn có thể sử dụng Enum.GetValues, mà trả về một Array của đối tượng mà sau đó bạn phải downCast các giá trị số nguyên. (Lưu ý:. Tôi đang sử dụng Mono của F # thực hiện; có lẽ mọi thứ đã khác với NET)

Dưới đây là một số chức năng tôi đã viết để có được một danh sách tất cả các giá trị liệt kê và để có được những phút và giá trị tối đa:

open System 

module EnumUtil = 

    /// Return all values for an enumeration type 
    let EnumValues (enumType : Type) : int list = 
     let values = Enum.GetValues enumType 
     let lb = values.GetLowerBound 0 
     let ub = values.GetUpperBound 0 
     [lb .. ub] |> List.map (fun i -> values.GetValue i :?> int) 

    /// Return minimum and maximum values for an enumeration type 
    let EnumValueRange (enumType : Type) : int * int = 
     let values = EnumValues enumType 
     (List.min values), (List.max values) 

Answer 6

type Options = 
    | Exit   = 0 
    | CreateAccount = 1 

Console.WriteLine() 
Console.WriteLine("Choose an option:") 
let allOptions = Enum.GetValues(typeof<Options>) 
for option in allOptions do 
    if (option <> null) then 
     Console.WriteLine(sprintf "%d: %s" (option :?> int) (option.ToString())) 
let optionChosen = System.Console.ReadLine()