DelPhi学习笔记2.常用函数与过程.doc

Delphi7.0的常用函数与过程2.1.4 Delphi 7中的运算符与表达式 Delphi 7 有 8 类运算符，本章主要学习算术运算符、字符串运算符和位运算符。其他运算符将在以后的章节中学习。 1算术运算符 算术运算符是用户最熟悉的，类似算术中的加减乘除等。Delphi 7中有8个算术运算符，具体含义如下。 （1）取正运算符“+” ：单目运算符，表示对一个数值型数据取正，例如+5的值为5。另外，取正运算符可以省略。 （2）取负运算符“-” ：也是单目运算符。例如对5取负，其值为-5。 （3）加法运算符“+” ：与数学上的加法相同。加法运算符与取正运算符符号相同，但含义不同。例如3+5的值为8。 （4）减法运算符“-” ：与数学上的减法含义相同。也请注意减法运算符与取负运算符的异同。 （5）乘法运算符“*” ：表示对两个数值型数据相乘，与数学中的乘法相同。例如：3*5的值为15。 （6）除法运算符“/” ：与数学上的除法含义相同。例如 3/5 的值为“0.6” 。另外，除法运算的结果总是实型数据。 （7）整除运算符“div” ：只能对两个整数进行除法运算，结果为整型数据。例如5 div 3的值为1，而“5 div 2.0”是不合法的。 （8）取余运算符“mod” ：对两个整数相除，结果为余数。例如5 mod 3的值为2。1，数学类函数包括绝对值函数，取整数函数，取小数函数，平方函数，平方根函数，三角函数，指数函数，对数函数和随机函数等。（1）绝对值函数：Abs(x) 返回x的绝对值，x是整型或实型数据例：x := Abs(-1); /这是一个赋值语句，先计算赋值号右边函数的值（为1）再赋给x.(2)取整数函数例：Trunc(x):Int64;Round(x):Int64;Int(x):Extended;x1 := Trunc(-2.5);/赋值语句，函数值-2x2 := Round(-2.51);/x2的值为-3x3 := Int(-2.5);/x3的值为-2,与Trunc基本相同，但是返回值类型不同(3)取小数函数Frac(x):Extended; 返回x的小数部分，x为实型数据例：x := Frac(-2.5);/x的值为-0.5(4)平方函数Sqr(x):Extended;返回实型数据x的平方值,x为实型数据x := Sqr(-2.5);/x的值为6.25(5)平方根函数Sqrt(x):Extended;返回非负实数x的算术平方根，x为非负实数，返回值也为非负实数例：x := Sqrt(4); /x的值为2.0(6)三角函数Sin(x):Extended;返回以弧度为单位的x的正弦函数值，x的单位为弧度Cos(x):Extended；返回以弧度为单位的x的余弦函数值，x的单位为弧度ArcTan(x):Extended;返回x的反正切函数值，x的单位为弧度例：x1 := Sin(1/2);/ x1的值为0.4794x2 := Cos(1/4);/x2的值为0.9689x3 := ArcTan(1);/x3的值为0.7854（7）指数函数Exp(x):Real;返回值为ex,参数x为实型数据例：x := Exp(-1);/x的值为0.3679（8）自然对数函数Ln(x) := Real;返回x的自然对数值，参数x为正实数，其它对数函数可以由换底公式导出。例：x := Ln(5);/x的值为1.6094（9）随机数函数Random(x)；返回一个大于等于0小于整数x的随机整数，x为整数，若x缺省，返回值为大于等于0小于1的实数。2，字符串处理函数与过程（1）大小写转换函数LowerCase(const s:String):String;把字符串s中的字符全部转换为小写字母，并作为函数值返回。UpperCase(const s:String):String把字符串s中的字符全部转换为大写字母，并作为函数值返回。例：x1 := LowerCase(aBc);/将函数值“abc”赋值给字符串变量x1x2 := UpperCase(aBc);/将函数值“ABC赋值给字符串变量x2（2）比较字符串大小函数CompareStr(const s1,s2:String):Integer比较两个字符串s1 和s2的大小,大小比较依据的是ASCII码值。从两字符串的第一个字符开始比较，若前者大于后者，比较终止，返回值大于0；若小于后者，比较也终止，返回值小于0；若等于后者，将接着继续比较后面的字符。直到遇到不相等的字符或s1或s2的所有字符均比较完毕。若所有位置上的字符都相等，则返回值等于0。 注意： 本函数区分大小写。CompareText(const s1,s2:String):Integer;比较字符串大小，比较方法同上，区别是本函数不区分大小写。例：x1 := CompareStr(Abc,abc);/x1的值为-32x2 := CompareText(Abc,abc);/x2的值为0（3）求字符串长度函数Length(s):Integer;返回字符串的长度，参数s的类型为字符串型。例：x := Length(abcd);/x的值为4（4）查找位置函数Pos（s1,s2 :String）:Integer返回子字符串s1在字符串s2中首次出现的位置，若s2中不存在s1，则返回0.若s1在s2中，则必须满足s1的所有字符都在s2中，即s1是s2的子串。例：x1 := Pos(bc,abcd);/x1的值为2x2 := Pos(bd,abcd);/x2的值为0（5）合并字符串过程AppendStr(var s1:String;Const s2:String);相当于执行语句“s1 := s1 + s2”。本过程比语句“s1 := s1 + s2”执行效率高。（6）截取子字符串函数Copy(s:String;m,n:Integer):String;在字符串s中截取从第m个字符开始长度为n的子字符串，并作为函数的返回值。若m大于s的长度，则返回一个空串；若从第m个字符到s的结尾不足n个字符，则返回其间的所有字符。例：s1 := Copy(abcdef,2,2);/s1的值为bcs2 := Copy(abcdef,4,5);/s2的值为def注意：Copy(abc,0,1)和Copy(abc,1,1)的函数值相等，都是a.(7)删除子字符串过程Delete(var s ：String；m,n:Integer);如果 m大于s 的长度，则不删除任何字符；如果从第m 个字符开始到s 的末尾不足n个字符，则删除其间的所有字符；如果n小于等于0，则不删除任何字符。例：var s:String; /字符串变量声明 begin s:=abcd; /给变量赋值 Delete(abcd,3,3); 删除从第3个字符开始长度为3的子字符串（本例只能删除 cd） Edit1.Text:=s; /s 的值为子串ab，故Edi t1上显示的文本为ab end;（8）插入子字符串过程Insert（S1:String;var s :String;k:Integer）;将字符串S1插入到字符串s中的第k个字符处。（9）数值和字符串相互转换函数IntToStr(m:Integer):String;将整型数据m转换成字符串并作为函数的返回值StrToInt(s:String):Integer;将字符串数据s转换成整型数据并作为函数的函数值。s为数字型字符串。FloatToStr(f:Extended):String;将实型数据f转换成字符串，并为函数的返回值。StrToFloat(s:String):Extended;将字符串型数据s转换成实型数据，并作为函数的返回值。s为数字型字符串。2.2 典型实例 【实例题目】：求整数各位数字 利用算术运算符和算术表达式编写一个程序，实现下面的功能：输入一个任意4位整数，计算千位、百位、十位和个位上的数字。程序设计界面如图 2-1 所示，程序运行界面如图 2-2所示。程序运行时，输入任意整数，单击【个位数字】按钮，将显示个位数字，单击【十位数字】按钮，将显示十位数字，依此类推。 主要代码：var Form1: TForm1; TextContent : String; TextLength : Integer;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin TextContent := Edit1.Text; TextLength := Length(TextContent); Label2.Caption := Copy(TextContent,TextLength,1);end;procedure TForm1.Button2Click(Sender: TObject);begin TextContent := Edit1.Text; TextLength := Length(TextContent); Label3.Caption := Copy(TextContent,TextLength-1,1);end;procedure TForm1.Button3Click(Sender: TObject);begin TextContent := Edit1.Text; TextLength := Length(TextContent); Label4.Caption := Cop