构造函数是一个特殊的方法，用来创建和初始化一个实例对象。声明一个构造函数就像声明一个函数一样，不同的是方法名必须是create.
Function Create()

TSL总是为一个类生成默认的公有(public)的create方法, 如果显式没有为类声明public create，对象初始化时就使用默认的create方法，如果用户声明了public create 方法，对象初始化时就执行用户定义的方法。Create 不可以声明为私有(private)的和受保护(protected)的方法,否则对象初始化时不执行自己声明的方法.

Create 方法可以被重载(overload)几个不同的定义。
由于使用CreateObject方法创建对象，Craete 方法的返回值将被忽略。

示例：
示例是一个简单的日历类，说明了构造函数的重载,初始化时如果调用Create方法，设置为当前日期,否则可以指定具体的年月日

program test;
Type Calandar =Class

year;

month;

day;


function Create() ;overload;

Begin
Create(YearOf(Date()),MonthOf(Date()),DayOf(Date()));



End;


function Create(y,m,d);overload;

Begin


year:=y;


month:=m;


day:=d;

End;
End;

Begin

C:=CreateObject("Calandar");
//C:=CreateObject("Calandar",2008,8,8);也可以指定具体的年月日

writeln(C.year,C.Month,C.Day);
End.

构造函数的覆盖：
构造函数可以在子类中被覆盖，如果显示声明了构造函数，为了是成员初始化，一般在新的构造函数中都要求实现基类的构造函数
调用Class(BaseClass).Create();