Class:

type//class 声明或者定义继承一个类class(TObject). TDate = classprivatefDate: TdateTime;Month, Day, Year: Integer;public //构造函数，如果定义了constructor，默认构造函数无效constructor Create (y, m, d: Integer);constructor Create; overload;//Destructor用于标识析构函数, 析构函数在类被释放时自动调用.析构函数只允许覆盖, 再不允许重载//Free时，会调用Destory,调用前会判断是否为nil，但是调用后不会将self置为nil，因为不知道本身是否被引用。destructor Destroy;override;//procedure 无返回值procedure SetValue (y, m, d: Integer); overload；//overload 重载procedure SetValue (NewDate: TDateTime); overload;function LeapYear: Boolean;function GetText: String;procedure Increase;proceure Y;//虚拟函数，通C++相同，通过virtual table（VMT）来找到virtual函数入口，包含父类的VMTfunction Voice:String; virtual;//动态方法，结果和virtual相同，差别在于编译时候使用动态方发表(DMT)，//子类使用唯一的数字+动态方法地址构成DMT，但是不包含祖先的DMT。所以运行时内存小，但是速度慢//function Voice:String; dynamic;//抽象函数，同C++，抽象函数，不能定义实例function Jump:String; virtual; abstract;//message方法可用于处理windows消息,可调用postMessage(TDateObj.hANDLE，wm_User, 0, 0); var是引用procedure WMUser(var Msg: TMessage); message wm_User;//属性名 : 属性值类型 read 属性读函数/属性值变量 write 属性写函数/属性值变量,write属性可以省略，变成只读property Year: Integer read GetYear write SetYear;end;constructor TDate.Create;beginDay:= 0;end;typeTClassB = clas(TDate)public//父类可以访问子类方法class procedure X;//和C++一样叫虚拟函数，和java一样有override关键字...... 必须父类函数是virtual,如果不是，是覆盖而不是刻意动态绑定function Voice:String; override;endprocedure TDate.GetYear;beginResult := YearOf(fDate);end;procedure TDate.Y;begin //Self访问当前对象，无参数方法可以省略()Self.X;end;

 

类型转换和异常处理：

//is 判断类型if obj is ClassB thenxxxxx//as 类型转换(obj as ClassB).do//异常处理try…except…end;　try…finally…end;//和try…except…end不同，该结构的finally部分总被执行//不存在try…except…finally…end结构来既处理异常，又保护资源分配的结构//允许如下结构，从而实现既处理异常，又保护资源的分配try try…except…end  finallyend;//触发异常，类似C++ throwraise xxxException;

 

流程处理:

 

//If语句的通常结构是If...Then...else, else语句也可以不要.//在If语句内如果有多个子语句, 则必须用begin...End结构进行区分.if a > b thenbegin　WriteLn('a>b');Endelse　WriteLn('b>a');//For关键字引出For循环结构, 用于做指定次数的循环.for i := 1 to 100 do sum := sum + i;//如果循环变量是递减的, 则可以用DownTo关键字for i := 100 downto 1 do Inc(sum);//Case语句用于完成条件选择, Case语句的的被选择对象必须是有序类型, 包括整型, 枚举类型, 字符型等.//Case语句必须由end结束,如果没有相符合的选择项, 可以加入else来作出通用选择.function GetDays(AYear,AMonth: Integer): Integer;begin case AMonth of  1,3,5,7,8,10,12: Result := 31;  4,6,9,11: Result := 30;  2: begin  if IsLeapYear(AYear) then   Result:=29  else   Result:=28;  end; else  Result:=0;end;//While关键字用于引出While循环语句, 循环前先进行循环条件的判断, 如果条件为真则执行循环.i := 0;while i < 100 dobegin　sum := sum + i;　Inc(i);end;//Until关键字用于判断repeat循环结构的循环条件, //如果循环条件为真, 则退出循环.Until必须与repeat关键字联合使用.i := 0;repeat　sum := sum + i;　Inc(i);until(i >= 100);//Goto语句用在跳转行号, 可以跳转到当前结构层内任意位置.//必须在声明处用label关键字声明行号.//由于Goto语句会破坏程序的结构, 不推荐使用.var　a,b: Integer;label　X,Y;begin　if a > b then　　goto X　else　　goto Y;X:　WriteLn('a > b');Y:　WriteLn('b > a');end;

 

与或非

//Xor用于取异或, 当两个操作数相等时, 返回False, 不等时返回True.var　a,b: Integer;begin　a := 2; b := 3;　if a xor b then　　WriteLn('a xor b')　else　　WriteLn('a not xor b');end;//一、表示逻辑与 必须用括号括起if (a>0) and (b>0) then//二、表示位运算  必须用括号括起vara,b,c: Integer;beginc := (a and b);end;//一、表示逻辑或  必须用括号括起if (a>0) or (b>0) then//二、表示位运算  必须用括号括起vara,b,c: Integer;beginc := (a or b);end;

 

数据类型

基本数据类型类型             类型说明            使用说明整形             Integer             标准数据类型，使用前不必定义实型             Reall               标准数据类型，使用前不必定义字符型           Character           标准数据类型，使用前不必定义字符串型         String              标准数据类型，使用前不必定义布尔型           Boolean             标准数据类型，使用前不必定义枚举型           Enumerated          高级数据类型，先定义后使用子界型           Subrange            高级数据类型，先定义后使用集合型           Set                 高级数据类型，先定义后使用数据类型         Aray                高级数据类型，先定义后使用文件类型         File                高级数据类型，先定义后使用记录类型         Record              高级数据类型，先定义后使用类类型           Class               高级数据类型，先定义后使用类引用类型       Class Reference     高级数据类型，先定义后使用接口类型         Interface           高级数据类型，先定义后使用指针类型         Pointer             高级数据类型，先定义后使用过程类型         Procedural          高级数据类型，先定义后使用可变类型         Variant             高级数据类型，先定义后使用 整形数据      类型          类型说名符    字节数     取值范围 整型          Integer       4          -2 147 483 648——2 147 483 647 序数型        Cardinal      4          0——4 294 967 295       短整型        ShortInt      1          -128——127长整型        LongInt       4          -2 147 483 648——2 147 483 647小整型        SmallInt      2          -32 768——32 76764位整数      Int64         8          -2 63次方——2 63次方-1字型          Word          2          0——65 535长字型        LongWord      4          0——4 294 967 295字节型        Byte          1          0——255     实型数据类型          类型说明符    字节数     取值范围单精度实型    Single        4          -3.4X10 38方——  -1.5X10-39方 ，1.5X10-39方——3.4X10 38方双精度实型    Double        8          -1.7X10 308方——  -5.0X10-324方，5.0X10-324方——1.7X10 308方 扩展型        Extended      10         -1.1X10 4932方——  -3.6X10 -4951方，3.6X10 -4951方——1.1X10 4932方货币型        Currency      8          -922 337 203 685 477.580 8——922 337 203 685 477.5870实型          Real          8          -1.7X10 308方—— -5.0X10 -324方，5.0X10-324方——1.7X10 308方字符型数据类型          名称          字节数     取值范围字符型        Char          1(2)       扩展ANSI字符集宽字符型      WideChar      2          UniCode字符集Ansi字符型    AnsiChar      1          扩展ANSI字符集字符串型数据类型           类型说明符        最大长度字符串型       String            2 31方个字符短字符型       ShortString       255个字符长字符串型     Ansisting         2 31方个字符宽字符串型     WideSring         2 30方个字符布尔形数据类型           类型说明符    字节数    取值布尔型         Boolean       1         只能为0（False）或1（True） 长布尔型       LongBOOl      4         0（False）或非0（True）宽布尔型       WideBool      2         0（False）或非0（True）字节布尔型     ByteBool      1         0（False）或非0（True）

 

集合类型

//Array用于表示数组, 任何的对象都能被声明成数组.数组分为静态和动态的２种.//静态数组varArr1: array [1..10] of Integer; //动态数组, 由于声明时不知其元素个数, 所以必须在后期用SetLength方法设置数组的大小varArr2: array of Integer; //数组作为参数时, 不能传入数组的大小, 只能传入数组名, 然后用Length方法获取数组的元素个数function X(A: array of Integer): Integer;vari: Integer;beginResult := 0;for i := 0 to Length(A)-1 doResult := Result + A[i];end;//Set关键字用于声明集合类, 集合类允许用集合运算符, 如in等进行操作.//集合的元素个数不超过256个type　TCol = (cA,cB,cC);　TCols = set of TCol;//操作时允许使用加减符号来添加或删除某个集合元素var　Cols: Tcols;begin　Cols := Cols + [cA,cB];end;

 

 

其他关键字

//On关键字用于异常处理, 指出发生的异常, 并获取异常信息.try　i := StrToInt(s);except　on E: exception do　　ShowMessage(E.Message);end;//With关键字用于将相同的对象集合起来处理, 它可以省去输入大量重复的代码, 使代码看上去比较精简.with Form1.Memo1.Lines dobegin　Clear;　Append('abc');　Append('def');　SaveToFile('C:\demo.txt');end;//上面这段代码如果不使用With语句, 则显得非常冗余复制内容到剪贴板代码:Form1.Memo1.Lines.Clear;Form1.Memo1.Lines.Append('abc');Form1.Memo1.Lines.Append('def');Form1.Memo1.Lines.SaveToFile('C:\demo.txt');//In用于判断一个集合中是否包含某个元素.被判断的内容必须是单个集合元素和一个集合的实例.type　TCol = (cA,cB,cC);　TCols = set of TCol;var　Cols: TCols;begin　Cols := [cA,cB];　if cA in Cols then　　ShowMessage('cA in Cols')　else　　ShowMessage('cA not in Cols');end;//In也用于工程文件中, 用于标识某个文件是否被工程所引用.Uses　Unit1 in 'Unit1.pas'; //In可以被用在For语句中, 用于循环取出一个集合中的元素.var　s: string;　sl: TStringList;begin　...　for s In sl do　begin　　ShowMessage(s);　end;end;//Of关键用于和其他关键字构成指定的结构.Of可以与Case, Class, Array, File, Set, Object连用.//Case语句:case Tag Of　0: Result := 'a';　1: Result := 'b';end; //Class语句:type　TDemo = class of TComponent; //Array结构:var　MyInt: array of Integer; //File结构:var　MyFile: file of Byte; //Set语句:type　TCol = (cA,cB,cC);　TCols = set of TCol; //Object结构:type　MyFun = function(I: Integer): Integer of Object;