delphi语法基础

1、即Object Pascal的主要语法。一，语句程序、过程和函数都是由语句组成的，每个语句创建一个可执行的代码。要注意程序的可读性，在程序中选择合适的缩排、大小写风格，并在需要时将程序代码分行 1，语句(简单语句)格式：语句 + ; 2，语句块(复合语句,构造语句)格式： Begin /Begin后面没有分号 语句1; 语句2; /End前面的分号可有可无 End; /End后面必须有分号或者句号(程序的最后一个End后面)，以标记语句块或者程序的结束。 3，注释语句: 这是一个用于说明注释语句的例子 注释语句包含在”花括号 “和”花括号”中，称为块注释 或者包含在”圆括号* “和” *圆括号

2、”中，是常用于屏蔽代码的块注释 或者两个反斜杠和换行符之中，称为行注释 /可以在块注释里面嵌套行注释 不同类的块注释符可以互相嵌套，但不提倡这么做。 ( *这是合法但不提倡的* ) ( * 这是合法但不提倡的 * ) /块注释1，多个紧跟的行注释会形成一个块注释 /块注释2，许多文档注释分析工具（如：Doc-O-Matic） /块注释3，会将注释块内的所有的句子自动连接在一起，形成一文字段落 /行注释4，被空行隔开的是独立的行注释 /# 这样的注释行会被工具忽略不提取 /有如下字符的注释也不会被提取。”Ignore Text”, “$Log”, “$Filename”, “$Revision”

3、, “$Date”, “$Author”, “$History”, “$Id” procedure TForm1.FormCreate(Sender: TObject); var MyButton : TButton; begin /语句块包含在beginend中 MyButton := TButton.Create(self); /语句以;结束 MyButton.Parent := self; /忽略空白字符(空格/回车/TAB) /告诉创建方法在Form1中显示MyButton (*MyButton.Caption := '测试一'*) /一般 (*)用于临时注释掉暂不使用

4、的代码 MyButton.OnClick := MyButtonClick; /临时的注释可在注释符号后加上”?”以待修订 MyButton.Show; end; * 一些注释“ ”标记后跟有“$”符号，编译开关$j+；这些是编译指示，不可修改。编译指示一般包括对另一文的参考或用来改变代码的路径 * 还可以使用IDE帮助注解功能：可以在在线帮助中找到一个属性，Object Inspector中选定该属性值段，并按下F1键，则类型将在属性说明的结尾处列出，例如Color属性列出下边的语句：Property Color : TColor; 二，数据类型Object Pascal的最大特点是，它的数

5、据类型特别严谨，这表示传递给过程或函数的实参必须和定义过程或函数时的形参的类型相同。 6大基类型 范围内存整型Integer-32768到327672字节没有小数部分的数字Shortint-128到1271字节Longint-2147443648到21474836474字节Byte0到2551字节Word0到655352字节实型Single4字节可含7到8位有效小数Double8字节15到16位有效小数Extended10字节19到20位有效小数Comp8字节19到20位有效小数Real专用于向前兼容，否则用Double或Extended6字节11到12小数，布尔型Boolean只包含true

6、或False两个值1字节字符型CharD2007为止是AnsiChar1字节表示： 'a'或#97 ''''或#39 ' '空格AnsiChar1字节的ANSI字符WideChar2字节的Unicode字符字符串型StringAnsiString 这是Pascal缺省的字符串类型'Line 1'#13#10'Line 2''You''ll see' You'll see AnsiString由AnsiChar 字符组成，其长度没有限制，同时与n u l l结束

7、的字符串相兼容ShortString为兼容D1而保留,最长255字符WideString由WideChar 字符组成，其长度没有限制，同时与null结束的字符串相兼容PChar指向null结束的Char字符串的指针，类似于C的char * 或lpstr类型PAnsiChar指向null结束的AnsiChar字符串的指针PWideChar指向null结束的WideChar字符串的指针指针型Pointer可以指向任何特定类型1，字符在长度上并不表示一个字节，应该使用Sizeof( )函数对字符长度进行编码，Sizeof()标准函数返回类型或实例的字节长度。 2，字符串 参见Delphi 中的字符串

8、Delphi6 开发人员指南读书笔记 var S:string; /编译器默认S的类型是AnsiString。可用编译开关$H来将未限长度的string类型定义为ShortString var $H- /当$H编译开关的值为负时，string变量是ShortString类型； S1:string; /S1是ShortString类型 $H+ /当$H编译开关的值为正时(缺省情况)，字符串变量是AnsiString类型 S2:string; /S2是AnsiString类型 var S: string63; /63个字符的ShortString字符串。如果在定义时特地指定了长度(最大在2 5 5

9、个字符内)，那么总是ShortString，$H规则无效 * AnsiString类型的内存分配原则：自动回收功能。 AnsiString字符串类型有引用计数的功能，这表示几个字符串都能指向相同的物理地址。因此，复制字符串因为仅仅是复制了指针而不是复制实际的字符串而变得非常快。 *，字符串运算符：能用+运算符或Concat( )函数来连接两个字符串，推荐使用+运算符， *， “编译器魔术”字符串函数和过程：Concat ( )是众多“编译器魔术”过程和函数中的一个，其他还有ReadLn( )、WriteLn( )、它们没有Object Pascal的定义。这些函数接收不确定个数的参数或可选的参

10、数，它们不能根据Object Pascal语言来定义，正因为这样，编译器为每一个这样的函数提供了特殊的条件，并产生一个对堆栈函数的调用，这些堆栈函数定义在S y s t e m单元中，它们为了越过P a s c a l的语言规则，通常是用汇编语言实现的。 3，变体类型：由于Va r i a n t类型提供了更灵活的机制，你可能想用Va r i a n t类型来代替传统的数据类型。然 而，这将增加程序代码长度，并使得程序运行起来很慢。另外它也使得程序代码很难维护。在 有些情况下Va r i a n t特别有用。事实上，V C L中有好几个地方都用到了v a r i a n t，尤其是在A c t

11、 i v e X 和数据库领域。因为这些地方需要复杂的数据类型。一般来说，应当使用传统的数据类型，除 非对灵活性的要求超过了对程序性能的要求。不确定的数据类型会产生不确定的缺陷。 4，Currency：在Delphi 2.0中引进了一种新的数据类型C u r r e n c y。它的主要目的是用来进行财经计算，它不同于 能在数字间移动小数点的浮点数，它的小数点是固定的，在小数前有1 5位数字，在小数点后有4位数字。 当移值Delphi 1.0的程序并涉及到货币时，最好用C u r r e n c y来代替S i n g l e、r e a l、D o u b l e和E x t e n d e

12、 d。 三，变量1，标识符: 标识符包括变量(var)、常量(const)、类型(type)、过程(procedure)、方法(Method)及其他，Object Pascal 在应用标识符时，必须首先说明它们。Object Pascal是强类型语言，它的编译器可以检查确保赋给变量或属性的值是正确的类型，以便于您改正错误。因为Object Pascal是编译语言，所以Delphi的执行速度要比使用解释语言快得多。在使用标识符前说明它们，可以减少程序错误并增加代码的效率。 命名规则：字母或_+ 字母或_或数字 (最长255多则截断，不分大小写，勿用系统保留字如sqrt,sin) *2，变量声明：

13、 var 变量名 : 类型 procedure TForm1.addClick(Sender: TObject); 按钮Add的事件处理过程 var Value , Sum : Integer; /如果有多个同类型的变量声明，只需要在变量之间用逗号隔开 Line : String; /连续多个变量声明时，不必每次都写Var,甚至有时可不写保留字Var begin Value := 100; Sum := 20; Edit1.Text := IntToStr(Value + Sum); IntToStr函数确保赋值类型匹配 end; 3，变量赋值：赋值语句：<变量或属性>:=<

14、表达式或值>。(赋值号“:=”两边的数据类型应相同或兼容.) procedure TForm1.Button1Click(Sender: TObject); begin 一个按钮onClick事件 Edit1.Color := clRed; 控件Edit1的Color属性置为红色 end; Var i : Interger = 10; /D2开始可在var块中对全局变量(非局部变量)赋初值 S : String = 'hallo world' D : Double /且Delphi编译器自动对全局变量赋初值(整型数赋为0，浮点数赋为0.0，指针为null，字符串为空等)，

15、因此，在源代码中不必对全局变量赋零初值。 × 整型类别和实型类别都各有五种类型，同一大类别中所有的类型都相容可赋值，但如果值的范围超出变量范围内则赋意外的值(范围错误)。 × 不同大类间赋值要谨慎。一般来说，可以将一个较小范围的值赋给一个较大范围的值。例如，您可以将整型值10赋给一个接受实型值的Double属性而使得值成为10.0，但如果将一个Double类型的值赋给整形变量，则会出现类型错误。 × 打开Range Checking范围检查功能(选用Options|Project|Compiler Options Page|选择Range Checking)，在库

16、单元的Implementation后面有$R*.DFM字样表示范围检查打开 (4)命名约定：简单的用camelCase,复杂的用PascalCase 四，常量:1，常量声明：用“const “和“= “说明时固定了数据类型与值。 const Pi = 3.14159; /真常量:const 常量名=常量表达式; real型常量。由于未声明常量的类型，编译器能根据常量的值自动判断常量的类型并分配内存(如同VB)；对于整型常量，编译器在运行时跟踪它的值，并不对它分配内存， const i:integer=23; /类型常量:const 常量名:类型=值;(兼容老版本，要加编译开关$j+；现在可以直

17、接在全局变量中赋初值)。由于指定常量的类型，就能完全控制编译器对常量的处理 2， 常量分配内存：注意编译器根据如下规则来对常量分配内存：整型数被认为是最小的Integer类型(10被认为是ShortInt，32000被认为是 SmallInt等等)；字符串值被认为是char 类型或string类型(通过$H定义)；浮点值被认为是extended数据类型，除非小数点位数小于4位(这种情况被当作comp类型)； Integer和Char的集合类型被存储为它们自己。Object Pascal通过在应用程序的代码页存贮常量来优化数据空间 3，编译期间的函数：Object Pascal允许在const和

18、var声明时用编译期间的函数，这些函数包括Ord( )、Chr( )、Trunc( )、Round( )、High( )、Low( )和Sizeof( )。如，Var w : Word = Sizeof(Byte); 4, 注意跟C和C+不一样，Object Pascal没有预编译。在Object Pascal中没有宏的概念，因此Object Pascal没有跟C一样的#define常量声明。虽然在Object Pascal中用$define进行条件编译，但不能用它来定义常量。在C或C+中用#define定义常量的地方在Object Pascal中用const来定义。 五，运算符和表达式：按优

19、先级顺序排列1，单目运算符 (最高优先级) ： 取变量或函数的地址(返回一个指针) ，not 逻辑取反或按位取反 2，乘除及按位运算符 ：* 相乘或集合交集 ，/ 浮点相除 ，div 整数相除 ，mod 取模 (整数相除的余数) ，as 程序运行阶段类型转换 (RTTI运算符) ，and 逻辑或按位求和 ，shl 按位左移 ，shr 按位右移 3，加减运算符 ：+ 相加、集合并集、字符串连接或指针增加一个偏移量 ，- 相减、集合差集或指针减少一个偏移量 ，or 逻辑或按位或运算 ，xor 逻辑或按位异或运算 4，关系及比较运算符(最低优先级) ：= 判断是否相等 ，<> 判断是否不

20、相等 ，< 判断是否小于 ，> 判断是否大于 ， 判断是否小于或等于,或是否是一个集合的子集 ，>= 判断是否大于或等于,或是否是一个集合的父集 ，in 判断是否是集合成员 ，is 判断对象是否类型兼容 (又一个RTTI运算符) *对于像C + +中的+ +和- -等类似的运算符，Pascal 提供了Inc( )和Dec( )来执行相同的功能。如Inc(var),Inc(var,n)各相当于var+1,var+n 表达式 表达式是由运算符、运算对象和分隔符组成的一个序列，它表示的是一个运算。表达式中的运算对象可以是另外一个表达式。 在赋值语句中，表达式左右两边类型必须相容 一

21、些合法的表达式： X,Y /声明变量 X/取变量的地址 /整型常量 Multi(x,y) /调用函数 X*Y /算术运算 X=Y /逻辑表达式 a,b,c /集合表达式 Char(13) /强制类型转换，整型转为字符型。 六，用户自定义类型：（二），自定义类型：用户还可以定义自己的数据类型。如枚举型、子界型、数组型、集合型、记录型、对象型等。每一个类型的名称都是由字母T开始，这并非必须的，但它是Delphi的惯例，在区别类型名和标识符时非常有用。 1，枚举型enumerated：type 类型名=(标识符1，标识符2， 标识符n); 枚举型的说明： type Tdays=( Sunday ,M

22、onday,Tuesday,Wednesday,Thursday,Friday,Saturday); /Sunday对应整型位置值/序号0，Monday序号1 定义上述枚举型的变量： var DayOfWeek:TDays; 2，子界类型subrange：某范围内的整形、布尔量、字符型或枚举型。 type Thours = 0.23; /整型某范围的子界 TValidLetter = 'A' . 'F' /字符型的子界 TDays = ( Sunday ,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); /枚

23、举型子界 TWorkDay = Monday.Friday; /枚举型TDays型的子界 3， 数组类型 (1)、类型说明：type 类型名=array有序类型 of 基类型; (2)、数组变量定义 静态数组一维定义：arrA:array下标.上标 of 数据类型 /arrA,arrB为定义的数组变量。 静态数组二维定义：arrB:array 下标1.上标1,下标2.上标2 of 数据类型 动态数组一维定义：arrA:array of 数据类型 动态数组二维定义：arrB:array of array of 数据类型 动态数组一维重置长度：setlength(arrA,长度); 动态数组二维重

24、置长度：setlength(arrB,长度1,长度2); (3)、引用以赋值 一维数组引用:arrAn /n为从下标至上标的一个量 二维数组引用:arrBm,n; unit Unit1; interface uses SysUtils, /系统unit无需声明 Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation $R *.dfm / 包含表单声明 procedure TForm1.FormCreate(Se

25、nder: TObject); var singleArray : array of string; / 动态一维数组定义 multiArray : array of array of Word; i, j : Integer; type TCheck = array1.10 of Double; /数组类型说明，TCheck1到TCheck10的10个Double型元素 var Check :TCheck;/数组变量的按已定义类型来定义 var Check2 : array 1.10 of Double;/静态一维数组定义，数组变量的直接定义 type TMatrix = array1.10

26、, 1.50 of Real; /静态二维数组定义 begin SetLength(singleArray, 4); / 动态一维数组重置长度 SetLength(multiArray, 2, 3); /动态二维数组重置长度 /一维数组赋初值，从singleArray0开始 ShowMessage('一维数组 :'); for i := 0 to 3 do begin singleArrayi := 'String '+IntToStr(i); /数组赋值/初始化 ShowMessage('Element '+IntToStr(i)+'

27、= '+singleArrayi); end; /多维数组赋初值 ShowMessage('多维数组 :'); for i := 0 to 1 do for j := 0 to 2 do begin multiArrayi,j := i + j; /二维数组数据初始化为0.0 ShowMessage('Element '+IntToStr(i)+','+IntToStr(j)+' = '+ IntToStr(multiArrayi,j); end; end; end. 4，字符串类型 type MyString: stri

28、ng15; /string占用内存字节=所说明的大小+一个数组大小的字节(默认为255)=15+1=16 var MyName: MyString;/变量定义 MyName := 'Frank.Smith' /字符串赋值。MyName可看作一维的字符数组，所以MyName3 = 'a' 常用字符串 String $H+ AnsiString , $H- ShortString 'BORLAND' BORLAND 'You''ll see' You'll see '' 无字符 'Lin

29、e 1'#13#10'Line 2' '中华人民共和国' 字符串操作函数： Concat和(+)功能相同，都可以将多个字符串组合在一起，建立一个较大的字符串； Copy会返回一个字符串中的子字符串； Delete在一个字符串中从一个指定位置起删除一定数目的字符； Insert在一个字符串中插入一个字符串； Length返回字符串的长度； Pos返回一个子字符串在一个字符串中的位置，即索引值。 5，集合类型(set)：Type 类型名= set of 有序类型; 集合类型相当于是整形、布尔型、字符型、枚举型和子界型的有序数组。常用于检查一个值是否属于一个特

30、定集合 在窗体上加入一个编辑框和一个按钮，清除编辑框中的文字，在其上加上Caption为“输入元音”的标签Label，并在编辑框的下方加入一个空的标签，将按钮的Default属性改为True，建立按钮的事件处理过程如下 procedure TForm1.Button1Click(Sender:TObject); type Tvowels=set of Char; var Vowels:TVowels; begin Vowels := 'a','e','i','o','u' if Edit1.Text1 in Vow

31、els thenLable2.Caption := '是元音' else Lable2.Caption := '请再试' end; 6，记录类型(record)：相当于数据库的记录类型 type 类型名 = record 字段名1:类型1; 字段名2:类型2; end; type TEmployee=record Name : string20; YearHired:1990.2000; Salary: Double; Position: string20; end; var NewEmployee,PromotedEmployee:TEmployee; /变量

32、定义 NewEmployee.Salary := 1000; /访问记录的特定字段(域,field) with PromotedEmployee do /使用with.do语句可以给整个记录赋值 begin Name :='' YearHired := 1993; Salary := 2000.00 Position := 'editor' end; PromptEmployee := NewEmployee; /记录的直接赋值/复制值 7，文件(file)： type PhoneEntry = record FirstName, LastName: strin

33、g20; PhoneNumber: string15; Listed: Boolean; end; PhoneList = file of PhoneEntry; 8,类(class) type TListColumns = class(TCollection) private FOwner: TCustomListView; function GetItem(Index: Integer): TListColumn; procedure SetItem(Index: Integer; Value: TListColumn); protected function GetOwner: TPer

34、sistent; override; procedure Update(Item: TCollectionItem); override; public constructor Create(AOwner: TCustomListView); function Add: TListColumn; property Owner: TCustomListView read FOwner; property ItemsIndex: Integer: TListColumn read GetItem write SetItem; default; end; /类不能定义在函数或过程中 9,类引用类型(

35、class reference) Type 类引用类型名=class of 类类型; 如： type TClass = class of TObject; Var anyobj:Tclass; Anyobj变量可以引用任何其他类。 类引用类型在用户要调用一个类的方法，但编译时又不知道该类的类型时非常有用。 10,接口(interface) type 接口名 = interface (父接口) 各类中共同的方式或属性列表 end; 它体现的是多个互不相关的类之间的相同行为。 11,变体类型(variant) 变体类型与其他数据类型结合使用会产生类型的自动转换。 var V1, V2, V3, V

36、4, V5: Variant; I: Integer; D: Double; S: string; begin V1 := 1; integer value V2 := 1234.5678; real value V3 := 'Hello world!' string value I := V1; I = 1 (integer value) D := V2; D = 1234.5678 (real value) S := V3; S = 'Hello world!' (string value) 12,指针类型(pointer) type 指针类型名= 类型 对

37、字符串类型和类类型，其内部实现方式均用指针。但为方便使用，Delphi把许多运用指针的地方隐藏起来，用户在编制程序时可以不把其当作指针来处理，而让Delphi来处理容易出错的问题。 13,过程类型 type TIntegerFunction = function: Integer; TProcedure = procedure; TStrProc = procedure(const S: string); TMathFunc = function(X: Double): Double; 七，强制类型转换和类型约定强制类型转换是一种技术，通过它能使编译器把一种类型的变量当作另一种类型。由于P a

38、 s c a l有 定义新类型的功能，因此编译器在调用一个函数时对形参和实参类型匹配的检查是严格的。因此为了 能通过编译检查，经常需要把一个变量的类型转换为另一个变量的类型。例如，假定要把一个字符类 型的值赋给一个b y t e类型的变量： 八，条件语句：1， if语句 If 条件1 then 代码1 If 条件1 then 代码1 Else 代码2; If 条件1 then begin 代码2; 代码3 /此处可用可不用'' end /此处不能用'' else if then 代码4 /此处不能用''Else /默认与最靠近的if语句配对，可用

39、beginend包起嵌套的if语句来强迫else部分属于某一级的if语句 代码5； /此处要用''2，case语句 case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。用case语句进行逻辑跳转比编写复杂的if语句容易阅读，而且程序代码较快。 格式： case 条件表达式 of 结果1：代码1; 结果2：代码2; else： 代码3 end 一个使用case语句的窗建立如下的事件处理过程:当Edit1部件接受到一个值，并按动“OK”按钮触发程序后，Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。

40、 procedure TForm1.Button1Click(Sender: TObject); var Number : Integer; begin Number := StrToInt(Edit1.Text); case Number of 1,3,5,7,9: Label2.Caption := '奇数' 0,2,4,6,8: Label2.Caption := '偶数' 10.100: begin Label2.Caption := '在10到100之间' Form1.Color := clBlue; end; else Label2.

41、Caption := '大于100或为负数' end; end; 九，循环语句1，repeat语句 repeat 执行一段程序; until 循环结束条件 repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例子： i := 0; repeat i := i+1; Writen(i); until i=10; 当此语句被执行时，窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意，与其他语言不同的是，“=”是关系运算符，而不能进行赋值操作)直到repeat.until程序段的结尾才会被

42、计算，这意味着repeat语句至少会被执行一次。 2，while语句 while 布尔表达式 do 语句 while语句和repeat语句的不同之处是，它的布尔表达式在循环的开头进行判断。While保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。 下面的例子达到和上面的repeat例程达到同样的效果： i := 0; while i<10 dobegin i := i+1; writeln(i); end; 3，for语句 格式1： for 变量：表达式1 to 表达式2 do 一段程序 格式2： for 变量：表达式1

43、downto 表达式2 do 一段程序 for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量，它的类型可以是整形、布尔型、字符型、枚举型或子界型。 下面的程序会显示1到5的数字，i为控制变量： var i : integer; for i := 1 to 5 do writeln(i); 以上三种循环语句。如果您知道循环要执行多少次的话，可以使用for语句。for循环执行速度快，效率比较高。如果您不知道循环要执行多少次，但至少会执行一次的话，选用repeat.until语句比较合适；当您认为程序可能一次都不执行的话，最好选用while.do语句。 十，函数

44、与过程函数Function和过程Procedure都是一种子程序或子程序的集合/模块，二者并无本质上的区别，只是出自不同的编程风格(c/c+属于函数型语言，pascal属于过程型语言)，供不同风格的程序员选用。它们的细微差别是：函数一般有一个唯一的返回值，也可无返回值；过程一般无返回值，或者用变量参数的方式返回多个值。 如果一组语句能够完成某一功能，那么就把它定义为一个过程；如果要完成的功能是为了进行一系列处理之后返回一个值，那么就可以把它定义为一个函数 1，函数和过程的格式：函数/过程的标题 => 说明 => 程序代码 （1）函数/过程的标题 （2）说明：类型说明 = 变量说明

45、=> 常量说明 （3）程序代码:由begin开始，end结束。函数可以将返回值赋给函数名称或者Result变量。 procedure TForm.Button1Click(Sender Tobject); var 程序模块的说明部分 Name : string; begin 程序模块的语句部分 Name := Edit1.Text; Edit2.Text := 'Welcome to Delphi'+Name; end; 程序模块结束 function GetAverage(num:integer;total:Double) Double; / total和num为形参，

46、即形式参数，由被调用过程或函数定义的参数 begin GetAverage := total / num; /将返回值赋给Result变量效果一样 end; 下面是这个函数的调用方法： InterestEarned :=GetAverage(2000,12); /2000和12为实参，即实际参数，由调用过程或函数引用的参数 2，参数：（过程和函数通过参数或全局量与外界的数据通信） 程序代码在调用一个过程或函数时，通常通过参数将数据传递到被调用的过程或函数中。最常用的参数有值参数、变量参数和常量参数3种。 （1），值参数：只声明其数据类型，调用函数不影响实参。 用于从外入内 （2），变量参数：需

47、要以保留字var来声明，调用函数影响实参。 常用于过程从外入内再传出外多个返回值。 （3），常量参数：利用const关键字来声明，调用函数不改变形参。 用于从外入内，并确保传入值不变。 3，编码规范：过程名、函数名、形参名、形参的组合与顺序尽量有意义。意义样例与说明前缀Set设置输入参数值procedure SetUserName;前缀Get获取数值function GetUserName:string; /函数在标题中还多了一项：返回值的类型动词动作procedure FormatHardDrive;意群每个单词首字母大写procedure ThisIsReadableRoutineName

48、;前缀a与类的特性或字段同名时的形参procedure SomeProc(aUserName:string; aUserAge:integer);同一类型的形参应当归并在一起procedure Foo(Param1,Param2,Param3:Imteger;Param4:string);形参按使用频率高低排列考虑寄存器调用规则SomeProc(aPlanet, aContinent, aCountry, aState, aCity). /输入参数位于输出参数之前。范围大的参数应当放在范围小的参数之前。Sender: TObject首参事件处理过程procedure TForm1.addClick(Sender: TObject);表示不希望参数被过程所修改把形参标以Const，如果是记录、