

Delphi的简介
Delphi是全新的可视化编程环境,为我们提供了一种方便、快捷的Windows
应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计
思想,采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)
当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲,使用
Delphi开发应用软件,无疑会大大地提高编程效率,而且随着应用的深入,您将会发现
编程不再是枯燥无味的工作——Delphi的每一个设计细节,都将带给您一份欣喜。
1. 变量声明格式: Var a:string;
Var b:integer;
2. 常量声明格式: Const a:="string";
b:=3.15;
3. 数据类型:整型 Integer 范围:-32768~32768,占2字节的内存
Shorting 范围:-128~128,占1字节的内存
Longing 范围:-2147443648~2147443648,占4字节的内存
Byte 范围:0~255,占1字节的内存
Word 范围:0~65535,占2字节的内存
实型 Single 范围:7~8位的有效小数部分,占4字节的内存
Double 范围:15~16位的有效小数部分,占8字节的内存
Extended 范围:19~20位的有效小数部分,占10字节的内存
Comp 范围:可以包含19~20位的有效小数部分,占10字节的内存
Real 范围:可以包含11~12位的有效小数部分,占6字节的内存(它只有在和以前的BORLAND PASCAL 兼容的情况才使用,否则应使用Double或Extended)
布尔型 Boolean 包含:True和False两个值,占1字节的内存
字符型 Char 范围:一个ASCII字符,字符串类型一串长255个ASCII
指针型 Pointer 范围:可指向任何特定类型
字符串型 Pchar 范围:是一个指以零结尾的字符串的指针
4. 赋值语句:":=" 例如:我们把 CORED 赋值给label(标签)格式:label1.color:=cored
5. 注释语句的使用a.组合符号:"{"和"}"中间的内容为注释部分(推荐:大块的注释使用此符号)
b.组合符号:"("和")"中间的内容为注释部分(同上)
c. 符号:"//"后面的内容为注释部分(建议:小块注释使用)
6. 函数的使用:
函数头:
Function<函数名>(<形式参数表>):<类型>
函数体:
begin
<语句>
<语句>
...
<语句>
end;
7. 过程的声明和使用:
过程头
Proceduce<过程名>(<形式参数名>)
过程体:
begin
<语句>
<语句>
...
<语句>
end;
8. 基本语法:
条件语句(if语句:)
if <条件> then
<语句>
else
<语句>;
end;
说明:如果IF语句后的条件为真或者说成立的话,则施行then后的语句反之则施行Else 后的语句。
if语句可以嵌套,当使用复合语句表达时,复合语句前后需加上begin…end。else保留字前不能加“;”,而且,编译器会将else语句视为属于最靠近的if语句。必要时,须使用begin…end保留字来强迫else部分属于某一级的if语句。
case语句:
case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。用case语句进行逻辑跳转比编写复杂的if语句容易阅读,而且程序代码整形较快。
下面的例程显示一个使用case语句的窗体:建立如下的事件处理过程:
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.Caption := ‘大于100或为负数’;
end;
end;
执行程序,当Edit1部件接受到一个值,并按动“OK”按钮触发程序后,Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。
(注意:上面的例程只供参考不能复制到编程开发当中。)
Delphi语言中的循环
Object Pascal的循环语句有三种:repeat、while和for语句
repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始,以until结束,其后跟随被判断的布尔表达式。参阅以下的例程:
i := 0;
repeat
i := i+1;
Writen(i);
until i=10;
当此语句被执行时,窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意,与其他语言不同的是,“=”是关系运算符,而不能进行赋值操作)直到repeat..until程序段的结尾才会被计算,这意味着repeat语句至少会被执行一次。
while语句和repeat语句的不同之处是,它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真,循环被执行,否则会退出循环,执行while语句后面的程序。
i := 0;
while i<10 do
begin
i := i+1;
writeln(i);
end;
for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量,它的类型可以是整形、布尔型、字符型、枚举型或子界型。
下面的程序段会显示1到5的数字,i为控制变量:
var
i : integer;
for i := 1 to 5 do
writeln(i);
以上介绍了三种循环语句。如果您知道循环要执行多少次的话,可以使用for语句。for循环执行速度快,效率比较高。如果您不知道循环要执行多少次,但至少会执行一次的话,选用repeat..until语句比较合适;当您认为程序可能一次都不执行的话,最好选用while..do语句。
异常处理语句
1.
try //尝试执行
....//失败时跳到except里执行
except //出错时执行
....
end;
2.
try //尝试执行
... //成功失败都跳到finally执行
finally //无论如何都强制执行
...
end;
3.
try //尝试执行
.... //失败时跳到except里执行
except on e:exception do
showmeaage(e.message);
end;
例:
try
Age:=StrToint(Edit1.text);
showmeaage(format('生于%d年',[YearOf(Now)-Age]))
except
on EConvertError do
showmeaage('输入的不是一个有效数字')
on ERangeError do
showmeaage('输入值太大');
end;