1 program Project;
2 {$APPTYPE CONSOLE}
3 uses
4    SysUnits;
5 begin
6
7 end.

 1 unit Unit1;      //单元名称
 2
 3 interface        //interfae起始部分
 4    uses ...
 5
 6 implementation  //implementation起始处
 7    uses.....
 8
 9 initialization    //initialization部分起始处
10 .....
11
12 finalization     //finalization部分起始处
13 .....
14
15 end.              //单元文件结尾（end后必须以句号结尾）

type名 = (标识符1，标识符2，标识符3.。。。);

type子界类型名 = 下界..上界

typeset1 = set of 有序值得集合例子：
typeset1 = set of 0..10;typeset2 = set of (red,green,blue);typeset3 = set of byte;

静态：一维：
typemyarr = Array[3..5] of integer  //序号是3、4、5值为integer类型多维：
typemyarr = Array[1..3] of Array[3..5] of integer;
或
typemyarr = Array[1..3,3..5] of integer;动态：
typedmyarr = array of char;
var dal:dmyarr;

typetrec = recordmem1:char;mem2:integer;...
end;

指针的声明：
var ansiStr :^AnsiString;
或先声明类型在声明变量：
type pansiStr = ^AnsiString;
var ansiStr:pansiStr;指针的赋值：
方式有二，即将另一指针变量值赋给该指针变量，此两个变量指向同一个地址；或者将某个变量的地址赋给该变量。
@取址符 如@ansiStr
^取值符 如ansiStr^

ord：返回有序值在值域中的序数
如：ord('A') = 65
pred：返回指定值的前一个值
pred('B') = A
succ：返回指定值的下一个值
succ('A') = B
high：返回变量能够表示的最大值或某类型的上界
high(byte) = 255
low：与high相反

+
-
*
/
div    整除
mod  求余

not    反
and   且
or      或
xor    异或

not    按位取反
and   按位取且
or      按位取或
xor    按位取异或
shl     左移
shr     右移

+  将字符串连接

1 if <条件表达式> then
2   <语句1>
3 else
4   <语句2>;

1 Case 选择表达式 of
2   常量1:语句1;
3   ...
4   常量n:语句n;
5 Else
6   ...
7 End;

1 While 条件表达式 do
2    循环语句;例：
while i < n do
beginsum := sum+i;i := i+1;
end;

repeat 循环体
until 条件表达式例：
repeati := i+1;sum := sum+i;
until i = n;

for 计数器 := 初值 to/downto 终值 do
循环体例：
for i := 1 to/downto n dowriteln('hello delphi');

for v in set do循环体例：
varmyset :set of AnsiChar;ch : AnsiChar;
beginmyset := ['1','2'];for ch in myset dowriteln(ch);
end.

procedure Mi;
beginexit;
end;或返回一个参数，该参数类型和函数返回类型一致
function Mi:string
beginexit('str');
end;

procedure Mi;
beginHalt;
end;

procedure TForm1.Button1Click(sender:TObject);
beginApplication.terminate;
end;