Delphi object pascal 语法

OBJECT PASCAL PROGRAMING（WRITED BY C.Y.C ATTENTION SYSTEM DEVELOPMENT CO,.）

1.标记（TOKEN）

1.1特别符号（Symbols）

字母（Letters）:A..Z,a..z

数字（Digits）:0..9

十六进位数字（Hex Digits）:0..9,A..F（OR a..f）

空白（Blank）:ASCII32

单字元符号:+-*/=＜＞[].,（）:;^@{}$#

多字元符号:＜=,＞=,:=,..,（*,*）,（.,.）

1.2识别字（Identifiers）

表示:常数,型态,变数,程序,函数,程式单元,程式,栏位....

长度:63位内有效,不分大小写

字首:字母,_

识别字不得重复,若有重复必需采限定识别字:Unit1.IdentName

1.3标笺（Label）:0..9999or识别字

1.4字元字串

'ATTN'-----------ATTN

'You''ll see'----Yoy'll see

''---------------空字串

''--------------空白字元

'Line1'#13#10'Line2'------Line1

Line2

1.5注释

{xxxxxxx}

{xxxxxxxx

xxxxxx

xxxxx}

//xxxxxxxx

2.常数宣告（使用标记=）

2.1一般常数宣告

CONST

Min=0;

Max=100;

Center=（Max-Min）Div2;

Blank=Chr（32）;

NumChr=Ord（'Z'）-Ord（'A'）+1;

ErrMsg='Out Of Rang';

ErrDtl='Out Of Rang'+':Item10';

Numeric=['0'..'9'];

Alpha=['A'..'Z','a'..'z'];

AlphNum=Alpha+Numeric;

2.1型态常数（Typed constant）宣告

CONST

MaxInt:Integer=9999;

FixReal:Real=-0.12;

ListStr:String[4]='This';

AA:Pchar='abcedf';

Dim:Array[0..1,0..1,0..1]of Integer=（（（0,1）,（2,3））,（（4,5）,（6,7）））;

{Dim（0,0,0）=0Dim（0,0,1）=1

Dim（0,1,0）=2Dim（0,1,1）=3

Dim（1,0,0）=4Dim（1,0,1）=5

Dim（1,1,0）=6Dim（1,1,1）=7}

--------------------------------

TYPE

Trec=record

fl1,fl2:Integer;

end;

CONST

IntRec:Trec=（fl1:1;fl2:2）;

------------------------------------------

3.型态宣告（使用标记=）:当宣告一个变数时,必须指明其型态

3.1例子（1）

TYPE

Trang=Integer;

TNumber=Integer;

TColor=（Red,Green,Blue）;

TCharVal=Ord（'A'）..Ord（'Z'）;

TtestIndex=1..100;

TtestValue=-99..99;

TtestList=Array[TtestIndex]of Ttestvalue;

ptestList=^TtestList;=＞指标型态

Tdate=Class

Year:Integer;

Month:1..12;

Day:1..31;

Procedure SetDate（D,M,Y:Integer）;

Function ShowDate:String;

end;

TMeasureList=Array[1..50]of TMeasuredate;

Tname=String[80];=＞定长度

Tsex=（Male,Female）;=＞01

PpersonData=record

Name,FirstName:Tname;

Age:Integer;

Married:Boolean;

TFather,TChild,TSibling:PPersonData;

Case s:Tsex of=＞0和1之间

Maie:（Bearded:Boolean）;

Female:（Pregnant:Boolean）;

End;

TPersonBuf=Array[0..Size（TPsersonData）-1]of Byte;

TPeople=File Of TPersonData;=＞定type

3.2简单型态

3.2.1序数型态

（1）整数型态:

基础型态（Fundmental）

Shortint-128..1278-bit

Smallint-32768..3276716-bit

Longint-2147483648..214748364732-bit

Byte0..2558-bit

Word0.6553516-bit

通用型态（Generic）

Integer-2147483648..214748364732-bit

Cardinal0..214748364732-bit

若16bit

Integer-32768..3276716-bit

Cardinal0.6553516-bit

（2）字元型态

基础型态（Fundmental）

AnsiChar ASCII1-Byt

WideChar Unicode2-Byt

通用型态（Generic）

Char ASCII1-Byt

（3）列举型态（Enumerated Type）

==============================================

TColor=（Red,Green,Blue）;

==============================================