摘要:
代码如下:关于获取文件版本信息其实只这一个函数是不够的,以后我再深入学习它下面进行函数分析:
阅读全文
posted @ 2010-11-03 18:00
巅枫
阅读(285)
推荐(0)
编辑
摘要:
//定义 type Uppercase = 'A'..'Z'; Letters = set of Uppercase; //基于子界定义 TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBorderIcon; //基于枚举定义 -------------...
阅读全文
posted @ 2010-11-03 17:49
巅枫
阅读(282)
推荐(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 @ 2010-11-03 17:49
巅枫
阅读(268)
推荐(0)
编辑
摘要:
//定义 type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade); -------------------------------------------------------------------------------- //举例: type C...
阅读全文
posted @ 2010-11-03 17:48
巅枫
阅读(307)
推荐(0)
编辑
摘要:
//定义 type Ten = 1..10; OverHundred = 100..1000; Uppercase = 'A'..'Z'; //TMonth = Jan..Dec; -------------------------------------------------------------------------------- //应用 var UppLett...
阅读全文
posted @ 2010-11-03 17:48
巅枫
阅读(242)
推荐(0)
编辑
posted @ 2010-11-03 17:38
巅枫
阅读(1073)
推荐(0)
编辑