Delphi编程语言ObjectPascal讲义.ppt

while语句 while 布尔表达式 do 语句 注：布尔表达式为false结束循环。 max:=data[1]; I:=2; While I<=12 do Begin if Data[I] > Max then Max := Data[I]; I:=I+1; End; Repeat语句 repeat 语句1; ...; 语句2; until 布尔表达式; 注：布尔表达式为true结束循环。 max:=data[1]; I:=2; Repeat if Data[I] > Max then Max := Data[I]; I:=I+1; Until I>12; With语句 访问记录中的数据域或类中的成员（域，属性或方法）。 ① with obj do 语句 注:指类或记录类型变量的名字,下同。 ② with obj1, ..., objn do 语句 或 with obj1 do with obj2 do ... with objn do 语句 注： obj1, ..., objn等分别作用于与其对应的各自成员，可嵌套。 举例 With语句举例 with edit1 do begin text:='时间'; //相当于edit1.text:='时间'; enable:=false; //相当于edit1.enable:=false; end; with label1,edit1 do begin Caption:='label one'; //相当于label1.Caption:='label one'; Text:='text one'; // 相当于edit1.Text:='text one'; end; with form1,edit1 do Text:='text one'; // 相当于form1.edit1.Text:='text one'; 过程和函数 过程 函数 常用过程或函数 过程 procedure 过程名(形参列表); ——过程头 [类型声明] [常量声明] [变量声明] [过程声明] [函数声明] begin 语句; end; 注：作为语句来调用。 举例 说明部分 语句部分 过程体 过程举例 //把整型数转化为字符串 procedure NumString(N: Integer; var S: string); var V: Integer; begin V := Abs(N); S := ''; repeat S := Chr(V mod 10 + Ord('0')) + S; V := V div 10; until V = 0; if N < 0 then S := '-' + S; end; //NUmString(234,x) 函数 function 函数名(形参列表):类型; ——函数头 [类型声明] [常量声明] [变量声明] [过程声明] [函数声明] begin 语句; end; 注：可作为语句或值来调用。 说明部分 语句部分 函数体 举例 函数举例 //求x的y次方 function Power(X: Real; Y: Integer): Real; var I: Integer; begin Result := 1.0; //Result代表函数值 I := Y; while I > 0 do begin if Odd(I) then Result := Result * X; I := I div 2; X := Sqr(X); end; end; //p:=power(2.0,3) 常用过程或函数（sysutils或system单元） Abs 求绝对值 Sqr 求平方值 Sqrt 求平方根 Sin 求正弦 Cos 求余弦 Exp 求e的幂 Ln 求自然对数 Pi 3Date 取日期 Time 取时间 Length 求字符串的长度 Pos 求子串的位置 Delete 删除子串 Copy 复制字符串 Chr ASCII值对应的字符 Ord 取得序号 Round 实型四舍五入为整型 Trunc 实型取整 Inttohex 整型变为十六进制数串 Inttostr 整型变为字符串 Strtoint 字符串变为整型 Datetostr 日期变为字符串 Upcase 转化为大写字母 U