类的继承
在前面（面向对象（中））介绍过的对象表达式中，已经涉及到了类的继承，我们可以覆盖类的成员实现，然后创建新类的实例。这一节里，我们来看看常规的继承机制，熟悉C#的开发人员会感到更亲切。
F# Code - 类的继承
#light
type Base = class
val state : int
new() = { state = 0}
end
type Sub = class
inherit Base
val otherState : int
new() = { otherState = 1 }
end
let myObj = new Sub()
printfn "myObj.state = %i, myObj.otherState = %i"
myObj.state
myObj.otherState
System.Console.Read()
运行结果为：
Output
myObj.state = 0, myObj.otherState = 1
这里Base类为基类，有一个字段state，Sub继承了它，并有一个新字段otherState，下面的代码可以看到，此时Sub类继承了Base类的state字段。需要注意的是，这里的Base必须要有一个无参的构造函数，否则不能通过编译。其原因是，跟C#一样，在初始化派生类时会调用基类的构造函数，而F#中类没有默认的构造函数，所以必须显式添加构造函数。而如果基类的构造函数带有参数的话，派生类的构造函数写法也有所不同。
F# Code - 基类具有含参的构造函数
#light
type Base = class
val state : int
new(st) =
{ state = st}
then
printfn "Init base class"
end
type Sub = class
inherit Base
val otherState : int
new() =
{ inherit Base(0)
otherState = 1 }
then
printfn "Init sub class"
end
let myObj = new Sub()
printfn "myObj.state = %i, myObj.otherState = %i"
myObj.state
myObj.otherState
System.Console.Read()
运行结果：
Output
Init base class
Init sub class
myObj.state = 0, myObj.otherState = 1
这个结果说明确实调用了基类的构造函数。Inherit Base(0)则说明，我们必须选择正确的构造函数。
类的方法
定义方法时可以使用4个相关的关键字，即member、override、abstract、default。在C#中，类的方法大体上可分为三种情况。一是在基类中定义，派生类中不能覆盖的；二是在基类中定义，派生类可以覆盖的（使用virtual关键字）；三是抽象方法（或接口方法），派生类需要提供实现的（除非派生类也是抽象类或接口）。对于情况一，可以简单地使用member关键字；情况二，可同时使用abstract和default（或override），abstract说明该方法可以进行覆盖，default则提供了默认实现；情况三，可仅仅使用abstract，同时为类添加特性AbstractClass，说明该方法是抽象类的一个抽象方法，必须在派生类中提供实现。
F# Code - 类继承时的方法
#light
type Base = class
val mutable state: int
new() = { state = 0 }
member x.JiggleState y = x.state <- y
abstract WiggleState: int -> unit
default x.WiggleState y = x.state <- y + x.state
end
type Sub = class
inherit Base
new() = {}
override x.WiggleState y = x.state <- y &&& x.state
end
let myBase = new Base()
let mySub = new Sub()
let test(c: #Base) =
c.JiggleState 1
print_int c.state
print_newline()
c.WiggleState 3
print_int c.state
print_newline()
print_endline "base class: "
test myBase
print_endline "sub class: "
test mySub
运行结果为：
Output
base class:
1
4
sub class:
1
1
可以看到JiggleState方法继承了Base的实现，而WiggleState则覆盖了Base的默认实现。
访问基类的成员
如果你曾写过Page类的派生类，那么很可能写过base.OnLoad()这样的代码。“base”用来引用基类中的成员，在F#中稍有不同。就像没有this一样，base也是没有的，需要给它手工指定名称。
F# Code - 访问基类的成员
#light
open System
open System.Drawing
open System.Windows.Forms
type RectangleForm(color) = class
inherit Form() as base
override x.OnPaint(e) =
e.Graphics.DrawRectangle(color, 10, 10,
x.Width - 30, x.Height - 50)
base.OnPaint(e)
override x.OnResize(e) =
x.Invalidate()
base.OnResize(e)
end
let form = new RectangleForm(Pens.Blue)
[<STAThread>]
do Application.Run(form)
这里定义Form类的派生类RectangleForm，注意在inherit后面的as base，这里的base就是给基类起的名字，这个名字是任意的。在覆盖OnPaint时就调用了基类的OnPaint方法。
属性和索引器
属性（Property）和索引器（Indexer）是.NET中重要的“语法糖”特性，它们使得我们的代码更为直观、简洁，而它们本质上是方法。
F# Code - 定义属性
#light
open System
type Propreties() = class
let mutable rand = new Random()
member x.MyProp
with get() = rand.Next()
and set y = rand <- new Random(y)
end
let prop = new Propreties()
prop.MyProp <- 10
printfn "%d" prop.MyProp
printfn "%d" prop.MyProp
在Properties类中定义属性MyProp，这里我们可以看到熟悉的get/set变成了两个方法get/set，参数y就是C#中的value。
索引器是一种特殊的属性（又称含参属性）。在C#中，索引器本质上是名为Item的方法。在F#中，我们也可以使用Item之外的名字。
F# Code - 定义索引器
#light
type Indexers(vals : string[]) = class
member x.Item
with get(i) = vals.[i]
and set(i, v) = vals.[i] <- v
member x.MyString
with get(i) = vals.[i]
and set(i, v) = vals.[i] <- v
end
let indexer = new Indexers [| "One"; "Two"; "Three"; "Four" |]
indexer.[0] <- "Five"
indexer.Item(2) <- "Six"
indexer.MyString(3) <- "Seven"
print_endline indexer.[0]
print_endline(indexer.Item(1))
print_endline(indexer.MyString(2))
print_endline(indexer.MyString(3))
这里的Indexers类定义了两个索引器：Item和MyString，通过Reflector可以看到，它们的签名相同，都是“publicstring this[int i] { get; set;}”，在C#中这是不允许的。C#中索引器的默认名称为Item，对于这里的Item来说，可以用两种方式访问它，而MyString就只有一种了。如果需要考虑同其它语言的兼容性，建议使用Item定义属性。
类的静态方法
静态方法的定义是实例方法类似，不过要用到static关键字。访问静态方法时，不需要建立类的实例，可以通过类直接访问，如下面的ReverseString方法。
F# Code - 定义静态方法
#light
type MyClass = class
static member ReverseString(s: string) =
let chars = s.ToCharArray()
let reversedChars = Array.rev chars
new string(reversedChars)
end
let myString = MyClass.ReverseString "dlrow olleH"
print_string myString
运行结果为：
Output
Hello world
定义委托
在C#中，通过委托可以像“值”那样去处理方法。显然，在F#中不需要这样，因为函数本来就是当作值来看待的。但是考虑到与其它语言的交互，有时也需要定义委托。
F# Code - 定义委托
#light
type MyDelegate = delegate of int -> unit
let myInst = new MyDelegate(fun i -> print_int i)
let intList = [1; 2; 3]
intList |> List.iter(fun i -> myInst.Invoke(i))
这里myInst是委托MyDelegate的一个实例，我们通过Invoke来调用它。运行结果为：
Output
123
定义结构类型
结构（struct）与类（class）的区别就是我们常说的值类型和引用类型的区别，在此不再赘述。下面定义的结构IpAddress用于表示IP地址。
F# Code - 定义结构类型
#light
type IpAddress = struct
val first: byte
val second: byte
val third: byte
val fourth: byte
new(first, second, third, fourth) =
{ first = first;
second = second;
third = third;
fourth = fourth }
override x.ToString() =
Printf.sprintf "%O.%O.%O.%O" x.first x.second x.third x.fourth
member x.GetBytes() = x.first, x.second, x.third, x.fourth
end
定义枚举类型
枚举类型定义了一组符号名称和数值对，本质上讲，枚举类型就是定义了一组常数字段的结构。F#中枚举的定义也是很简单的。
F# Code - 定义枚举类型
#light
type Season =
| Spring
| Summer
| Autumn
| Winter
如果你希望定义位标记枚举，可以使用System.Flags特性。
小结
至此，F#中的面向对象编程范式介绍完毕，我们手中的F#也变得更为锐利。本文首先介绍了类的继承、类的方法（虚方法、抽象方法等）、访问基类等跟继承相关的概念；接着是类的属性和索引器、类的静态方法这些类的特殊成员；最后讨论了如何定义委托、结构类型、枚举类型等特殊类型。相信有了这些知识，我们完全可以使用F#代替C#来编写类库了。学习这些知识的过程，也给了我们一个从新的角度了解.NETFramework的机会。在学习了F#的三种主要编程范式之后，下一步该考虑如何在实战中应用它，比如如何组织规模较大的程序，如何建立UI，如何与其它.NET语言进行交互等等，在后续的随笔中将逐步介绍这些内容。
注意：本文中的代码均在F# 1.9.4.17版本下编写，在F# CTP 1.9.6.0版本下可能不能通过编译。