华中帝国delphi编程第一章【18讲】系列语音教程

高压缩试看教程，VIP会员终身下载本站高清晰语音教程 第一讲：delphi语法基础和安装 一，标识符 标识符包括字母A-Z,a-z,数字0-9以及其它一些标准字符。 标识符用来标志变量，常量，属性，类，对象，过程，函数，程序，组件库等。标识符可以由任意长的不带空格的字符串组成， 注意：标识符的第一个字符必须是字母或者下划线，其余字符可以是字母，数字或下划线。delphi里面大小写是不区分的 atest,_test 可以。、 0test 不对 二，保留字 67 and array as asm begin case class const constructor destructor interface div do down to else end expect exports file finally finalization for function goto if implementation in inherite initialization inline is interface label library mod nil not object of or out packed procedure program property raise record repeat resource string set shl shr then thread var to try type unit until uses var while with xor priate protected public... 三,数据类型： object pascal 传参时个数一致 简单数据类型（simple） 字符串数据类型(string) 结构数据类型struct 指针数据类型 pointer 函数和过程数据类型 procedural 变体数据类型 variant 1，简单数据类型：包括有序数据类型ordinal 和实数数据类型 real 其中，有序数据类型又包括整数类型,字符类型，布尔类型，枚举类型和子界类型。 整数类型：Integer shortint smallint longint int64 byte word longword 字符类型：ansichar widechar char 布尔类型：boolean 枚举类型 type tday=(Sunday,Monday) 子界类型：定义一个范围值。 实数类型: double single等 2，字符串类型： ansistring shortstring widestring pchar pansichar pwidechar等 var str:string; 例：字符串操作 var s1,s2:string; begin s1:='hello'; s2:='world'; s1:=s1+s2; end. 或者使用concat函数进行连接 concat(s1,s2); 3，结构类型：strutct 集合类型:set type TDate = set of ('a','b','c'); 关系运算：if 200 in T1 then 其中T1代表一个集合 增删元素： 交集 数组类型:array var temp:array[1..20] of double; for i:=1 to 20 do temp[i]:=0; 记录类型：record type TEmployee=record name:string; salary:double; end; 指针类型： type temp=^integer; 四：类型转换 只有当两个变量的数据长度一样时，才能对变量进行强制类型转换 var c:char b:byte begin c:='s'; b:=c; 编译器会报错，强制转型不行。 如果换成 b:=byte(c); 正确转换 五：运算符 单目运算符，双目运算符. 赋值运算符：= 比较运算符 = <> 逻辑运算符 and or 算术运算符 + - * / div mod 位运算符 and not or xor shl shr 加减运算符 inc dec 指针运算符 集合运算符 + - *。。 类运算符 as in 六：语句 1，常量声明语句 const answer=234; const pi=3.1415; 2，赋值语句 var temp:=str; 3,goto语句 goto label 4，复合语句 begin c:=a; a:=b; end; 5，if语句 if a then b 6，case 语句 case a of caselist1:语句1; caselist2:语句2; else 语句 end 7，repeat语句 i:=0; repeat i:=i+1; 8,while语句 i:=0; while i<10 do begin i:=i+1; end; 9，for语句 for i:=1 to 9 do 语句块; i:=i+1; end; 10，if语句 if 条件 then 语句 else 语句 end; 11，break语句 begin if i=30 then break; for i:=1 to 9 do 语句块; i:=i+1; if i=8 then break; end; 语句; 12，continue语句 var i:integer; begin for i:=1 to 3 do if i=2 then continue; 语句; end; 13,with语句 with temp do begin .no:=sadf; .name:=asdf end; temp.no:=asfd temp.name:=asdf