重写F#中继承的成员

Question

下面的代码生成"t1 t1 t2“。我想知道有没有人可以告诉我怎样才能得到"t1 t2 t2“。在t2中使用"override“而不是"member”是错误的，我不明白为什么。我非常乐意使用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 ()