我很想出一份力,但实在太忙了。以下是做好的一部分。其它的看谁来接吧!在这里对大家
说声抱歉!
第十二部分:
历的年。使用DecodeDate过程来获得Year的值。
例子:
以下的代码定义了一个函数来说明当前年是否是一个闰年。
function IsThisLeapYear:Boolean;
var
Yr,mnth,day;word;
begin
DecodDate(Date,Yr,mnth,day);
Result:=IsThisLeapYear(Yr);
end;
IsPathDelimiter函数
单元:Sysutils
定义:function IsPathDelimiter(const s:srting;index:integer):Boolean;
功能:IsPathDelimiter说明一个字符串中的index位置的字节是否是反斜杠字符。调用IsPathDelimiter以决定一个字符串S中的一个位置是否包含了反斜杠字符(/)。 index参数说明了字符的位置,这里0是第一个字节,1是第二个字节等。当工作在双字节字符集系统条件下时,IsPathDelimiter鉴别一个一个字节是否代表了一个反斜杠字符或代表具有相同值的一个双字符字节的第二个节。为了检查多个字符,可以使用IsPathDelimiter函数。
IsValidldent函数
单元:Sysutils
种类:string formatting routines
定义:function IsValidldent(const Ident:string):Boolean;
功能:IsValidldent函数是测试一个字符串是否是一个合法的Pascal字符。一个标识符是定义一个从集合
['A'..'Z','0'..'9','a'..'z','_']选出的字符跟随着0个或多个集合['A'..'Z','0'..'9',
'a'..'z','_']中的字符。
注意:所有的组分component名必须是有效的Opject pascal标识符。
LastDelimiter函数
单元:Sysutils
定义:function LastDelimiter(const Delimiter,S:string):integer;
功能:LastDelimiter返回在字符串最后一个与一个定界符中任意字符相匹配的偏移字节。
调用LastDelimiter函数以确定在字符串S中定界符的位置。当工作在双字节字符集的条件下,字符串S可以包含双字符,但是在Delimiter中所列出的定界符字符必须是单字节字符。例如:
Myindex:=LastDelimiter('/.:','c:/fillenarne.ext');
P112
Ldexp函数
单元:math
定义:function Ldexp(x:extended;p:integer
;extended register;
功能:Ldexp计算X*(2P),Ldexp返回X乘以(2至P的幂)。
Lenth函数
单元:system
种类:string Handling routines(pascal style)
定义:function Lenth (S:string):integer;
功能:Lenth返回在一个字符串中使用的一个字节的个数。Lenth函数返回实际在字符串S中的使用个数。
注意:字符数不一定是字节的一个数。
例子: