Delphi笔记（一些比较少用的知识） 1、随机函数一般是用Random函数，并在之前用Randomize初始化，原来还有：RandomFrom 从参数指定的数组中随机选出一个数值（整数、字符串等）例：RandomFrom(['D1','D2','D3','D4']) RandomRange 在整数范围随机产生一个整数。例：X:=RandomRange(20,50);// 20<=X<=50 X为整数 2、时间函数FormatDateTime 格式化字符串例：FormatDateTime('yyyy年 mm月 dd日 hh时 nn分 ss秒',now())DecodeDate 将日期分解为年月日例：DecodeDate(now(),Year,Month,Day)//Year,Month,Day:word同理还有 DecodeTime(now(),hour,minute,second,msecond)反函数是 EncodeDate(Year,Month,Day:word):TDateTime;         EncodeTime(hour,minute,second,msecond:word):TDateTime; 3、在循环中用到的中断命令Abort 无记录异常Break 中断循环Continue 跳到下一循环Exit 跳出函数过程RunError 中止程序Halt 中止程序，返回操作系统 4、其他函数Odd 判断奇数偶数Pred 前一序号的值Succ 后一序号的值 5、类的属性属性的索引 function GetX(Const Index:Integer):Integer;Procedure SetX(Const Index,Value:Integer); property A:integer index(0) read GetX write SetX;property B:integer index(1) read GetX write SetX; A,B共同使用同一个函数和过程 数组属性 function GetX(Index:Integer):String;Procedure SetX(Index:Integer,Const Value:String); property X[index:integer]:String read GetX write SetX; 6、类运算符号＝ 两个类是否相等例：if Edit1.ClassType = Edit2.ClassType then...<> 两个类是否不相等is 一个对象是否一个类（或其子类）的实例as 将类对象转换成为自身类或父类

评论