数据类型相关 - 随笔分类(第3页) - 万一

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) 评论(1) 推荐(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) 评论(3) 推荐(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) 推荐(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) 评论(7) 推荐(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) 评论(6) 推荐(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) 评论(6) 推荐(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) 评论(2) 推荐(0) 编辑

类型转换

摘要：Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //将数值转换为十六进制数字符串 StrToInt //将字符串转换为一个整型数，如字符串不是一个合法... 阅读全文

posted @ 2007-11-30 14:11 万一阅读(4951) 评论(1) 推荐(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) 评论(10) 推荐(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) 评论(2) 推荐(0) 编辑

随笔分类 - 数据类型相关