使用隱式構造函數將StructLayout屬性添加到F＃類型

Question

我有：

type Package =
    abstract member Date : int
    abstract member Save : unit -> unit

[<type:StructLayout(LayoutKind.Sequential, Pack=1, CharSet=CharSet.Ansi)>]
type Instant(date : int, value : int) =
    let mutable _date = date
    let mutable _value = value
    member X.Value : int = _value
    interface Package with    
        member X.Date : int = _date
        member X.Save() = ...

但是獲得錯誤： 只有沒有隱式構造函數的結構和類可以被賦予'StructLayout'屬性

所以我意識到它必須是相似的東西：

type Instant =
    struct
        val Date : byte array
        ...

但是這樣我丟失了界面。 在C＃中，例如添加type:StructLayout對於這種類型的類，我可以使用type:StructLayout （我認為）。 我如何重構代碼以避免此錯誤？

Answer 1

正如錯誤消息所述， StructLayout應該與顯式構造函數一起使用 ：

type Package =
    abstract member Date : int
    abstract member Save : unit -> unit

[<type:StructLayout(LayoutKind.Sequential, Pack=1, CharSet=CharSet.Ansi)>]
type Instant =
    val mutable Date: int
    val mutable Value: int
    new(date, value) = {Date = date; Value = value}

    interface Package with
        member x.Date = x.Date
        member x.Save() = x.Value |> ignore

如果您對FieldOffset有任何進一步的問題，請在此處查看代碼示例。