f# - 覆盖 F# 中的继承成员

Question

下面的代码产生“t1 t1 t2”。我想知道是否有人可以告诉我如何更改它以获得“t1 t2 t2”。在 t2 中使用“覆盖”而不是“成员”是错误的，我不明白为什么。我对 RTFM 感到非常高兴，只要我知道在哪里看什么 FM 就好了。

非常感谢，如果我错过了一些根本原因，为什么我想要的东西不应该是可能的。

type myinterface =
   abstract member doit : unit -> unit

type t1 () =
   interface myinterface with
      member x.doit () = printf "t1\n"

type t2 () =
    inherit t1 ()

    member x.doit () = printf "t2\n"

let override_test () =
    let t1 = t1 () :> myinterface
    let t2 = t2 ()
    let t2i = t2 :> myinterface
    t1.doit ()
    t2i.doit ()
    t2.doit ()

Answer 1

这应该具有您想要的行为：

type myinterface =
    abstract member doit : unit -> unit

type T1 () =
    interface myinterface with
        member x.doit () = printfn "t1"

type T2 () =
    inherit T1 ()
    member x.doit () = printfn "t2"
    interface myinterface with
        member x.doit () = x.doit ()

let override_test () =
    let t1i = T1() :> myinterface
    let t2 = T2()
    let t2i = t2 :> myinterface
    t1i.doit ()
    t2i.doit ()
    t2.doit ()