Char 与 Byte
摘要:var c: Char; b: Byte; begin c := 'A'; ShowMessage(c); //A b := 65; ShowMessage(IntToStr(b)); //65 c := Chr(66); ShowMessage(c); //B b := Ord('B'); ShowMessage(IntToStr(b)); //6...
阅读全文
posted @
2007-12-19 18:22
万一
阅读(4434)
推荐(0) 编辑
把整数当作布尔用
摘要:procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := 0; ShowMessage(IntToStr(i)); //0 i := not i; ShowMessage(IntToStr(i)); //-1 i := not i; ShowMessage(IntToStr...
阅读全文
posted @
2007-12-06 18:22
万一
阅读(2920)
推荐(0) 编辑
越界赋值
摘要:procedure TForm1.Button1Click(Sender: TObject); var w: Word; r: Byte; begin w := $1234; //10进制 4660 {$R+} //如果添加越界检查,程序将提示错误,不能继续执行 r := w; //如果没有越界检查,r 将获取 w 的低 8 位 $34 ShowMessage(...
阅读全文
posted @
2007-12-01 21:36
万一
阅读(2873)
推荐(0) 编辑
集合
摘要://定义 type Uppercase = 'A'..'Z'; Letters = set of Uppercase; //基于子界定义 TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBorderIcon; //基于枚举定义 //应用 type ...
阅读全文
posted @
2007-11-30 18:05
万一
阅读(5408)
推荐(0) 编辑
枚举
摘要://定义type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade);//举例:type Colors = (Red, Yellow, Green, Cyan, Blue, Violet);var C: Colors;begin C := Red; ShowMes...
阅读全文
posted @
2007-11-30 18:00
万一
阅读(4765)
推荐(0) 编辑
子界
摘要://定义 type Ten = 1..10; OverHundred = 100..1000; Uppercase = 'A'..'Z'; //TMonth = Jan..Dec; //应用 var UppLetter: UpperCase; begin UppLetter := 'F'; //判断是否属于子界范围 var i: Integer; begin ...
阅读全文
posted @
2007-11-30 18:00
万一
阅读(3291)
推荐(0) 编辑
有序类型的大小及最大、最小值
摘要:procedure TForm1.Button1Click(Sender: TObject); var b: Byte; w: Word; i: Integer; c: Cardinal; begin ShowMessage(IntToStr(SizeOf(b))); //Byte大小:1 ShowMessage(IntToStr(High(b))); //Byt...
阅读全文
posted @
2007-11-30 17:32
万一
阅读(3607)
推荐(0) 编辑
类型转换
摘要:Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //将数值转换为十六进制数字符串 StrToInt //将字符串转换为一个整型数,如字符串不是一个合法...
阅读全文
posted @
2007-11-30 14:11
万一
阅读(4951)
推荐(0) 编辑
not 与整数
摘要://Byte procedure TForm1.Button1Click(Sender: TObject); var x,y: Byte; begin x := MAXBYTE; //MAXBYTE是常数255 y := not x; //y 的值是 0 x := 5; y := not x; //y 的值是 250 ShowMessage(IntToStr(y)...
阅读全文
posted @
2007-11-26 22:40
万一
阅读(3501)
推荐(0) 编辑
字符串常识
摘要:'BORLAND' { BORLAND } 'You''ll see' { You'll see } '''' { ' } '' { 空串 } ' ' { 空格 } #89#111#117 { You } #89'Y'#89 { YYY } #89 + 'Y' + #89 { YYY } #13#10 { 换行 }
阅读全文
posted @
2007-11-26 11:58
万一
阅读(4597)
推荐(0) 编辑