《Delphi入门与提高》由会员分享，可在线阅读，更多相关《Delphi入门与提高（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 变量名1, ,变量名n: 类型;示例 var
3、 iMyAge: Integer; sCityName: String;,类型常量,类型常量不是常量！缺省的情况下，它是静态变量。只有当设置Assigned typed constants属性为否，或者添加$J-时，类型常量的值才不可以改变。,语法 const 类型常量名: 类型 = 值; 示例 const MyAge: Integer = 23;,数据类型,整数实数布尔数字符串集合数组指针,整数类型,实数类型（浮点数）,数值类型的运算,算术运算 整数：+、-、*、/、div（整除）、mod（取余）。注意“/”运算符所的结果为实数 实数：+、-、*、/ 逻辑运算 、 、 = 位运算 not、
4、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 （Null字符串） Name: Array 0.10 of Char转换
5、p := PChar(s);s := String(p);ch := p1;ch := s1;,枚举、子域和集合,枚举：TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); 子域：TMyNumber = 1.100; 集合：集合类型名 = set of 元素类型 TFontStyles = set of TFontStyle;TCharSet = set of Char,数组,一维静态数组数据类型名称 = Array 下标定义 of 类型名称 数组的引用数组名称下标动态数组的长度设定SetLength(数组名称),type TIn
6、tArr = Array 0.99 of Integer;var MyIntArr: TIntArr或者var MyIntArr: Array 0.99 of Integer;MyIntArr0 := 10;,指针类型,指针存放的并不是真正的数据，而是数据在内存中的地址指针的值为nil时，代表它没有指向任何数据指针也有类型，不经过强制类型转换，指针不能指向和自己类型不同的变量。Pointer类型的指针可以指向任何变量,var p: Pointer;pInt: Integer;iWidth: Integer;iWidth := 30;pInt := iWidth;iWidth := pInt +
7、 1;,语句,表达式赋值语句复合语句条件语句循环语句,表达式以及操作符优先级,表达式是由操作符和操作数组成的 操作符有以下优先级,赋值语句,赋值语句左右两边必须数据类型一致，或者赋值号右边的数据类型可转化成左边的类型。 对不同类型间进行赋值时，必须注意数据的截断等可能的错误,s := 你好iWidth := iRight iLeftdSpace := Double(iWidth),复合语句,复合语句以Begin开头，以End结尾，Pascal把它当作一条语句 复合语句书写时要注意缩进,Begin语句1;语句2;语句n;End,条件语句,IfElseThen 语句 Case语句,IfElseTh
8、en 语句,当布尔表达式为真时，运行语句1，否则运行语句2语句1后不能加分号else总是和最近的if配对,if 布尔表达式 then语句1else语句2;if 布尔表达式1 thenbeginif 布尔表达式2 then语句1endelse if 布尔表达式3 then语句2else语句3;,Case语句,当表达式的值在莫个值域中时，运行相应的语句，否则运行else后的语句,Case 表达式 of值域1: 语句1;值域2: 语句2; 值域n: 语句n;else语句m;end;,循环语句,While Do 语句Repeat Until 语句 For 语句,while do 语句,当布尔表达式为真
9、时，将一直运行循环体while 语句中的循环体有可能一次也不运行,while 布尔表达式 do语句while 布尔表达式 dobegin语句1;end,repeat until 语句,当布尔表达式为真时，将终止运行循环体repeat语句中的循环体最少运行一次repeat语句不需要beginend,repeat语句1;语句2;语句nuntil 布尔表达式,for 语句,变量再初值和终值之间时，运行循环体语句变量只能是序数类型,for 变量:=初值 to 终值 do语句;for 变量:=初值 downto 终值 do语句;,break 和 continue,break 跳出当前循环continue
10、 不运行后面的语句，直接开始下一次循环,for i:=0 to 99 dobegin if MyArrIiMax then continue; Inc(iCount);endrepeat if not Assigned(p) then break; until p.Width 10,过程和函数,过程和函数统称子程序，都是指一段在程序中被调用的代码。对于编程者来说，过程和函数主要的不同之处在于函数有返回值，而过程没有。,过程和函数的实现,procedure 过程名称(参数表);局部声明块;begin可执行语句;end;function 函数名称(参数表): 返回值类型;局部声明块begin可执行
11、语句;Result := 函数返回值end;,子程序的参数,子程序名(修饰词1 参数1: 类型1;修饰词n 参数n: 类型n)如果几个参数修饰词和类型相同（包括都没有修饰词），可以将它们合并到一起;修饰词m 参数m, 参数m+1: 类型m;类型为数组时，不能带有数组的长度。procedure DoProc(IntArr: Array0.99 of Integer); procedure DoProc(IntArr: Array of Integer); ,实际参数和形式参数,实参：调用子程序时，传递给子程序的参数dReal := GetRealValue(x);形参：子程序实现部分所定义的参数
12、function GetRealValue(Value: Double): Double,参数的修饰词,无修饰词：数值参数，相当于函数的局部变量，可以改变，但不影响实参const：常量参数，相当于函数的常量，不能改变var：变量参数，相当于函数的局部变量，可以改变，并且影响实参out：外部参数，和变量参数类似，但不提供输入信息。,Object Pascal 常用过程与函数,字符串处理IntToStr, UpperCase, Copy 数学计算Sin, MaxIntValue, Round, Random 输入输出WriteLn, Read ,程序结构,工程组工程单元,工程,program Pr
13、oject1;uses Forms, Unit1 in Unit1.pas Form1;$R *.RESbegin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;end.,单元,unit Unit2;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm2 = class(TForm) Button1: TButton; procedure Bu
14、tton1Click(Sender: TObject); private public end;var Form2: TForm2;implementation$R *.DFMprocedure TForm2.Button1Click(Sender: TObject);begin Closeend;end.,单元的结构,Interface 接口部分只有这里的声明才能被别的单元使用Implementation 实现部分各子程序的具体实现Initialization 初始化部分Finalization 终结部分uses 字句：相当于引用其余单元的声明,变量的作用域和生存期,小结,Delphi 的特点Object Pascal 语言基础常量和变量数据类型语句过程和函数程序结构,上机题目,显示一个数字序列，如下：1, 3, 5, , 19显示杨辉三角形11 11 2 11 3 3 1,
