小编jus*_* me的帖子

下面的代码产生"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 ()