函数集.doc
约42页DOC格式手机打开展开
函数集,页数：42字数：21585[标准函数和过程]首部procedure abort;$[sysutils功能引起放弃的意外处理。说明不显示任何错误信息。首部function abs(n: ): ;$[system功能返回参数n的绝对值。说明函数结果与参数有相同类型，参数可以是整型也可以是浮点型。## abs(-12)...
内容介绍
此文档由会员 cnlula 发布
函数集
页数：42 字数：21585
[标准函数和过程]
首部 procedure Abort;$[SysUtils
功能 引起放弃的意外处理。
说明 不显示任何错误信息。
首部 function Abs(N:): ;$[System
功能 返回参数N的绝对值。
说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。
## Abs(-12) = 12；Abs(-12.03) = 12.03
首部 procedure AddExitProc(Proc: TProcedure);$[SysUtils
功能 将旧版本某一过程添加到当前版本运行的库的结束过程表中。
说明 只能向下兼容，不能用在当前使用版本的
首部 function Addr(X): Pointer;$[System
功能 返回指定对象的内存地址。
说明 地址运算符 @ 可以产生与Addr相同的结果。
首部 procedure AddTerminateProc(TermProc: TTerminateProc);$[SysUtils
功能 将一过程添加到运行时库的终止过程表中。
说明 Delphi 在程序结束时将终止该程序的全部进程，可以终止的进程都放在终止过程表中，
程序通过结束终止过程表所有的进程来实现终止全部进程的目的。
首部 function AdjustLineBreaks(const S: string): string;$[SysUtils
功能 将给定字符串的行分隔符调整为Cr/Lf序列。
说明
首部 function AllocMem(Size: Cardinal): Pointer;$[SysUtils
功能 在堆栈上分配给定大小为 Size字节的块，即在内存里开辟Size 大小的空间。
说明 Cardinal 0..4294967295 32位无符号整数
首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils
功能 比较两个文件名的大小。不区分大小写。
说明 条件 返回值
S1 > S2 | > 0
S1 < S2 | < 0
S1 = S2 | = 0
首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils
功能 比较两个字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils
功能 返回两个字符串是否相同的状态。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils
功能 将引用字串转换成结束引语返回。
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiLastChar(const S: string): PChar;$[SysUtils
功能 取参数S的最后一个字符，并转换成以null结束的字符串指针返回。
说明 ##AnsiLastChar(‘Sysoft’) = {‘t0’};
首部 function AnsiLowerCase(const S: string): string;$[SysUtils
功能 将字符串S转换为小写返回。
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils
功能 将文件名S转换成小写返回
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils
功能 返回子串Substr出现在主串S中的第一个位置。
说明
首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils
功能 返回引用字串的译文
说明
首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils
功能 返回字符串指针气所指向的最后一个字符位置
说明
首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUnits
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换为小写返回。
说明
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils
功能 在指针字符串中返回子串Substr出现在主串S中的第一个位置。
说明
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串
说明 ## AnsiStrRScan(‘Zswangs1234567’, ‘s’) = ‘s1234567’;
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的第一个位置为起始位置的指针字符串
说明 ## AnsiStrScan(‘Zswangs1234567’, ‘s’) = ‘swangs1234567’;
首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换成大写返回。
说明
首部 function AnsiToNative(Locale: TLocale; const AnsiStr: string; NativeStr: PChar; MaxLen: Integer): PChar; $[SysUtils
功能 将字符串集转换成现场数据返回
说明 type TLocale = Pointer;
首部 procedure AnsiToNativeBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $[SysUtils
功能 将字符串集转换成现场数据
说明
首部 function AnsiUpperCase(const S: string): string; $[SysUtils
功能 将字符转换为大写返回。
说明
首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils
功能 将文件名转换为大写返回。
说明
首部 procedure Append(var F: Text); $[System
功能 以附加的方式打开已有的文件。
说明 调用Append前，F必须已与一个外部文件相联系。对用Append打开的文件，仅有合法操作是调用Write或Writeln。
首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils
功能 将字串S添加到字串Dest中。[即运行: Dest := Dest + s;]
说明 ## AppendStr(‘Sysoft’, ‘1999’) = ‘Sysoft1999’;
首部 function ArcCos(X: Extended): Extended; $[Math
功能 返回X参数的反余弦值。
说明 函数结果取弧度值。
首部 function ArcCosh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲余弦值。
说明 函数结果取弧度值。
首部 function ArcSin(X: Extended): Extended; $[Math
功能 返回X参数的反正弦值。
说明 函数结果取弧度值。
首部 function ArcSinh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲正弦值。
说明 函数结果取弧度值。
首部 function ArcTan(X: Extended): Extended; $[System
功能 返回参数X的反正切函数值。
说明 函数结果取弧度值。
首部 function ArcTan2(Y, X: Extended): Extended; $[Math
功能 返回参数Y除于X参数的反正切函数值。{即：返回ArcTan(Y/X)}
说明 函数结果取弧度值。
首部 function ArcTanh(X: Extended): Extended; $[Math
功能 返回参数X的反双曲正切函数值。
说明 函数结果取弧度值。
首部 procedure Assert(expr : Boolean [; const msg: string]); $[System
功能 测试布尔表达式是否成功
说明 $ASSERTIONS ON/OFF | (long form)
$C +/- | (short form)首部 function Assigned(var P): Boolean; $[System
功能 返回变体是否非空。
说明 ## if Assigned(Edit1) then Edit1.Free;
首部 procedure AssignFile(var F; FileName: string); $[System
功能 给文件变量赋一外部文件名。
说明 用 F 文件变量打开 FileName 名字的文件
首部 procedure AssignPrn(var F: Text); $[Printers
功能 指定文本变量F的打印机
说明
首部 procedure AssignStr(var P: PString; const S: string); $[SysUtils
功能 将字符串列入指针
说明 PString 是 AnsiString 指针
首部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $[DRIntf
功能 将ID属性和事件关联
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TFieldID = type TID;
TAttrID = type TID;
首部 procedure Beep; $[SysUtils
功能 产生一个标准的电脑发声beep。
说明 这个Beep过程使用了Windows下的API函数MessageBeep。
首部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $[SysUtils
功能 以适当的方式建立用于内存管理的线程。
说明
首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean; out Stub: IStub); $[orbpas
功能 获得界面CORBA服务器的对象作为IStub界面
说明 [CORBA]:程序体系结构
首部 procedure BlockRead(var F: File; var Buf:; Count: Integer [; var AmtTransferred: Integer]); $[System
功能 从无类型文件F中读出Count个记录赋予变量Buf。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改变从128到不同字节块大小。
首部 procedure BlockWrite(var F: File; var Buf:; Count: Integer [; var AmtTransferred: Integer]); $[System
功能 把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Rewrite来改变从128到不同字节块大小。
首部 function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect; $[Classes
功能 返回指定坐标和范围的TRect数据
说明 type
TPoint = record
X: Longint;
Y: Longint;
end;
TRect = record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
首部 procedure Break; $[System
功能 提前中止循环。
说明 用于for、while、repeat-until中。
首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils
功能 返回索引Index的真实值
说明 如果Index小于和大于S的长度则返回0 ## ByteToCharIndex(‘12345678’, 9) = 0;
首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils
功能 返回字符的编号
说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; ##ByteToCharLen(‘12345678’,9) = 9;
首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils
功能 返回字符串指定位置的字节类型
说明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); ## ByteType(‘国庆节12’,1) = mbLeadByte;
首部 procedure CancelDrag; $[Controls
功能 在程序运行中取消拖放操作
说明
首部 function Ceil(X: Extended):Integer; $[Math
功能 返回参数X的正取整值
说明 ##Ceil(-2.8) = -2; Ceil(2.8) = 3; Ceil(-1.0) = -1;
首部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils
功能 改变文件的后缀返回。
说明 ##ChangeFileExt(‘zs.txt’,’.ini’) = ‘zs.ini’;
首部 function CharsetToIdent(Charset: Longint; var Ident: string): Boolean; $[Graphics
功能 获得字符集的名称
说明 如果获得成功则返回True,否则返回False
首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils
功能 返回字符串基于索引Index的真实位置
说明 如果Index小于和大于S的长度则返回0
首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils
功能 返回字符串基于索引Index的编号
说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen;
首部 procedure ChDir(Path:); $[System
功能 改变当前目录
说明 检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。
首部 procedure Check(Status: Integer); $[DBTables
功能 以变量来确定BDE抗议错误状态
说明 [BDE(Borland Database Engine)]: 宝兰德数据库引擎
首部 function Chr(N: Byte): Char; $[System
功能 返回参数N的ASCII字符值。
说明 参数N表示某ASCII代码的序号数值(0-255)。
首部 function ClassIDToProgID(const ClassID: TGUID): string; $[ComObj
功能 返回标题音乐的ID所指定类字串
说明 type
PGUID = ^TGUID;
TGUID = record
D1: Longword;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;
错误代码 含义
REGDB_E_CLASSNOTREG | Class not regi
页数：42 字数：21585
[标准函数和过程]
首部 procedure Abort;$[SysUtils
功能 引起放弃的意外处理。
说明 不显示任何错误信息。
首部 function Abs(N:
功能 返回参数N的绝对值。
说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。
## Abs(-12) = 12；Abs(-12.03) = 12.03
首部 procedure AddExitProc(Proc: TProcedure);$[SysUtils
功能 将旧版本某一过程添加到当前版本运行的库的结束过程表中。
说明 只能向下兼容，不能用在当前使用版本的
首部 function Addr(X): Pointer;$[System
功能 返回指定对象的内存地址。
说明 地址运算符 @ 可以产生与Addr相同的结果。
首部 procedure AddTerminateProc(TermProc: TTerminateProc);$[SysUtils
功能 将一过程添加到运行时库的终止过程表中。
说明 Delphi 在程序结束时将终止该程序的全部进程，可以终止的进程都放在终止过程表中，
程序通过结束终止过程表所有的进程来实现终止全部进程的目的。
首部 function AdjustLineBreaks(const S: string): string;$[SysUtils
功能 将给定字符串的行分隔符调整为Cr/Lf序列。
说明
首部 function AllocMem(Size: Cardinal): Pointer;$[SysUtils
功能 在堆栈上分配给定大小为 Size字节的块，即在内存里开辟Size 大小的空间。
说明 Cardinal 0..4294967295 32位无符号整数
首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils
功能 比较两个文件名的大小。不区分大小写。
说明 条件 返回值
S1 > S2 | > 0
S1 < S2 | < 0
S1 = S2 | = 0
首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils
功能 比较两个字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils
功能 返回两个字符串是否相同的状态。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils
功能 将引用字串转换成结束引语返回。
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiLastChar(const S: string): PChar;$[SysUtils
功能 取参数S的最后一个字符，并转换成以null结束的字符串指针返回。
说明 ##AnsiLastChar(‘Sysoft’) = {‘t0’};
首部 function AnsiLowerCase(const S: string): string;$[SysUtils
功能 将字符串S转换为小写返回。
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils
功能 将文件名S转换成小写返回
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils
功能 返回子串Substr出现在主串S中的第一个位置。
说明
首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils
功能 返回引用字串的译文
说明
首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils
功能 返回字符串指针气所指向的最后一个字符位置
说明
首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUnits
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换为小写返回。
说明
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils
功能 在指针字符串中返回子串Substr出现在主串S中的第一个位置。
说明
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串
说明 ## AnsiStrRScan(‘Zswangs1234567’, ‘s’) = ‘s1234567’;
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的第一个位置为起始位置的指针字符串
说明 ## AnsiStrScan(‘Zswangs1234567’, ‘s’) = ‘swangs1234567’;
首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换成大写返回。
说明
首部 function AnsiToNative(Locale: TLocale; const AnsiStr: string; NativeStr: PChar; MaxLen: Integer): PChar; $[SysUtils
功能 将字符串集转换成现场数据返回
说明 type TLocale = Pointer;
首部 procedure AnsiToNativeBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $[SysUtils
功能 将字符串集转换成现场数据
说明
首部 function AnsiUpperCase(const S: string): string; $[SysUtils
功能 将字符转换为大写返回。
说明
首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils
功能 将文件名转换为大写返回。
说明
首部 procedure Append(var F: Text); $[System
功能 以附加的方式打开已有的文件。
说明 调用Append前，F必须已与一个外部文件相联系。对用Append打开的文件，仅有合法操作是调用Write或Writeln。
首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils
功能 将字串S添加到字串Dest中。[即运行: Dest := Dest + s;]
说明 ## AppendStr(‘Sysoft’, ‘1999’) = ‘Sysoft1999’;
首部 function ArcCos(X: Extended): Extended; $[Math
功能 返回X参数的反余弦值。
说明 函数结果取弧度值。
首部 function ArcCosh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲余弦值。
说明 函数结果取弧度值。
首部 function ArcSin(X: Extended): Extended; $[Math
功能 返回X参数的反正弦值。
说明 函数结果取弧度值。
首部 function ArcSinh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲正弦值。
说明 函数结果取弧度值。
首部 function ArcTan(X: Extended): Extended; $[System
功能 返回参数X的反正切函数值。
说明 函数结果取弧度值。
首部 function ArcTan2(Y, X: Extended): Extended; $[Math
功能 返回参数Y除于X参数的反正切函数值。{即：返回ArcTan(Y/X)}
说明 函数结果取弧度值。
首部 function ArcTanh(X: Extended): Extended; $[Math
功能 返回参数X的反双曲正切函数值。
说明 函数结果取弧度值。
首部 procedure Assert(expr : Boolean [; const msg: string]); $[System
功能 测试布尔表达式是否成功
说明 $ASSERTIONS ON/OFF | (long form)
$C +/- | (short form)首部 function Assigned(var P): Boolean; $[System
功能 返回变体是否非空。
说明 ## if Assigned(Edit1) then Edit1.Free;
首部 procedure AssignFile(var F; FileName: string); $[System
功能 给文件变量赋一外部文件名。
说明 用 F 文件变量打开 FileName 名字的文件
首部 procedure AssignPrn(var F: Text); $[Printers
功能 指定文本变量F的打印机
说明
首部 procedure AssignStr(var P: PString; const S: string); $[SysUtils
功能 将字符串列入指针
说明 PString 是 AnsiString 指针
首部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $[DRIntf
功能 将ID属性和事件关联
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TFieldID = type TID;
TAttrID = type TID;
首部 procedure Beep; $[SysUtils
功能 产生一个标准的电脑发声beep。
说明 这个Beep过程使用了Windows下的API函数MessageBeep。
首部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $[SysUtils
功能 以适当的方式建立用于内存管理的线程。
说明
首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean; out Stub: IStub); $[orbpas
功能 获得界面CORBA服务器的对象作为IStub界面
说明 [CORBA]:程序体系结构
首部 procedure BlockRead(var F: File; var Buf:
功能 从无类型文件F中读出Count个记录赋予变量Buf。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改变从128到不同字节块大小。
首部 procedure BlockWrite(var F: File; var Buf:
功能 把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Rewrite来改变从128到不同字节块大小。
首部 function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect; $[Classes
功能 返回指定坐标和范围的TRect数据
说明 type
TPoint = record
X: Longint;
Y: Longint;
end;
TRect = record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
首部 procedure Break; $[System
功能 提前中止循环。
说明 用于for、while、repeat-until中。
首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils
功能 返回索引Index的真实值
说明 如果Index小于和大于S的长度则返回0 ## ByteToCharIndex(‘12345678’, 9) = 0;
首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils
功能 返回字符的编号
说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; ##ByteToCharLen(‘12345678’,9) = 9;
首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils
功能 返回字符串指定位置的字节类型
说明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); ## ByteType(‘国庆节12’,1) = mbLeadByte;
首部 procedure CancelDrag; $[Controls
功能 在程序运行中取消拖放操作
说明
首部 function Ceil(X: Extended):Integer; $[Math
功能 返回参数X的正取整值
说明 ##Ceil(-2.8) = -2; Ceil(2.8) = 3; Ceil(-1.0) = -1;
首部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils
功能 改变文件的后缀返回。
说明 ##ChangeFileExt(‘zs.txt’,’.ini’) = ‘zs.ini’;
首部 function CharsetToIdent(Charset: Longint; var Ident: string): Boolean; $[Graphics
功能 获得字符集的名称
说明 如果获得成功则返回True,否则返回False
首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils
功能 返回字符串基于索引Index的真实位置
说明 如果Index小于和大于S的长度则返回0
首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils
功能 返回字符串基于索引Index的编号
说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen;
首部 procedure ChDir(Path:
功能 改变当前目录
说明 检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。
首部 procedure Check(Status: Integer); $[DBTables
功能 以变量来确定BDE抗议错误状态
说明 [BDE(Borland Database Engine)]: 宝兰德数据库引擎
首部 function Chr(N: Byte): Char; $[System
功能 返回参数N的ASCII字符值。
说明 参数N表示某ASCII代码的序号数值(0-255)。
首部 function ClassIDToProgID(const ClassID: TGUID): string; $[ComObj
功能 返回标题音乐的ID所指定类字串
说明 type
PGUID = ^TGUID;
TGUID = record
D1: Longword;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;
错误代码 含义
REGDB_E_CLASSNOTREG | Class not regi
