摘要: //定义 type Uppercase = 'A'..'Z'; Letters = set of Uppercase; //基于子界定义 TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBorderIcon; //基于枚举定义 //应用 type ... 阅读全文
posted @ 2007-11-30 18:05 万一 阅读(5385) 评论(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 万一 阅读(4729) 评论(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 万一 阅读(3280) 评论(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 万一 阅读(3592) 评论(2) 推荐(0) 编辑
摘要: Chr //将一个有序数据转换为一个 ANSI 字符 Ord //将一个有序类型值转换为它的序号 Round //转换一个实型值为四舍五入后的整型值 Trunc //转换一个实型值为小数截断后的整型值 Int //返回浮点数的整数部分 IntToStr //将数值转换为字符串 IntToHex //将数值转换为十六进制数字符串 StrToInt //将字符串转换为一个整型数,如字符串不是一个合法... 阅读全文
posted @ 2007-11-30 14:11 万一 阅读(4934) 评论(1) 推荐(0) 编辑
摘要: 函数 功能 Now 返回当前日期及时间 Date 返回当前日期 Time 返回当前时间 DateTimeToStr 按缺省格式将日期和时间值转换为字符串;特定格式转换可用 FormatDateTime函数 DateTimeToSt... 阅读全文
posted @ 2007-11-30 14:05 万一 阅读(6126) 评论(7) 推荐(0) 编辑
摘要: Dec //将例程中的参数值递减1或一个特定的值,其中特定值可在第二个可选参数中定义 Inc //将例程中的参数值增加1或一个特定的值 Odd //如果参数为奇数返回真 Pred //根据参数在其数据类型定义中的序列,返回参数值的前驱值 Succ //返回参数值的后继值 Ord //返回参数值在其数据类型值集合中的序号 Chr //取得 AscII 码对应的字符 Low //返回参数对应的有序数... 阅读全文
posted @ 2007-11-30 13:59 万一 阅读(4808) 评论(2) 推荐(1) 编辑
摘要: resourcestring 阅读全文
posted @ 2007-11-30 13:51 万一 阅读(2968) 评论(1) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); proce... 阅读全文
posted @ 2007-11-29 13:20 万一 阅读(9011) 评论(38) 推荐(0) 编辑
摘要: if(navigator.appVersion.indexOf("MSIE")==-1){alert("非IE浏览器")} 阅读全文
posted @ 2007-11-29 01:35 万一 阅读(2277) 评论(0) 推荐(2) 编辑