Delphi入门与提高.ppt

Delphi 入门与提高 Delphi 基础知识 为什么选择 Delphi n可视化编程，方便易学 n组件众多、编程效率高 n建立在BDE上的数据库连结 n功能强大的调试器 n独立执行的应用，不需要运行库 一个简单的例程 procedure TForm1.Button1.Click(Sender: TObject); begin Label2.Caption := 嗨！ + Edti1.Text + ,欢迎来到Delphi 的世界！; end; procedure TForm1。Button2.Click(Sender: TObject); begin Close; end; Object Pascal n常量和变量 n数据类型 n语句 n过程和函数 n程序结构 常量和变量 n常量 n变量 n类型常量 常量 n常量是在程序中多 次引用的固定量的 名字。它的值在程 序执行期间保持不 变，一般也不能改 变。 n常量的值可以是简 单的一个数、一条 字符串，也可以是 其他常量的计算结 果 n语法： const 常量名 = 常量 值 n示例： const CITY = 南京; GreatCity = CITY + 是一座历史悠久 的 城市; 变量 n变量是一个特定数 据实体，它有预定 义的数据类型，并 且可在内存中某个 唯一地址存放指定 类型的值。 n变量可在程序运行 的过程中动态的修 改。 n变量有四个属性： 名称、类型、变量 值和占用的内存地 址。 n语法 var 变量名1, ,变量 名n: 类型; n示例 var iMyAge: Integer; sCityName: String; 类型常量 n类型常量不是常量 ！缺省的情况下， 它是静态变量。 n只有当设置 Assigned typed constants属性为否 ，或者添加$J-时 ，类型常量的值才 不可以改变。 n语法 const 类型常量名: 类型 = 值; n示例 const MyAge: Integer = 23; 数据类型 n整数 n实数 n布尔数 n字符串 n集合 n数组 n指针 n 整数类型 类型范围 状态字节 数 Integer -231231-1有符号4 Cardinal0232-1 无符号4 ShortInt -128127 有符号1 Int64-263263-1 有符号 8 Byte 0255 无符号 2 Word 065535 无符号 4 实数类型（浮点数） 类型范围字节数 有效位数 Real 5.010-324 1.710308 8 1516 Single 1.510-45 3.41038 478 Double 5.010-324 1.710308 81516 Extended 3.610-4951 1.7104932 101920 Currency -922337203685477.5808 922337203685477.5807 81920 数值类型的运算 n算术运算 n整数：+、-、*、/、div（整除）、mod（取余） 。注意“/”运算符所的结果为实数 n实数：+、-、*、/ n逻辑运算 n、 、 = n位运算 nnot、 and、 or、 xor、 shl、 shr （位运算只能 对整数进行操作 ） 数值运算的溢出 n整数溢出 n除0（EZeroDivide） n上溢（EOverFlow） n下溢（EUnderFlow） 布尔类型 nBoolean类型只有两个值：TRUE和 FALSE。 n布尔变量支持三中逻辑运算：not、and 和or 字符类型 类型字符集 字节数 AnsiCharSBCS,MBCS1 WideCharUnicode2 Char等价于AnsiChar1 Pascal 字符串 类型 最多字符 字节数 字符集 ShortString 2552256ANSI向后兼容 AnsiString23142G B ANSI (SBCS,MBCS) LongString 23142G B ANSI (SBCS,MBCS) WidString23042G B Unicode *字符串类型String实际上声明的是AnsiString类型 Null 字符串 类型 说明 PCharNull 式字符串，ANSI字符，向后 兼容 PAnsiCharNull 式字符串，ANSI（SBCS， MBCS） PWideChar Null 式字符串，Unicode字符集 PString指向String的指针 Pointer无类型指针，可以指向任何类型 字符与字符串 n声明 var ch: Char （字符） s: String（Pascal字符串） p: PChar （Null字符串） Name: Array 010 of Char n转换 p := PChar(s);s := String(p); ch := p1;ch := s1; 枚举、子域和集合 n枚举：TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); n子域：TMyNumber = 1100; n集合：集合类型名 = set of 元素类型 TFontStyles = set of TFontStyle; TCharSet = set of Char 数组 n一维静态数组 数据类型名称 = Array 下标定义 of 类型名称 n数组的引用 数组名称下标 n动态数组的长度设 定 SetLength(数组名 称) ntype TIntArr = Array 099 of Integer; var MyIntArr: TIntArr 或者 var MyIntArr: Array 099 of Integer; nMyIntArr0 := 10; 指针类型 n指针存放的并不是真 正的数据，而是数据 在内存中的地址 n指针的值为nil时，代 表它没有指向任何数 据 n指针也有类型，不经 过强制类型转换，指 针不能指向和自己类 型不同的变量。 nPointer类型的指针可 以指向任何变量 nvar p: Pointer; pInt: Integer; iWidth: Integer; niWidth := 30; pInt := iWidth; iWidth := pInt + 1; 语句 n表达式 n赋值语句 n复合语句 n条件语句 n循环语句 表达式以及操作符优先级 表达式是由操作符和操作数组成的 操作符有以下优先级 操作符优先 级 类别 not1单目运算 * / div mod shl shr and2乘法运算 + - or xor3加法运算 = = iMax then continue; Inc(iCount); end nrepeat if not Assigned(p) then break; until p.Width 10 过程和函数 n过程和函数统称子程序，都是指一段在 程序中被调用的代码。 n对于编程者来说，过程和函数主要的不 同之处在于函数有返回值，而过程没有 。 过程和函数的实现 nprocedure 过程名称(参数表); 局部声明块; begin 可执行语句; end; nfunction 函数名称(参数表): 返回值类型; 局部声明块 begin 可执行语句; Result := 函数返回值 end; 子程序的参数 n子程序名(修饰词1 参数1: 类型1;修饰词n 参 数n: 类型n) n如果几个参数修饰词和类型相同（包括都没有修饰 词），可以将它们合并到一起 ;修饰词m 参数m, 参数m+1: 类型m; n类型为数组时，不能带有数组的长度。 procedure DoProc(IntArr: Array099 of Integer); procedure DoProc(IntArr: Array of Integer); 实际参数和形式参数 n实参：调用子程序时，传递给子程序的 参数 dReal := GetRealValue(x); n形参：子程序实现部分所定义的参数 function GetRealValue(Value: Double): Double 参数的修饰词 n无修饰词：数值参数，相当于函数的局 部变量，可以改变，但不影响实参 nconst：常量参数，相当于函数的常量 ，不能改变 nvar：变量参数，相当于函数的局部变 量，可以改变，并且影响实参 nout：外部参数，和变量参数类似，但 不提供输入信息。 Object Pascal 常用过程与函数 n字符串处理 IntToStr, UpperCase, Copy n数学计算 Sin, MaxIntValue, Round, Random n输入输出 WriteLn, Read 程序结构 n工程组 n工程 n单元 工程 program Project1; uses Forms, Unit1 in Unit1.pas Form1; $R *.RES begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. 单元 unit Unit2; interface uses 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. 单元的结构 nInterface 接口部分 只有这里的声明才能被别的单元使用 nImplementation 实现部分 各子程序的具体实现 nInitialization 初始化部分 nFinalization 终结部分 uses 字句：相当于引用其余单元的声明 变量的作用域和生存期 变量在何处声 明 作用域生存期 单元的Interface 部