《Delphi入门与提高.ppt》由会员分享，可在线阅读，更多相关《Delphi入门与提高.ppt（46页珍藏版）》请在三一文库上搜索。
1、Delphi 入门与提高,Delphi 基础知识,为什么选择 Delphi,可视化编程，方便易学 组件众多、编程效率高 建立在BDE上的数据库连结 功能强大的调试器 独立执行的应用，不需要运行库,一个简单的例程,procedure TForm1.Button1.Click(Sender: TObject); begin Label2.Caption := 嗨！ + Edti1.Text + ,欢迎来到Delphi的世界！; end; procedure TForm1。Button2.Click(Sender: TObject); begin Close; end;,Object Pascal,
2、常量和变量 数据类型 语句 过程和函数 程序结构,常量和变量,常量 变量 类型常量,常量,常量是在程序中多次引用的固定量的名字。它的值在程序执行期间保持不变，一般也不能改变。 常量的值可以是简单的一个数、一条字符串，也可以是其他常量的计算结果,语法： const 常量名 = 常量值 示例： const CITY = 南京; GreatCity = CITY + 是一座历史悠久 的城市;,变量,变量是一个特定数据实体，它有预定义的数据类型，并且可在内存中某个唯一地址存放指定类型的值。 变量可在程序运行的过程中动态的修改。 变量有四个属性：名称、类型、变量值和占用的内存地址。,语法 var 变量名
3、1, ,变量名n: 类型; 示例 var iMyAge: Integer; sCityName: String;,类型常量,类型常量不是常量！缺省的情况下，它是静态变量。 只有当设置Assigned typed constants属性为否，或者添加$J-时，类型常量的值才不可以改变。,语法 const 类型常量名: 类型 = 值; 示例 const MyAge: Integer = 23;,数据类型,整数 实数 布尔数 字符串 集合 数组 指针 ,整数类型,实数类型（浮点数）,数值类型的运算,算术运算 整数：+、-、*、/、div（整除）、mod（取余）。注意“/”运算符所的结果为实数 实数：
4、+、-、*、/ 逻辑运算 、 、 = 位运算 not、 and、 or、 xor、 shl、 shr （位运算只能对整数进行操作 ）,数值运算的溢出,整数溢出 除0（EZeroDivide） 上溢（EOverFlow） 下溢（EUnderFlow）,布尔类型,Boolean类型只有两个值：TRUE和FALSE。 布尔变量支持三中逻辑运算：not、and和or,字符类型,Pascal 字符串,*字符串类型String实际上声明的是AnsiString类型,Null 字符串,字符与字符串,声明 var ch: Char （字符） s: String （Pascal字符串） p: PChar （Nu
5、ll字符串） Name: Array 010 of Char 转换 p := PChar(s); s := String(p); ch := p1; ch := s1;,枚举、子域和集合,枚举：TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); 子域：TMyNumber = 1100; 集合：集合类型名 = set of 元素类型 TFontStyles = set of TFontStyle; TCharSet = set of Char,数组,一维静态数组 数据类型名称 = Array 下标定义 of 类型名称 数组的引用
6、数组名称下标 动态数组的长度设定 SetLength(数组名称),type TIntArr = Array 099 of Integer; var MyIntArr: TIntArr 或者 var MyIntArr: Array 099 of Integer; MyIntArr0 := 10;,指针类型,指针存放的并不是真正的数据，而是数据在内存中的地址 指针的值为nil时，代表它没有指向任何数据 指针也有类型，不经过强制类型转换，指针不能指向和自己类型不同的变量。 Pointer类型的指针可以指向任何变量,var p: Pointer; pInt: Integer; iWidth: Inte
7、ger; iWidth := 30; pInt := iWidth; iWidth := pInt + 1;,语句,表达式 赋值语句 复合语句 条件语句 循环语句,表达式以及操作符优先级,表达式是由操作符和操作数组成的 操作符有以下优先级,赋值语句,赋值语句左右两边必须数据类型一致，或者赋值号右边的数据类型可转化成左边的类型。 对不同类型间进行赋值时，必须注意数据的截断等可能的错误,s := 你好 iWidth := iRight iLeft dSpace := Double(iWidth),复合语句,复合语句以Begin开头，以End结尾，Pascal把它当作一条语句 复合语句书写时要注意缩
8、进,Begin 语句1; 语句2; 语句n; End,条件语句,IfElseThen 语句 Case语句,IfElseThen 语句,当布尔表达式为真时，运行语句1，否则运行语句2 语句1后不能加分号 else总是和最近的if配对,if 布尔表达式 then 语句1 else 语句2; if 布尔表达式1 then begin if 布尔表达式2 then 语句1 end else if 布尔表达式3 then 语句2 else 语句3;,Case语句,当表达式的值在莫个值域中时，运行相应的语句，否则运行else后的语句,Case 表达式 of 值域1: 语句1; 值域2: 语句2; 值域n:
9、 语句n; else 语句m; end;,循环语句,While Do 语句 Repeat Until 语句 For 语句,while do 语句,当布尔表达式为真时，将一直运行循环体 while 语句中的循环体有可能一次也不运行,while 布尔表达式 do 语句 while 布尔表达式 do begin 语句1; end,repeat until 语句,当布尔表达式为真时，将终止运行循环体 repeat语句中的循环体最少运行一次 repeat语句不需要beginend,repeat 语句1; 语句2; 语句n until 布尔表达式,for 语句,变量再初值和终值之间时，运行循环体语句 变量
10、只能是序数类型,for 变量:=初值 to 终值 do 语句; for 变量:=初值 downto 终值 do 语句;,break 和 continue,break 跳出当前循环 continue 不运行后面的语句，直接开始下一次循环,for i:=0 to 99 do begin if MyArrIiMax then continue; Inc(iCount); end repeat if not Assigned(p) then break; until p.Width 10,过程和函数,过程和函数统称子程序，都是指一段在程序中被调用的代码。 对于编程者来说，过程和函数主要的不同之处在于函
11、数有返回值，而过程没有。,过程和函数的实现,procedure 过程名称(参数表); 局部声明块; begin 可执行语句; end; function 函数名称(参数表): 返回值类型; 局部声明块 begin 可执行语句; Result := 函数返回值 end;,子程序的参数,子程序名(修饰词1 参数1: 类型1;修饰词n 参数n: 类型n) 如果几个参数修饰词和类型相同（包括都没有修饰词），可以将它们合并到一起 ;修饰词m 参数m, 参数m+1: 类型m; 类型为数组时，不能带有数组的长度。 procedure DoProc(IntArr: Array099 of Integer);
12、procedure DoProc(IntArr: Array of Integer); ,实际参数和形式参数,实参：调用子程序时，传递给子程序的参数 dReal := GetRealValue(x); 形参：子程序实现部分所定义的参数 function GetRealValue(Value: Double): Double,参数的修饰词,无修饰词：数值参数，相当于函数的局部变量，可以改变，但不影响实参 const：常量参数，相当于函数的常量，不能改变 var：变量参数，相当于函数的局部变量，可以改变，并且影响实参 out：外部参数，和变量参数类似，但不提供输入信息。,Object Pascal
13、 常用过程与函数,字符串处理 IntToStr, UpperCase, Copy 数学计算 Sin, MaxIntValue, Round, Random 输入输出 WriteLn, Read ,程序结构,工程组 工程 单元,工程,program Project1; uses Forms, Unit1 in Unit1.pas Form1; $R *.RES begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.,单元,unit Unit2; interface use
14、s Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public end; var Form2: TForm2; implementation $R *.DFM procedure TForm2.Button1Click(Sender: TObject); begin Close end; end.,单元的结构,Interface 接口部分 只有这里的声明才能被别的单元使用 Implementation 实现部分 各子程序的具体实现 Initialization 初始化部分 Finalization 终结部分 uses 字句：相当于引用其余单元的声明,变量的作用域和生存期,小结,Delphi 的特点 Object Pascal 语言基础 常量和变量 数据类型 语句 过程和函数 程序结构,上机题目,显示一个数字序列，如下： 1, 3, 5, , 19 显示杨辉三角形 1 1 1 1 2 1 1 3 3 1 ,