delphi基本语法

本文参考自《delphi2010语法手册》

1. 工程文件结构

源文件联系着unit单元,delphi主模块源文件格式为.dpr,其他模块为.pas,一个完整程序由一个.dpr和若干.pas组成。

2..dpr 程序结构

一个.dpr由程序头、[use从句]、主程序块组成。一个典型工程文件如下:


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

程序头指示所编写程序名称,良好的程序,.dpr代码尽量少,尽量将代码分布在.pas中然后再在.dpr里调用。

在程序主文件使用到的所有.pas文件必须列在uses从句里。

用begin和end包围的一段代码称为一个代码块。工程文件含有一个主程序块用于存放主程序代码,工程文件中的全局标识符必须声明于begin之前。

3. 单元文件结构

程序的每个子模块称为一个单元,每个单元存储在一个.pas文件中,一个文件对应一个单元。单元文件后缀名.pas,每个.pas文件依次包括:单元名称、Interface关键字、implementation、[initialization]、[finalization]、关键字end。一个完整的.pas文件如下:


 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后必须以句号结尾)

unit名称与.pas文件名称一致,一个.dpr中不能应用两个名称相同的.pas.

interface至implementation之间的部分称为interface部分。该部分可定义变量、常量、例程等。并非只有此处才可以定义标识符,但只有此处定义的标识符才能被其他文件访问(全局标识符)。此部分定义的例程只是一个原型,具体的实现部分则放在implementation中。uses关键字紧接着interface之后,两者间不允许有任何其他代码。

implementation至initialization之间的部分可书写例程的体代码,此处定义的比变量、常量、例程等,只能在本implementation单元使用,interface部分和其他单元无法使用。

initialization至finalization之间的部分可选,此部分的代码在程序启动时运行,若多个单元中都包含该部分,则按照工程文件uses顺序执行。

finalization部分可有可无,仅当initialization存在时才可使用此部分。程序退出时使用此部分代码,除非程序由Halt强行退出。当多个单元都存在此部分,运行顺序与initialization相反。

4. 单元语法与uses从句

5. delphi的数据类型

简单类型包括:整形、字符型、布尔型、枚举、子界类型、实型。除实型以外,都是有序类型,即每个值在值域中都有一个序数。

6. 整形:

7. 实型:

8.
字符类型:包括ansiChar和WideChar,ansiChar使用一个字节表示一个字符,WideChar则用两个字节表示一个字符。二者之间不能相互赋值。

9.
布尔型:用于判断真假,只有true和false两种值。delphi内置4中布尔类型:Boolean/ByteBool/WordBoolLongBool,内存中分别占1、1、2、4个字节。

10. 枚举类型:

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

11. 子界类型:

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

结构类型包括:集合、数组、记录

12. 集合:


type
set1 = set of 有序值得集合

例子:
type
set1 = set of 0..10;

type
set2 = set of (red,green,blue);

type
set3 = set of byte;

13. 数组:


静态:

一维:
type
myarr = Array[3..5] of integer //序号是3、4、5值为integer类型

多维:
type
myarr = Array[1..3] of Array[3..5] of integer;

type
myarr = Array[1..3,3..5] of integer;

动态:
type
dmyarr = array of char;
var
dal:dmyarr;

14. 记录类型:


type
trec = record
mem1:char;
mem2:integer;
...
end;

15. 字符串类型:

16. 指针类型:


指针的声明:
var ansiStr :^AnsiString;
或先声明类型在声明变量:
type pansiStr = ^AnsiString;
var ansiStr:pansiStr;

指针的赋值:
方式有二,即将另一指针变量值赋给该指针变量,此两个变量指向同一个地址;或者将某个变量的地址赋给该变量。
@取址符 如@ansiStr
^取值符 如ansiStr^

17. 变体类型:

variant

18.运算符

有序类型运算符:


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 右移

字符串运算符:

+  将字符串连接

集合运算符:

指针运算符:

关系运算符:

19. 条件语句

if语句

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

20. 选择语句


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

21. 循环语句

1》while


1 While 条件表达式 do
2 循环语句;

例:
while i < n do
begin
sum := sum+i;
i := i+1;
end;

2》Repeat


repeat 循环体
until 条件表达式

例:
repeat
i := i+1;
sum := sum+i;
until i = n;

3》for


for 计数器 := 初值 to/downto 终值 do
循环体

例:
for i := 1 to/downto n do
writeln(‘hello delphi‘);

4》for...in


for v in set do
循环体

例:
var
myset :set of AnsiChar;
ch : AnsiChar;
begin
myset := [‘1‘,‘2‘];
for ch in myset do
writeln(ch);
end.

for in还可以遍历数组、字符串、类、接口、记录。

22. continue和break语句

23. 程序终止

exit:退出当前正在执行的程序块,不会退出整个程序,除非将其用在了主程序块(.dpr文件中)中。


procedure Mi;
begin
exit;
end;

或返回一个参数,该参数类型和函数返回类型一致
function Mi:string
begin
exit(‘str‘);
end;

Halt:引发异常中断并通过中断直接退出整个程序。

procedure Mi;
begin
Halt;
end;

terminate:delphi窗体程序中含有一个全局程序对象(一般是application),其中的terminate方法可在窗体程序的任何地方使程序正常中断并退出。

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

delphi基本语法

时间: 2024-11-05 10:37:41

delphi基本语法的相关文章

Delphi 正则表达式语法(1): 关于大小写与中文

Delphi 正则表达式语法(1): 关于大小写与中文 //替换一般字符串 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := '我爱DELPHI, 但Delphi不爱我!';   reg.RegEx  := 'Delphi';   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg.Subject); //返回: 我爱DE

Delphi 正则表达式语法(3): 匹配范围

Delphi 正则表达式语法(3): 匹配范围 // [A-Z]: 匹配所有大写字母 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'CodeGear Delphi 2007 for Win32';   reg.RegEx  := '[A-Z]';   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg.Subject

Delphi 正则表达式语法(5): 边界

Delphi 正则表达式语法(5): 边界 // \b 单词边界 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'Delphi Delphi2007 MyDelphi';   reg.RegEx  := '\bDelphi\b'; //前后边界   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg.Subject);

Delphi 正则表达式语法(10): 选项

Delphi 正则表达式语法(10): 选项 // preCaseLess: 不区分大小写, 相当于其他语言中的 i var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'abc ABC aBc';   reg.RegEx  := 'abc';   reg.Replacement := '◆';   reg.Options := [preCaseLess]; //选项是集合类型的   reg

Delphi 正则表达式语法(7): 匹配转义字符

Delphi 正则表达式语法(7): 匹配转义字符 // ? 号的意义是匹配 0-1 次, 如果需要匹配 ? 怎么办 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := '你好吗? 还行!';   reg.RegEx  := '\?|!'; // 加转义用的 \   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg.Sub

Delphi 正则表达式语法(6): 贪婪匹配与非贪婪匹配

Delphi 正则表达式语法(6): 贪婪匹配与非贪婪匹配 //贪婪匹配 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := '<html><head><title>标题</title></head><body>内容</body></html>';   reg.RegEx  := '<.*>';

Delphi 正则表达式语法(9): 临界匹配 - 也叫&quot;预搜索&quot;与&quot;反向预搜索&quot;

Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索" //匹配右边 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net';   reg.RegEx  := 'Delphi (?=2007)'; // ?=   reg.Replacement :

Delphi 正则表达式语法(4): 常用转义字符与 .

Delphi 正则表达式语法(4): 常用转义字符与 . // \d 匹配所有数字, 相当于 [0-9] var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := '期待Delphi 2008 for Win32!';   reg.RegEx  := '\d';   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg.Subjec

Delphi 正则表达式语法(2): 或者与重复

Delphi 正则表达式语法(2): 或者与重复 // | 号的使用, | 是或者的意思 var   reg: TPerlRegEx; begin   reg := TPerlRegEx.Create(nil);   reg.Subject := 'CodeGear Delphi 2007';   reg.RegEx  := 'e|Delphi|0'; //使用了 | 记号   reg.Replacement := '◆';   reg.ReplaceAll;   ShowMessage(reg