在f中实现字典子类#

我认为您希望在这里实现IDictionary接口。这将允许您作为IDictionary(添加、删除等)与您的类型进行交互,并且您可以将大部分调用转发给私有字典成员。

Check this out 也是。

我真的不认为实现所有这些接口都是最佳实践,我非常怀疑它是否都是正确的,即使它是编译的。我建议你做自己的界面。

type UpperDictionary() = 
    let dictionary = new Dictionary<String, String>()

    interface IDictionary<string, string> with
        member this.Add(key: string, value : string) = dictionary.Add(key.ToUpper(), value)
        member this.Add(kvp) = dictionary.Add(kvp.Key.ToUpper(), kvp.Value)
        member this.ContainsKey(key) = dictionary.ContainsKey(key.ToUpper())
        member this.Contains(kvp) = dictionary.TryGetValue(kvp.Key.ToUpper(), ref kvp.Value)
        member this.Item with get key = dictionary.Item(key) and set key value = dictionary.Item(key) <- value
        member this.Count with get() = dictionary.Count
        member this.IsReadOnly with get() = false
        member this.Keys = dictionary.Keys :> ICollection<String>
        member this.Remove key = dictionary.Remove(key)
        member this.Remove(kvp : KeyValuePair<String,String>) = dictionary.Remove(kvp.Key.ToUpper())
        member this.TryGetValue(key, value) = dictionary.TryGetValue(key, ref value)
        member this.Values = dictionary.Values :> ICollection<String>
        member this.Clear() = dictionary.Clear()
        member this.CopyTo(array, arrayIndex) = (dictionary :> IDictionary<string, string>).CopyTo(array, arrayIndex)
        member this.GetEnumerator() = dictionary.GetEnumerator() :> IEnumerator
        member this.GetEnumerator() = dictionary.GetEnumerator() :> IEnumerator<KeyValuePair<String,String>>