Переопределение ToString при создании типа интерфейса с использованием выражения объекта

Question

Есть ли способ переопределить виртуальные методы System.Object, особенно ToString, при создании типа интерфейса с использованием выражения объекта?

type INamedObject =
    abstract Name : string

let makeNamedObject name = 
    { new INamedObject with
        member x.Name = name
        override x.ToString() = x.Name } //would like to do this, but doesn't work

Answer 1

Возможно реализовать несколько типов для реализации / переопределения в выражении объекта, включая конкретные типы. Это позволяет вам указывать Object и INamedObject в выражении и получать желаемый эффект.

let makeNamedObject name =  
    { 
        new System.Object() with 
            member x.ToString() = name
        interface INamedObject with
            member x.Name = name  }