DELPHI语言基础知识教材.ppt

delphi语言基础,delphi语言基础,delphi语言基础,常量,无需定义 1、整型常量 2、实数常量 3、布尔常量 4、字符常量 5、字符串常量,字面常量,delphi语言基础,常量,符号常量,需定义 语法规则： const = 注：没有“：”号。 例： const pi=3.14; /正确 pi1=abc /错误 pi2=-pi; /正确 pi=-k /错误（即使k被定义为变量）,delphi语言基础,unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls,; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: tobject); private private declarations public public declarations end; var form1: tform1; const pi=3.14; implementation $r *.dfm procedure tform1.button1click(sender: tobject); const pi=3.1415; begin end; end.,delphi语言基础,变量,语法规则： var : 例： var x:integer; y,z:string; 注：不区分大小写,unit unit1; interface uses sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: tobject); private private declarations public public declarations i:integer; end; var form1: tform1; i:integer; x,y:string; implementation $r *.dfm procedure tform1.button1click(sender: tobject); var i:integer; st:string; begin end; end.,delphi语言基础,类型常量,语法规则： const := 注：没有“：”号。 例： const pi:integer=3.14; /正确 pi1:string=abc /错误 符号常量和类型常量唯一不同：类型常量指定了类型。,delphi语言基础,unit unit1; interface uses sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: tobject); private private declarations public public declarations end; var form1: tform1; const pi:integer=3; pi1:string=abc; implementation $r *.dfm procedure tform1.button1click(sender: tobject); const pi:integer=3.14; pi1:string=abc begin end; end.,delphi语言基础,delphi语言基础,自定义类型,语法规则： type = 注：没有“：”号。 例： type int=integer; /int代替integer类型 str=array110 of string; /str代替string数组,delphi语言基础,unit unit1; interface uses sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: tobject); private private declarations public public declarations end; type int=integer; str=array110 of string; var form1: tform1; implementation $r *.dfm procedure tform1.button1click(sender: tobject); begin end; end.,delphi语言基础,数据类型,表示数据有顺序,有序数据类型,delphi语言基础,整型,有序数据类型,delphi语言基础,整型的运算-算术运算,有序数据类型,+ 加法运算 - 减法运算 * 乘法运算 div 整除运算 mod 取余运算 例： 9 div 2 返回为4 17 mod 5 返回2 -17 mod 5 返回-3,delphi语言基础,整型的运算-关系运算,有序数据类型,= = 2 返回为 true 17 5 返回false,delphi语言基础,整型的运算-整数的逻辑运算符,有序数据类型,not 整数转二进制后按位取反 and 两整数转二进制后位按与比较 or 两整数转二进制后位按或比较 xor 两整数转二进制后位按异或比较 例： 5 and 9 返回1; 101 1001,delphi语言基础,整型的运算-左右移动运算,有序数据类型,shl 整数转二进制后按位向左移动 shr 整数转二进制后按位向右移动 例： 9 shl 4 返回144; 1001 将转为10010000,delphi语言基础,整型的运算-常用函数,有序数据类型,abs() 求绝对值 sqr() 求平方 chr() 求数字对应的asc码,delphi语言基础,字符型（不是字符串） char 字符型包括：字母、数字、控制字符等所有asc码。 例： ch=a; ch=%; ch=qwerqwer; /出错 ch=#90; 其中#90表示将asc码为90的符号。 字符型的序列按照asc序列。,有序数据类型,delphi语言基础,字符型-运算符及常用函数 (1)运算符 = = 用于比较字符大小，按照asc码比较。 例： aa /真 a9 /真 (2)常用函数 ord() 返回该字符的asc码 例: ord(a) /返回97 ord(ab) /出错,有序数据类型,delphi语言基础,delphi语言基础,布尔型 boolean 布尔型只有”真”和”假”，对应到”true”和”false”。 例： ch:=true; ch:=false; ch:=1; /出错 布尔型中false为0,true为1 常用函数 ord() /返回其序列false为0,true为1,有序数据类型,delphi语言基础,delphi语言基础,枚举类型（属于自定义类型） 语法： type 类型名称=val1,val2.valn 默认情况下，其值对应0,1,2,3 常用函数 ord() /返回其对应的数 例：有枚举类型 xingqi=(zhou1=4,zhou2,zhou3); 那么其 zhou2=5; zhou3=6;,有序数据类型,delphi语言基础,procedure tform1.button1click(sender: tobject); type xingqi=(zhou1=3,zhou2,zhou3); /定义枚举类型局部变量 var s:xingqi; begin s:=zhou2; showmessage(inttostr(ord(s); end;,unit unit1; interface uses windows, classes, graphics, controls, forms, dialogs, stdctrls; type xingqi=(zhou1=3,zhou2,zhou3); /全局变量,delphi语言基础,子界类型（属于自定义类型） 语法： type 类型名称=上界 下界 注：上界和下界必须是整数、枚举数、布尔型等有序类型。 例： type age=0200 /正确 type age=1.0200 /错误 例：有子界类型 age=0200; 那么其有变量 i:age; i:=100; /正确 i:=201; /错误,有序数据类型,delphi语言基础,无序数据类型,delphi语言基础,实数类型,无序数据类型,delphi语言基础,delphi语言基础,实数类型运算-运算符,无序数据类型,+ - * /,实数类型运算-关系运算符,= = =,delphi语言基础,无序数据类型,实数类型运算-常用函数,abs() 求绝对值 sqr() 求平方 floattostr() 将实数转为字符型 strtofloat() 将字符转为实数型 sin() 求正玄(弧度制) cos() 求余玄(弧度制) arctan() 求反正切(弧度制) exp() 求指数次方ex in() 求自然对数 log(x) sqrt() 求算术平方根 round() 四舍五入返回整型 trunc() 移去小数部分,返回整型 int() 获取整数字部分,返回实型 frac() 获取小数部分,delphi语言基础,日期时间类型,无序数据类型,tdatetime 日期时间型 tdate 日期型 ttime 时间型 例: procedure tform1.button1click(sender: tobject); var riqi:tdatetime; begin riqi:=now(); showmessage(datetimetostr(riqi); end;,delphi语言基础,delphi语言基础,日期时间类型运算符 + d+n 日期时间型 + 实型 /返回日期时间型 - d-n 日期时间型 - 实型 /返回日期时间型 d-d 日期时间型-日期时间型 /返回实数类型 例 procedure tform1.button1click(sender: tobject); var riqi:tdatetime; begin riqi:=now()+3.7; /当前日期加上 3天7小时 riqi:=riqi-3.7; /当前日期减 3天7小时 showmessage(datetimetostr(riqi); end;,无序数据类型,delphi语言基础,delphi语言基础,日期时间类型关系运算符 = 例: strtodatetime(2001-1-1)strtodatetime(2002-1-1) /返回为false,无序数据类型,delphi语言基础,delphi语言基础,日期时间类型常用函数 需要引用单元 dateutils date() 返回当前日期,日期型 time() 返回当前时间 now() 返回当前日期时间 strtodate() 将字符型转换成日期型 strtotime() 将字符型转换成时间型 strtodatetime() 将字符型转换成日期时间型 datetimetostr () 将日期时间型转换成字符型 datetostr () 将日期型转换成字符型 timetostr () 将时间型转换成字符型 yearof() 获取年份返回整型 monthof() 获取月分返回整型 dayof() 获取日号,返回整型 weekof() 获取该日期是本年的第几个星期,返回整型 dayofweek() 获取星期几,返回整型,无序数据类型,delphi语言基础,结构类型,delphi语言基础,集合类型 (设置数据集合) type 类型名称 = set of 数据类型; 注:集合类型不能超过256个值 例: type jihea=set of 1256; /正确 jiheb=set of 2257; /正确 jihec=set of char /正确 asc最大127 jihed=set of 1257 /错误 超过范围,结构类型,delphi语言基础,集合类型并交差运算 * 两集合的交集 + 两集合的并集 - 集合的差集 例: x:=14,9; y:=2,3,6; x:=x*y /返回 2,3 x:=x+y /返回 1,2,3,4,6,9 y:=x-y /返回 1,4,9 x:=1,2+2; /错误,结构类型,delphi语言基础,集合类型关系运算 a=b ab集合数据是否相同 ab b集合的数是否在a集合中都出现过,且a集合大于b集合 a=b b集合的数是否在a集合中都出现过 ab 判断ab是否完全相等. 例:f为boolean类型 a1,2,3,4 b2,3,4 f:=(ab); /返回真 f:=(a=b); /返回假 f:=(a=b); /返回真,结构类型,delphi语言基础,集合类型in运算 a元素 in b集合 判断a元素是否在b集合中出现。 例: f:=3 in 1,2; 返回假 f:=1 in 1,2; 返回真,结构类型,delphi语言基础,数组类型静态数组：在程序定义时，给定了数组元素个数。 数组的声明： arraylow1high1, low2high2, lownhighn of 数据类型 例： var st : array110 of integer; /定义一维数组 st1 : array19 of string; /定义一维数组 st2 : array110,210 of string /定义二维数组 使用方式： st11:=qwer; st1#54:=123; st154:=13; /错误 st21,4:=qwre;,结构类型,delphi语言基础,数组类型动态数组：在程序定义时，未给定了数组元素个数。 数组的声明： array of 数据类型 数组空间分配: setlength(数组名,长度) 下标从0开始 例 var st:array of integer; /动态一维数组 st1:array of array of integer; /动态二维数组 数组空间分配: setlength(st,10); setlength(st1,10,10); setlength(st10,5);,结构类型,delphi语言基础,数组类型数组常用函数 low(数组) 返回数组下标 high(数组) 返回数组上标,结构类型,delphi语言基础,例: var sk:array of array of integer; i:integer; i定义为动态二维数组 setlength(sk,10); /一维含有10个元素 /将一维元素设为不同各数的数组 for i:=low(sk) to high(sk) do begin setlength(sk i ,i+1); end;,数组元素如下： sk0,0 sk1,0 sk1,1 sk2,0 sk2,1 sk2,2,delphi语言基础,字符串类型,结构类型,delphi语言基础,字符串类型 例：,结构类型,?,delphi语言基础,字符串类型合并运算符 + 字符号串相加 字符串类型比较运算符 = 字符串的比较按照asc码,结构类型,delphi语言基础,字符串类型 例： abaabc /返回假 aa /返回假 张abc /真 aa张abc /返回假 注：中文大于英文,结构类型,delphi语言基础,字符串类型标准函数 copy(string st,int i,int j) 字符串st从i截取长度为j的字符 leftstr(string st,int i) 截取字符串st左边长度为i的字符 rightstr(string st,int i) 截取字符串st右边长度为i的字符 pos(string st1,string st2) 获取st1在st2中的位置，若不存在返回0 trimleft(string st1) 除去st1左边的空格 trimright(string st1) 除去st1右边的空格 trim(string st1) 除去st1两边的空格 length(string st1) 获取st1的长度 uppercase(string st1) 返回st1转成大写 lowercase(string st1) 返回st1转成小写 stringofchar(char c,int i) 返回连续i个c字符的字符串 dupestring(string st1,int i) 返回连续i个c字符串的字符串(引用strutils) 注：红色为常用函数,结构类型,delphi语言基础,例: st:=hello world; st1:=or; st3:= 123 leftstr(st, 3) /返回 hel rightstr(st,4) /orld pos(st1,st) /8 trimleft(st3) /123 trimright(st3) / 123 trim(st3) /123 length(st) /11,结构类型,delphi语言基础,记录类型 定义： type 类型名称 = record 成员1 : 数据类型； 成员2 : 数据类型； 成员1 : 数据类型； end; 注：记录类型使用方式 变量名.成员,结构类型,delphi语言基础,var form1: tform1; type ss=record xm:string; end; implementation $r *.dfm procedure tform1.button1click(sender: tobject); var kk:ss; begin kk.xm:=123 ; showmessage(kk.xm); end;,记录类型 例：,结构类型,delphi语言基础,指针类型 (指向内存地址) 定义: 变量名 : 数据类型； 注： 获取地址 变量名 获取该指针指向地址的值 变量名 通过inc()和dec()向前向后移动。 inc(变量) dec(变量) 例：有指针变量 k : integer,整型变量 i:integer; i:=100; k:=i; /获取i的内存地址 k:=k+100;,结构类型,delphi语言基础,procedure tform1.button1click(sender: tobject); var i:array 12 of integer; k:integer; begin i1:=1; i2:=30; k:=i; inc(k); k:=k+1; showmessage(inttostr(k); end;,例：,结构类型,delphi语言基础,特殊类型,delphi语言基础,可变类型 定义： 变量名:variant; 注：可变类型可以保存任何类型的数据，可变类型速度慢。 例：k为可变类型 k:=12; k:=aaa; k:=123+121; k:=aaa+123; /错误,特殊类型,delphi语言基础,运算符号优先级,delphi语言基础,delphi语言基础,由高到底: 1 . 2 not 3 * / div mod and shl shr 4 + - or xor 5 = = in,运算符优先级,delphi语言基础,语句与流程控制,delphi语言基础,基本语句 1.赋值语句 变量 : =表达式 ； 例： i:=1; /i为整型 k:=(12); /k为逻辑型 2.符合语句 begin 语句组 end; 3.注释 / / 注释内容 注释内容 ( * 注释内容 * ),语句与流程控制,delphi语言基础,if语句 格式一: if 条件表达式 then 语句a； /包含一条语句情况 格式一: if 条件表达式 then begin 语句a； /包含多条语句情况 end; 格式一: if 条件表达式 then 语句a /包含一条语句情况(最后不加分号) else 语句b; /包含一条语句情况 格式二: if 条件表达式 then begin 语句组a /包含多条语句 end /没有分号 else begin 语句组b end;,语句与流程控制,delphi语言基础,分支语句 例: if(12) then showmessage(12) /没有分号 else showmessage(12) then begin showmessage(12); end /没有分号 else begin showmessage(12); end;,语句与流程控制,delphi语言基础,case语句 格式: case 表达式 of 常量1 : 语句 1; /包含一条语句的情况 常量2 : begin /包含多条语句的情况 语句组; end; 常量n : 语句 n; else 语句n; end; 注:case后面的表达式必须是有序类型。 例: case 3.1 of /错误，不允许是非有序类型,语句与流程控制,delphi语言基础,case语句 例：知道成绩输出等级。 cj:=92.6; /cj实数类型 cjz:=trunc(cj); /cjz整数类型 case cjz of 90100:showmessage(优); 8089:showmessage(良); 7079:showmessage(中); 6069:showmessage(及格); else showmessage(需要补考); end;,语句与流程控制,delphi语言基础,循环语句 while 格式一： while 条件表达式 do 语句； /包含一条语句 格式二： while 条件表达式 do begin /包含多条语句 语句组； end;,语句与流程控制,delphi语言基础,循环语句 while 例：求1100所有数之和。 sum:=0; i:=1; while i=100 do begin sum:=sum+i; i:=i+1; end; showmessage(inttostr(sum);,语句与流程控制,delphi语言基础,循环语句 repeat 格式： repeat 语句组 until 条件达式 ; / / 条件表达式为真时跳出,语句与流程控制,delphi语言基础,循环语句 repeat 例：求1100所有数之和。 sum:=0; i:=1; repeat sum:=sum+i; i:=i+1; until i 100 ; showmessage(inttostr(sum);,语句与流程控制,delphi语言基础,循环语句 for 格式一： for 循环变量:=初值 to 终值 do begin 语句组 end; 格式二： for 循环变量:=初值 downto 终值 do begin 语句组 end;,语句与流程控制,delphi语言基础,循环语句 for 例：求1100所有数之和。 sum:=0; for i:=1 to 100 do begin sum:=sum+i; end; showmessage(inttostr(sum);,语句与流程控制,delphi语言基础,循环语句 特殊处理 break 跳出该层循环 continue 进入下一次循环 例：输出1. .100所有奇数之和 sum:=0; for i:=1 to 100 do begin if (i mod 2=0) then continue; sum:=sum+i; end; showmessage(inttostr(sum);,语句与流程控制,delphi语言基础,一、 教材60页 2-6、2-7，2-8，2-10 二、 1.输出9*9乘法表。 2.对数组 a = (4,56,78,3,6,8,9,4,23,6,7,9,4 ) 降序排列。,作业练习,delphi语言基础,过程与函数,delphi语言基础,过程和函数使程序中代码的使用率提高，提高程序开发速度和程序的一致性。过程和函数的功能内似，区别在于过程无返回值，函数有返回值。 返回值 过程 无 函数 有,过程与函数,delphi语言基础,过程的声明 格式 procedure 过程名 ( 参数表) ; /末尾有;号 begin 语句组 end;,过程与函数,delphi语言基础,例：建立过程 isum( i:integer ),求1+2+i的和，并显示。 procedure isum(i:integer); /声明过程isum var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; showmessage(inttostr(sum); end; /调用过程 procedure tform1.button1click(sender: tobject); begin isum(100); /调用过程isum end; /注：调用过程之前必须声明过程。,过程与函数,delphi语言基础,var form1: tform1; implementation $r *.dfm procedure tform1.button1click(sender: tobject); begin isum(100); /调用未声明的isum过程，错误 end; procedure isum(i:integer); /声明isum过程 var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; showmessage(inttostr(sum); end;,过程与函数,delphi语言基础,var form1: tform1; procedure isum(i:integer); /声明isum过程 implementation $r *.dfm procedure tform1.button1click(sender: tobject); begin isum(100); /调用isum过程，正确 end; procedure isum(i:integer); /isum过程代码 var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; showmessage(inttostr(sum); end;,过程与函数,delphi语言基础,函数的声明 格式 function 函数名 ( 参数表):返回数据类型 ; /末尾有;号 begin 语句组 end;,过程与函数,delphi语言基础,例：建立函数 isum( i:integer ):integer,求1+2+i的和并返回结果。 function isum(i:integer):integer; /声明过程isum var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; isum:=sum; /返回结果以函数名为变量或 result:=sum; end; /调用过程 procedure tform1.button1click(sender: tobject); begin showmessage(inttostr(isum(100); /调用函数isum end; /注：在过程的声明必须在调用过程之前。,过程与函数,delphi语言基础,function isum(i:integer):integer; /声明函数isum var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; isum:=sum; /函数名作为返回结果 end; function isum(i:integer):integer; var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; result:=sum; /result变量作为返回结果 end;,过程与函数,delphi语言基础,function isum(i:integer):integer; var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; isum:=sum; isum:=123; end; 调用函数 k:=isum(100); /k的结果等于多少？,过程与函数,delphi语言基础,function isum(i:integer):integer; var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; isum:=sum; exit; /退出过程或函数 isum:=123; end; 调用函数 k:=isum(100); /k的结果等于多少？,过程与函数,参数的传递,delphi语言基础,参数的传递 传值 例： procedure isum ( i:integer ); 传地址 例： procedure isum ( var i:integer ); 常量参数 例： procedure isum ( const i:integer ); 实参：调用函数的实际参数。 形参：函数中的参数。 k:=100; / k 实参 isum(i); /在isum过程中变量 i 为形参,过程与函数,delphi语言基础,1、传值 值参传递的是一个值，实参是一个表达式，函数内部形参修改时，其实 参不发生变化。 procedure isum ( i:integer ); /传值 begin i:=i+1; end; procedure tform1.button1click(sender: tobject); var k:integer; begin k:=100; isum(k); isum (k+100); showmessage ( inttostr ( k ) ); /显示多少呢？ end;,过程与函数,主程序 k,isum函数 i,内存地址,内存地址,delphi语言基础,数组传值 数组作为实参，形参中，数组自动将数组下标从0开始。数组传值，在过程与函数中修改形参，实参不变。 procedure isum ( a1:array of integer ); var i:integer; begin showmessage(数组的下标是:+inttostr(low(a1); /下标是多少呢？ showmessage(数组的上标是:+inttostr(high(a1); /上标是多少呢？ for i:=low(a1) to high(a1) do /修改形参 a1i:=a1i+100; end; procedure tform1.button1click(sender: tobject); var a:array25 of integer; i:integer; begin a2:=2;a3:=3;a4:=4;a5:=5; isum(a); for i:=low(a) to high(a) do showmessage(a+inttostr(i)+=+inttostr(ai); /实参是多少呢？ end;,delphi语言基础,2、传地址 形参数前面var修饰，实参必须是变量，不允许是表达式。函数内部形参修改时，实参也将发生变化。 procedure isum ( var i:integer ); /传值 begin i:=i+1; end; procedure tform1.button1click(sender: tobject); var k:integer; begin k:=100; isum(k); isum(k+101); /错误的调用函数，实参必须是变量 showmessage ( inttostr ( k ) ); /显示多少呢？ end;,过程与函数,主程序 k,isum函数 i,内存地址,delphi语言基础,数组传地址 数组作为实参，形参中，数组自动将数组下标从0开始。数组传值，在过程与函数中修改形参，实参不变。 procedure isum ( var a1:array of integer ); var i:integer; begin showmessage(数组的下标是:+inttostr(low(a1); /下标是多少呢？ showmessage(数组的上标是:+inttostr(high(a1); /上标是多少呢？ for i:=low(a1) to high(a1) do /修改形参 a1i:=a1i+100; end; procedure tform1.button1click(sender: tobject); var a:array25 of integer; i:integer; begin a2:=2;a3:=3;a4:=4;a5:=5; isum(a); for i:=low(a) to high(a) do showmessage(a+inttostr(i)+=+inttostr(ai); /实参是多少呢？ end;,delphi语言基础,3、常量参数 形参数前面const修饰，函数内部不允许修改形参。 procedure isum ( const i:integer ); /传值 begin i:=i+1; /错误，形参不允许修改 end; procedure tform1.button1click(sender: tobject); var k:integer; begin k:=100; isum(k); isum(101); end;,过程与函数,delphi语言基础,过程与函数的重载,delphi语言基础,过程与函数的重载 重载：多个相同名称，而参数不同的过程和函数。 格式： function 函数名(参数):返回类型; overload; procedure 函数名(参数):返回类型; overload; 比如：编写自定义函数add，调用方式如下： add( st1,st2:string ) /函数参数为2个字符串 add( i , j:integer) /函数参数为2个数字,过程与函数,delphi语言基础,function add ( i,j:integer ):integer; begin add:=i+j; end; function add ( st1,st2:string ):string; begin add:=st1+st2; end;,错误,function add ( i,j:integer ):integer;overload; begin add:=i+j; end; function add ( st1,st2:string ):string;overload; begin add:=st1+st2; end;,正确,delphi语言基础,过程与函数的重载 function add ( i,j:integer ):integer;overload; /重载 begin add:=i+j; end; function add ( st1,st2:string ):string;overload; /重载 begin add:=st1+st2; end; procedure tform1.bu