软件
产品
转自：http://www.sikeu.com/user1/yesu/archives/2007/200757231058.html
首部 procedure Abort;[SysUtils功能引起放弃的意外处理。说明不显示任何错误信息。首部functionAbs(N:<Number>):<Number>;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能引起放弃的意外处理。说明不显示任何错误信息。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑏𝑠(𝑁:<𝑁𝑢𝑚𝑏𝑒𝑟>):<𝑁𝑢𝑚𝑏𝑒𝑟>;[System
功能 返回参数N的绝对值。
说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。
## Abs (-12) = 12；Abs(-12.03) = 12.03
首部 procedure AddExitProc(Proc: TProcedure);[SysUtils功能将旧版本某一过程添加到当前版本运行的库的结束过程表中。说明只能向下兼容，不能用在当前使用版本的首部functionAddr(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大小的空间。说明Cardinal0..429496729532位无符号整数首部functionAnsiCompareFileName(constS1,S2:string):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能在堆栈上分配给定大小为𝑆𝑖𝑧𝑒字节的块，即在内存里开辟𝑆𝑖𝑧𝑒大小的空间。说明𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙0..429496729532位无符号整数首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑆1,𝑆2:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 比较两个文件名的大小。不区分大小写。
说明 条件 返回值
S1 > S2 | > 0
S1 < S2 | < 0
S1 = S2 | = 0
首部 function AnsiCompareStr(const S1, S2: string): Integer;[SysUtils功能比较两个字符串的大小。要区分大小写。说明参见AnsiCompareFileName。首部functionAnsiCompareText(constS1,S2:string):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能比较两个字符串的大小。要区分大小写。说明参见𝐴𝑛𝑠𝑖𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝑇𝑒𝑥𝑡(𝑐𝑜𝑛𝑠𝑡𝑆1,𝑆2:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回两个字符串是否相同的状态。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;[SysUtils功能将引用字串转换成结束引语返回。说明函数支持多字节字符系统[MBCS]。首部functionAnsiLastChar(constS:string):PChar;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将引用字串转换成结束引语返回。说明函数支持多字节字符系统[𝑀𝐵𝐶𝑆]。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝐿𝑎𝑠𝑡𝐶ℎ𝑎𝑟(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 取参数S的最后一个字符，并转换成以null结束的字符串指针返回。
说明 ##AnsiLastChar(‘Sysoft’) = {‘t\0’};
首部 function AnsiLowerCase(const S: string): string;[SysUtils功能将字符串S转换为小写返回。说明函数支持多字节字符系统[MBCS]。首部functionAnsiLowerCaseFileName(constS:string):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串𝑆转换为小写返回。说明函数支持多字节字符系统[𝑀𝐵𝐶𝑆]。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝐿𝑜𝑤𝑒𝑟𝐶𝑎𝑠𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将文件名S转换成小写返回
说明 函数支持多字节字符系统[MBCS]。
首部 function AnsiPos(const Substr, S: string): Integer; [SysUtils功能返回子串Substr出现在主串S中的第一个位置。说明首部functionAnsiQuotedStr(constS:string;Quote:Char):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回子串𝑆𝑢𝑏𝑠𝑡𝑟出现在主串𝑆中的第一个位置。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝑄𝑢𝑜𝑡𝑒𝑑𝑆𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔;𝑄𝑢𝑜𝑡𝑒:𝐶ℎ𝑎𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 返回引用字串的译文
说明
首部 function AnsiStrComp(S1, S2: PChar): Integer; [SysUtils功能比较两个指针字符串的大小。要区分大小写。说明参见AnsiCompareFileName。首部functionAnsiStrIComp(S1,S2:PChar):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能比较两个指针字符串的大小。要区分大小写。说明参见𝐴𝑛𝑠𝑖𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝑆𝑡𝑟𝐼𝐶𝑜𝑚𝑝(𝑆1,𝑆2:𝑃𝐶ℎ𝑎𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLastChar(P: PChar): PChar; [SysUtils功能返回字符串指针气所指向的最后一个字符位置说明首部functionAnsiStrLComp(S1,S2:PChar;MaxLen:Cardinal):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回字符串指针气所指向的最后一个字符位置说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝑆𝑡𝑟𝐿𝐶𝑜𝑚𝑝(𝑆1,𝑆2:𝑃𝐶ℎ𝑎𝑟;𝑀𝑎𝑥𝐿𝑒𝑛:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; [SysUnits功能在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。说明参见AnsiCompareFileName。首部functionAnsiStrLower(Str:PChar):PChar;[𝑆𝑦𝑠𝑈𝑛𝑖𝑡𝑠功能在最大长度𝑀𝑎𝑥𝐿𝑒𝑛的范围内比较两个指针字符串的大小。不区分大小写。说明参见𝐴𝑛𝑠𝑖𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝑆𝑡𝑟𝐿𝑜𝑤𝑒𝑟(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 将指针字符串S转换为小写返回。
说明
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; [SysUtils功能在指针字符串中返回子串Substr出现在主串S中的第一个位置。说明首部functionAnsiStrRScan(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 功能 返回以字符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功能将字符串集转换成现场数据返回说明typeTLocale=Pointer;首部procedureAnsiToNativeBuf(Locale:TLocale;Source,Dest:PChar;Len:Integer);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串集转换成现场数据返回说明𝑡𝑦𝑝𝑒𝑇𝐿𝑜𝑐𝑎𝑙𝑒=𝑃𝑜𝑖𝑛𝑡𝑒𝑟;首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐴𝑛𝑠𝑖𝑇𝑜𝑁𝑎𝑡𝑖𝑣𝑒𝐵𝑢𝑓(𝐿𝑜𝑐𝑎𝑙𝑒:𝑇𝐿𝑜𝑐𝑎𝑙𝑒;𝑆𝑜𝑢𝑟𝑐𝑒,𝐷𝑒𝑠𝑡:𝑃𝐶ℎ𝑎𝑟;𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[SysUtils
功能 将字符串集转换成现场数据
说明
首部 function AnsiUpperCase(const S: string): string; [SysUtils功能将字符转换为大写返回。说明首部functionAnsiUpperCaseFileName(constS:string):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符转换为大写返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑛𝑠𝑖𝑈𝑝𝑝𝑒𝑟𝐶𝑎𝑠𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将文件名转换为大写返回。
说明
首部 procedure Append(var F: Text); [System功能以附加的方式打开已有的文件。说明调用Append前，F必须已与一个外部文件相联系。对用Append打开的文件，仅有合法操作是调用Write或Writeln。首部procedureAppendStr(varDest:string;constS: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参数的反双曲余弦值。说明函数结果取弧度值。首部functionArcSin(X:Extended):Extended;[𝑀𝑎𝑡ℎ功能返回𝑋参数的反双曲余弦值。说明函数结果取弧度值。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑟𝑐𝑆𝑖𝑛(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回X参数的反正弦值。
说明 函数结果取弧度值。
首部 function ArcSinh(X: Extended): Extended; [Math功能返回X参数的反双曲正弦值。说明函数结果取弧度值。首部functionArcTan(X:Extended):Extended;[𝑀𝑎𝑡ℎ功能返回𝑋参数的反双曲正弦值。说明函数结果取弧度值。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑟𝑐𝑇𝑎𝑛(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[System
功能 返回参数X的反正切函数值。
说明 函数结果取弧度值。
首部 function ArcTan2(Y, X: Extended): Extended; [Math功能返回参数Y除于X参数的反正切函数值。即：返回ArcTan(Y/X)说明函数结果取弧度值。首部functionArcTanh(X:Extended):Extended;[𝑀𝑎𝑡ℎ功能返回参数𝑌除于𝑋参数的反正切函数值。即：返回𝐴𝑟𝑐𝑇𝑎𝑛(𝑌/𝑋)说明函数结果取弧度值。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑟𝑐𝑇𝑎𝑛ℎ(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数X的反双曲正切函数值。
说明 函数结果取弧度值。
首部 procedure Assert(expr : Boolean [; const msg: string]); [System功能测试布尔表达式是否成功说明[𝑆𝑦𝑠𝑡𝑒𝑚功能测试布尔表达式是否成功说明ASSERTIONS ON/OFF | (long form )
C+/−|(shortform)首部functionAssigned(varP):Boolean;𝐶+/−|(𝑠ℎ𝑜𝑟𝑡𝑓𝑜𝑟𝑚)首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐴𝑠𝑠𝑖𝑔𝑛𝑒𝑑(𝑣𝑎𝑟𝑃):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[System
功能 返回变体是否非空。
说明 ## if Assigned(Edit1) then Edit1.Free;
首部 procedure AssignFile(var F; FileName: string); [System功能给文件变量赋一外部文件名。说明用F文件变量打开FileName名字的文件首部procedureAssignPrn(varF:Text);[𝑆𝑦𝑠𝑡𝑒𝑚功能给文件变量赋一外部文件名。说明用𝐹文件变量打开𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒名字的文件首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐴𝑠𝑠𝑖𝑔𝑛𝑃𝑟𝑛(𝑣𝑎𝑟𝐹:𝑇𝑒𝑥𝑡);[Printers
功能 指定文本变量F的打印机
说明
首部 procedure AssignStr(var P: PString; const S: string); [SysUtils功能将字符串列入指针说明PString是AnsiString指针首部procedureAssociateAttr(constAttrID:TAttrID;constFieldID: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。首部functionBeginThread(SecurityAttributes:Pointer;StackSize:LongWord;ThreadFunc:TThreadFunc;Parameter:Pointer;CreationFlags:LongWord;varThreadId:LongWord):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能产生一个标准的电脑发声𝑏𝑒𝑒𝑝。说明这个𝐵𝑒𝑒𝑝过程使用了𝑊𝑖𝑛𝑑𝑜𝑤𝑠下的𝐴𝑃𝐼函数𝑀𝑒𝑠𝑠𝑎𝑔𝑒𝐵𝑒𝑒𝑝。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐵𝑒𝑔𝑖𝑛𝑇ℎ𝑟𝑒𝑎𝑑(𝑆𝑒𝑐𝑢𝑟𝑖𝑡𝑦𝐴𝑡𝑡𝑟𝑖𝑏𝑢𝑡𝑒𝑠:𝑃𝑜𝑖𝑛𝑡𝑒𝑟;𝑆𝑡𝑎𝑐𝑘𝑆𝑖𝑧𝑒:𝐿𝑜𝑛𝑔𝑊𝑜𝑟𝑑;𝑇ℎ𝑟𝑒𝑎𝑑𝐹𝑢𝑛𝑐:𝑇𝑇ℎ𝑟𝑒𝑎𝑑𝐹𝑢𝑛𝑐;𝑃𝑎𝑟𝑎𝑚𝑒𝑡𝑒𝑟:𝑃𝑜𝑖𝑛𝑡𝑒𝑟;𝐶𝑟𝑒𝑎𝑡𝑖𝑜𝑛𝐹𝑙𝑎𝑔𝑠:𝐿𝑜𝑛𝑔𝑊𝑜𝑟𝑑;𝑣𝑎𝑟𝑇ℎ𝑟𝑒𝑎𝑑𝐼𝑑:𝐿𝑜𝑛𝑔𝑊𝑜𝑟𝑑):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 以适当的方式建立用于内存管理的线程。
说明
首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean;
out Stub: IStub); [orbpas功能获得界面CORBA服务器的对象作为IStub界面说明[CORBA]:程序体系结构首部procedureBlockRead(varF:File;varBuf:<type>;Count:Integer[;varAmtTransferred:Integer]);[𝑜𝑟𝑏𝑝𝑎𝑠功能获得界面𝐶𝑂𝑅𝐵𝐴服务器的对象作为𝐼𝑆𝑡𝑢𝑏界面说明[𝐶𝑂𝑅𝐵𝐴]:程序体系结构首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐵𝑙𝑜𝑐𝑘𝑅𝑒𝑎𝑑(𝑣𝑎𝑟𝐹:𝐹𝑖𝑙𝑒;𝑣𝑎𝑟𝐵𝑢𝑓:<𝑡𝑦𝑝𝑒>;𝐶𝑜𝑢𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟[;𝑣𝑎𝑟𝐴𝑚𝑡𝑇𝑟𝑎𝑛𝑠𝑓𝑒𝑟𝑟𝑒𝑑:𝐼𝑛𝑡𝑒𝑔𝑒𝑟]);[System
功能 从无类型文件F中读出Count个记录赋予变量Buf。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改
变从128到不同字节块大小。
首部 procedure BlockWrite(var F: File; var Buf: <type>; Count: Integer [; var AmtTransferred: Integer]); [System功能把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。说明可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Rewrite来改变从128到不同字节块大小。首部functionBounds(ALeft,ATop,AWidth,AHeight:Integer):TRect;[𝑆𝑦𝑠𝑡𝑒𝑚功能把从变量𝐵𝑢𝑓第一个字节开始的𝐶𝑜𝑢𝑛𝑡个记录写入无类型文件𝐹中。说明可选参数𝐴𝑚𝑡𝑇𝑟𝑎𝑛𝑠𝑓𝑒𝑟𝑟𝑒𝑑表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的𝑅𝑒𝑤𝑟𝑖𝑡𝑒来改变从128到不同字节块大小。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐵𝑜𝑢𝑛𝑑𝑠(𝐴𝐿𝑒𝑓𝑡,𝐴𝑇𝑜𝑝,𝐴𝑊𝑖𝑑𝑡ℎ,𝐴𝐻𝑒𝑖𝑔ℎ𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑇𝑅𝑒𝑐𝑡;[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中。首部functionByteToCharIndex(constS: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 功能 返回字符的编号 说明 如果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功能在程序运行中取消拖放操作说明首部functionCeil(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;[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首部functionCharToByteLen(constS:string;MaxLen:Integer):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回字符串基于索引𝐼𝑛𝑑𝑒𝑥的真实位置说明如果𝐼𝑛𝑑𝑒𝑥小于和大于𝑆的长度则返回0首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶ℎ𝑎𝑟𝑇𝑜𝐵𝑦𝑡𝑒𝐿𝑒𝑛(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔;𝑀𝑎𝑥𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回字符串基于索引Index的编号
说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen;
首部 procedure ChDir(Path: <string>); [System功能改变当前目录说明检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。首部procedureCheck(Status:Integer);[𝑆𝑦𝑠𝑡𝑒𝑚功能改变当前目录说明检查𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡可确定此改变是否成功。𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡的值非零时表示𝑃𝑎𝑡ℎ不存在。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐶ℎ𝑒𝑐𝑘(𝑆𝑡𝑎𝑡𝑢𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[DBTables
功能 以变量来确定BDE抗议错误状态
说明 [BDE(Borland Database Engine)]: 宝兰德数据库引擎
首部 function Chr(N: Byte): Char; [System功能返回参数N的ASCII字符值。说明参数N表示某ASCII代码的序号数值(0−255)。首部functionClassIDToProgID(constClassID:TGUID):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数𝑁的𝐴𝑆𝐶𝐼𝐼字符值。说明参数𝑁表示某𝐴𝑆𝐶𝐼𝐼代码的序号数值(0−255)。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠𝐼𝐷𝑇𝑜𝑃𝑟𝑜𝑔𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐶𝑙𝑎𝑠𝑠𝐼𝐷:𝑇𝐺𝑈𝐼𝐷):𝑠𝑡𝑟𝑖𝑛𝑔;[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 registered in the registry.
REGDB_E_READREGDB | Error reading registry.
首部 function Clipboard: TClipboard; [clipbrd功能返回当前剪贴板的数据说明首部procedureClose(varF:<File>);[𝑐𝑙𝑖𝑝𝑏𝑟𝑑功能返回当前剪贴板的数据说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐶𝑙𝑜𝑠𝑒(𝑣𝑎𝑟𝐹:<𝐹𝑖𝑙𝑒>);[System
功能 关闭文件F。
说明 文件F必须已被Reset、Rewrite或Append打开，且没有关闭。欲关闭一个未打开的文件或已关闭的文件都是错误的。
首部 procedure CloseFile(var F: <File>); [System功能终止文件变量F与外部文件的联系说明当编译指令$I打开的时候,可用IOResult来检查终止是否成功首部functionCollectionsEqual(C1,C2:TCollection):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能终止文件变量𝐹与外部文件的联系说明当编译指令$𝐼打开的时候,可用𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡来检查终止是否成功首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑙𝑙𝑒𝑐𝑡𝑖𝑜𝑛𝑠𝐸𝑞𝑢𝑎𝑙(𝐶1,𝐶2:𝑇𝐶𝑜𝑙𝑙𝑒𝑐𝑡𝑖𝑜𝑛):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Classes
功能 比较两个收集变量是否相同
说明
首部 function ColorToIdent(Color: Longint; var Ident: string): Boolean; [Graphics 功能 返回是否成功的获取了颜色的名称 说明 ##var s, Ident: string; begin s := ‘Nose’; if ColorToIdent(clBlack, Ident) then s := Ident; 首部 function ColorToRGB(Color: TColor): Longint;[Graphics 功能 返回是否成功的获取了颜色的名称 说明 ##var s, Ident: string; begin s := ‘Nose’; if ColorToIdent(clBlack, Ident) then s := Ident; 首部 function ColorToRGB(Color: TColor): Longint;[Graphics
功能 将颜色类型转换成RGB格式返回
说明 type TColor = -(COLOR_ENDCOLORS + 1)..02FFFFFF;便于WindowsAPI函数调用首部functionColorToString(Color:TColor):string;02𝐹𝐹𝐹𝐹𝐹𝐹;便于𝑊𝑖𝑛𝑑𝑜𝑤𝑠𝐴𝑃𝐼函数调用首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑙𝑜𝑟𝑇𝑜𝑆𝑡𝑟𝑖𝑛𝑔(𝐶𝑜𝑙𝑜𝑟:𝑇𝐶𝑜𝑙𝑜𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[Graphics
功能 将颜色参数Color转换成字符串类型返回
说明 如果Color有系统设定的颜色则返回该名称, 否则返回其16进制形式 ## ColorToString(clBlack) = ‘clBlak’;
ColorToString(12) = ‘0000000C′;首部functionComClassManager:TComClassManager;0000000𝐶′;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑚𝐶𝑙𝑎𝑠𝑠𝑀𝑎𝑛𝑎𝑔𝑒𝑟:𝑇𝐶𝑜𝑚𝐶𝑙𝑎𝑠𝑠𝑀𝑎𝑛𝑎𝑔𝑒𝑟;[ComObj
功能 返回一个TComClassManager类
说明
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; [SysUtils功能在指定内存范围Length比较两个指镇的内容是否相同。说明范围以二进制为单位。首部functionCompareStr(constS1,S2:string):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能在指定内存范围𝐿𝑒𝑛𝑔𝑡ℎ比较两个指镇的内容是否相同。说明范围以二进制为单位。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝑆𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝑆1,𝑆2:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 比较两个字符串的大小。要区分大小写。
说明
首部 function CompareText(const S1, S2: string): Integer; [SysUtils功能比较两个字符串的大小。不区分大小写。说明首部functionConcat(S1[，S2，...，Sn]:<String>):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能比较两个字符串的大小。不区分大小写。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑛𝑐𝑎𝑡(𝑆1[，𝑆2，...，𝑆𝑛]:<𝑆𝑡𝑟𝑖𝑛𝑔>):𝑠𝑡𝑟𝑖𝑛𝑔;[System1
功能 把字串S1 [， S2，...，Sn]连接成一个单一的字串。
说明 除此之外，还可以用运算符+来连接。
首部 procedure Continue; [System功能离开本次循环,转到下一次循环说明首部functionCopy(S:<String>;Index,Len:Integer):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能离开本次循环,转到下一次循环说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑝𝑦(𝑆:<𝑆𝑡𝑟𝑖𝑛𝑔>;𝐼𝑛𝑑𝑒𝑥,𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[System
功能 返回字符串S中由第Index个字符开始、Len个字符长的一个子串。
说明 若从S[Index]到结尾的长度小于len的值，则返回串S中由Index开始到串尾的那一子串。
首部 function CopyPalette(Category: HPALETTE): HPALETTE; [Graphics功能复制一个新的调色板返回说明HPALETTE[Windows调色板数据]首部functionCorbaBind(constRepositoryID:string;constObjectName:string=″;constHostName:string=″):IObject;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能复制一个新的调色板返回说明𝐻𝑃𝐴𝐿𝐸𝑇𝑇𝐸[𝑊𝑖𝑛𝑑𝑜𝑤𝑠调色板数据]首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑟𝑏𝑎𝐵𝑖𝑛𝑑(𝑐𝑜𝑛𝑠𝑡𝑅𝑒𝑝𝑜𝑠𝑖𝑡𝑜𝑟𝑦𝐼𝐷:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝑂𝑏𝑗𝑒𝑐𝑡𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔=″;𝑐𝑜𝑛𝑠𝑡𝐻𝑜𝑠𝑡𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔=″):𝐼𝑂𝑏𝑗𝑒𝑐𝑡;[corbaobj
function CorbaBind(const InterfaceIhttps://www.gofarlic.com TGUID; const ObjectName: string = ''; const HostName: string = ''):
IObject; [corbaobj功能返回用户反馈信息和CORBA服务器对象接口说明首部functionCorbaFactoryCreateStub(constRepId,FactoryId,InstanceName,HostName:string;IID:TGUID):IObject;[𝑐𝑜𝑟𝑏𝑎𝑜𝑏𝑗功能返回用户反馈信息和𝐶𝑂𝑅𝐵𝐴服务器对象接口说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑟𝑏𝑎𝐹𝑎𝑐𝑡𝑜𝑟𝑦𝐶𝑟𝑒𝑎𝑡𝑒𝑆𝑡𝑢𝑏(𝑐𝑜𝑛𝑠𝑡𝑅𝑒𝑝𝐼𝑑,𝐹𝑎𝑐𝑡𝑜𝑟𝑦𝐼𝑑,𝐼𝑛𝑠𝑡𝑎𝑛𝑐𝑒𝑁𝑎𝑚𝑒,𝐻𝑜𝑠𝑡𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝐼𝐼𝐷:𝑇𝐺𝑈𝐼𝐷):𝐼𝑂𝑏𝑗𝑒𝑐𝑡;[corbaobj
功能 返回用户反馈信息和CORBA服务器对象接口
说明
首部 function Cos(X: Extended): Extended; [System功能返回参数X的余弦值。说明参数X以弧度为单位。首部functionCosh(X:Extended):Extended;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数𝑋的余弦值。说明参数𝑋以弧度为单位。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑠ℎ(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数X的双曲余弦值。
说明 参数X以弧度为单位。
首部 function Cotan(X: Extended): Extended; [Math功能返回参数正切值的倒数说明1/Tan(X)首部functionCreateAction(AOwner:TComponent;ActionClass:TBasicActionClass):TBasicAction;[𝑀𝑎𝑡ℎ功能返回参数正切值的倒数说明1/𝑇𝑎𝑛(𝑋)首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝐴𝑐𝑡𝑖𝑜𝑛(𝐴𝑂𝑤𝑛𝑒𝑟:𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡;𝐴𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠:𝑇𝐵𝑎𝑠𝑖𝑐𝐴𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠):𝑇𝐵𝑎𝑠𝑖𝑐𝐴𝑐𝑡𝑖𝑜𝑛;[ActnList
功能 实现一个操作,指定类型,返回其列表编辑器
说明 TbasicAction[是所操作对象的父类]
首部 function CreateClassIhttps://www.gofarlic.com string; [ComObj功能产生一个新的GUIID,将其作为字符串返回说明GUIID[用户图形界面标识]格式:[′xxxxxxxx−xxx−xxx−xxx−xxxxxxxxxxx′]首部functionCreateComObject(constClassID:TGUID):IUnknown;[𝐶𝑜𝑚𝑂𝑏𝑗功能产生一个新的𝐺𝑈𝐼𝐼𝐷,将其作为字符串返回说明𝐺𝑈𝐼𝐼𝐷[用户图形界面标识]格式:[′𝑥𝑥𝑥𝑥𝑥𝑥𝑥𝑥−𝑥𝑥𝑥−𝑥𝑥𝑥−𝑥𝑥𝑥−𝑥𝑥𝑥𝑥𝑥𝑥𝑥𝑥𝑥𝑥𝑥′]首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝐶𝑜𝑚𝑂𝑏𝑗𝑒𝑐𝑡(𝑐𝑜𝑛𝑠𝑡𝐶𝑙𝑎𝑠𝑠𝐼𝐷:𝑇𝐺𝑈𝐼𝐷):𝐼𝑈𝑛𝑘𝑛𝑜𝑤𝑛;[ComObj
功能 例示COM单个例子的对象
说明 type
PGUID = ^TGUID;
TGUID = record
D1: Longword;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;
首部 function CreateDir(const Dir: string): Boolean; [SysUtils功能创建一个新的目录说明如果创建成功返回True,否则返回False首部functionCreateField(Owner:TComponent;Dataset:TDataset);constFieldname,Origin:string;constFieldID:TFieldID;constAttrID:TAttrID):TField;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能创建一个新的目录说明如果创建成功返回𝑇𝑟𝑢𝑒,否则返回𝐹𝑎𝑙𝑠𝑒首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝐹𝑖𝑒𝑙𝑑(𝑂𝑤𝑛𝑒𝑟:𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡;𝐷𝑎𝑡𝑎𝑠𝑒𝑡:𝑇𝐷𝑎𝑡𝑎𝑠𝑒𝑡);𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝑛𝑎𝑚𝑒,𝑂𝑟𝑖𝑔𝑖𝑛:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐼𝐷:𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝐴𝑡𝑡𝑟𝐼𝐷:𝑇𝐴𝑡𝑡𝑟𝐼𝐷):𝑇𝐹𝑖𝑒𝑙𝑑;[DRIntf
功能 在数据词典中创建一个信息存储的新空间
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TFieldID = type TID;
TAttrID = type TID;
首部 function CreateGrayMappedBmp(Handle: HBITMAP): HBITMAP; [Graphics功能重新将位图的系统灰色标准化说明此函数返回原有的位图首部functionCreateGrayMappedRes(Instance:THandle;ResName:PChar):HBITMAP;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能重新将位图的系统灰色标准化说明此函数返回原有的位图首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝐺𝑟𝑎𝑦𝑀𝑎𝑝𝑝𝑒𝑑𝑅𝑒𝑠(𝐼𝑛𝑠𝑡𝑎𝑛𝑐𝑒:𝑇𝐻𝑎𝑛𝑑𝑙𝑒;𝑅𝑒𝑠𝑁𝑎𝑚𝑒:𝑃𝐶ℎ𝑎𝑟):𝐻𝐵𝐼𝑇𝑀𝐴𝑃;[Graphics
功能 重新将位图的系统灰色资源标准化
说明 此函数返回调整后的位图
首部 function CreateMappedBmp(Handle: HBITMAP; const OldColors, NewColors: array of TColor): HBITMAP; [Graphics功能在位图中改变色表说明此函数返回原有的位图首部functionCreateMappedRes(Instance:THandle;ResName:PChar;constOldColors,NewColors:arrayofTColor):HBITMAP;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能在位图中改变色表说明此函数返回原有的位图首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝑀𝑎𝑝𝑝𝑒𝑑𝑅𝑒𝑠(𝐼𝑛𝑠𝑡𝑎𝑛𝑐𝑒:𝑇𝐻𝑎𝑛𝑑𝑙𝑒;𝑅𝑒𝑠𝑁𝑎𝑚𝑒:𝑃𝐶ℎ𝑎𝑟;𝑐𝑜𝑛𝑠𝑡𝑂𝑙𝑑𝐶𝑜𝑙𝑜𝑟𝑠,𝑁𝑒𝑤𝐶𝑜𝑙𝑜𝑟𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝐶𝑜𝑙𝑜𝑟):𝐻𝐵𝐼𝑇𝑀𝐴𝑃;[ Graphics
功能 在位图中改变色表资源
说明 此函数返回调整后的位图
首部 function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;
[dialogs功能返回所创建的指定消息对话匡。说明typeTMsgDlgType=(mtWarning,mtError,mtInformation,mtConfirmation,mtCustom);mtWarning|黄色感叹号MtError|红色禁止符号MtInformation|蓝色"i"MtConfirmation|绿色问号MtCustom|运用程序名[Thecaptionofthemessageboxisthenameoftheapplication′sexecutablefile.]首部functionCreateOleObject(constClassName:string):IDispatch;[𝑑𝑖𝑎𝑙𝑜𝑔𝑠功能返回所创建的指定消息对话匡。说明𝑡𝑦𝑝𝑒𝑇𝑀𝑠𝑔𝐷𝑙𝑔𝑇𝑦𝑝𝑒=(𝑚𝑡𝑊𝑎𝑟𝑛𝑖𝑛𝑔,𝑚𝑡𝐸𝑟𝑟𝑜𝑟,𝑚𝑡𝐼𝑛𝑓𝑜𝑟𝑚𝑎𝑡𝑖𝑜𝑛,𝑚𝑡𝐶𝑜𝑛𝑓𝑖𝑟𝑚𝑎𝑡𝑖𝑜𝑛,𝑚𝑡𝐶𝑢𝑠𝑡𝑜𝑚);𝑚𝑡𝑊𝑎𝑟𝑛𝑖𝑛𝑔|黄色感叹号𝑀𝑡𝐸𝑟𝑟𝑜𝑟|红色禁止符号𝑀𝑡𝐼𝑛𝑓𝑜𝑟𝑚𝑎𝑡𝑖𝑜𝑛|蓝色"𝑖"𝑀𝑡𝐶𝑜𝑛𝑓𝑖𝑟𝑚𝑎𝑡𝑖𝑜𝑛|绿色问号𝑀𝑡𝐶𝑢𝑠𝑡𝑜𝑚|运用程序名[𝑇ℎ𝑒𝑐𝑎𝑝𝑡𝑖𝑜𝑛𝑜𝑓𝑡ℎ𝑒𝑚𝑒𝑠𝑠𝑎𝑔𝑒𝑏𝑜𝑥𝑖𝑠𝑡ℎ𝑒𝑛𝑎𝑚𝑒𝑜𝑓𝑡ℎ𝑒𝑎𝑝𝑝𝑙𝑖𝑐𝑎𝑡𝑖𝑜𝑛′𝑠𝑒𝑥𝑒𝑐𝑢𝑡𝑎𝑏𝑙𝑒𝑓𝑖𝑙𝑒.]首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝑂𝑙𝑒𝑂𝑏𝑗𝑒𝑐𝑡(𝑐𝑜𝑛𝑠𝑡𝐶𝑙𝑎𝑠𝑠𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝐷𝑖𝑠𝑝𝑎𝑡𝑐ℎ;[ComObj
功能 产生一个名为ClassName的Ole自动操作类
说明
首部 procedure CreateRegKey(const Key, ValueName, Value: string); [ComObj功能创建注册键说明如关键字已经注册,则调用该过种无效首部functionCreateRemoteComObject(constMachineName:WideString;constClassID:TGUID):IUnknown;[𝐶𝑜𝑚𝑂𝑏𝑗功能创建注册键说明如关键字已经注册,则调用该过种无效首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝑅𝑒𝑚𝑜𝑡𝑒𝐶𝑜𝑚𝑂𝑏𝑗𝑒𝑐𝑡(𝑐𝑜𝑛𝑠𝑡𝑀𝑎𝑐ℎ𝑖𝑛𝑒𝑁𝑎𝑚𝑒:𝑊𝑖𝑑𝑒𝑆𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝐶𝑙𝑎𝑠𝑠𝐼𝐷:𝑇𝐺𝑈𝐼𝐷):𝐼𝑈𝑛𝑘𝑛𝑜𝑤𝑛;[ComObj
功能
说明
首部 function CreateSharedPropertyGroup(const Name: WideString): ISharedPropertyGroup; [Mtx功能说明首部functionCreateSharedPropertyGroupManager:ISharedPropertyGroupManager;[𝑀𝑡𝑥功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝑆ℎ𝑎𝑟𝑒𝑑𝑃𝑟𝑜𝑝𝑒𝑟𝑡𝑦𝐺𝑟𝑜𝑢𝑝𝑀𝑎𝑛𝑎𝑔𝑒𝑟:𝐼𝑆ℎ𝑎𝑟𝑒𝑑𝑃𝑟𝑜𝑝𝑒𝑟𝑡𝑦𝐺𝑟𝑜𝑢𝑝𝑀𝑎𝑛𝑎𝑔𝑒𝑟;[Mtx
功能
说明
首部 function CreateTransactionContext: ITransactionContext; [Mtx功能说明首部functionCreateTransactionContextEx:ITransactionContextEx;[𝑀𝑡𝑥功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑟𝑒𝑎𝑡𝑒𝑇𝑟𝑎𝑛𝑠𝑎𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑛𝑡𝑒𝑥𝑡𝐸𝑥:𝐼𝑇𝑟𝑎𝑛𝑠𝑎𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑛𝑡𝑒𝑥𝑡𝐸𝑥;[ Mtx
功能
说明
首部 function CurrToFMTBCD(Curr: Currency; var BChttps://www.gofarlic.com FMTBcd; Precision, Decimals: Integer): Boolean; [DBCommon功能说明首部functionCurrToStr(Value:Currency):string;[𝐷𝐵𝐶𝑜𝑚𝑚𝑜𝑛功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑢𝑟𝑟𝑇𝑜𝑆𝑡𝑟(𝑉𝑎𝑙𝑢𝑒:𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将浮点类型参数Value转换成字符串返回
说明
首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; [SysUtils功能将浮点类型参数Value按指定格式转换成字符串返回说明typeTFloatFormat=(ffGeneral,ffExponent,ffFixed,ffNumber,ffCurrency);首部functionCursorToIdent(Cursor:Longint;varIdent:string):Boolean;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将浮点类型参数𝑉𝑎𝑙𝑢𝑒按指定格式转换成字符串返回说明𝑡𝑦𝑝𝑒𝑇𝐹𝑙𝑜𝑎𝑡𝐹𝑜𝑟𝑚𝑎𝑡=(𝑓𝑓𝐺𝑒𝑛𝑒𝑟𝑎𝑙,𝑓𝑓𝐸𝑥𝑝𝑜𝑛𝑒𝑛𝑡,𝑓𝑓𝐹𝑖𝑥𝑒𝑑,𝑓𝑓𝑁𝑢𝑚𝑏𝑒𝑟,𝑓𝑓𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦);首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑢𝑟𝑠𝑜𝑟𝑇𝑜𝐼𝑑𝑒𝑛𝑡(𝐶𝑢𝑟𝑠𝑜𝑟:𝐿𝑜𝑛𝑔𝑖𝑛𝑡;𝑣𝑎𝑟𝐼𝑑𝑒𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[controls
功能 返回是否成功地将鼠标指针类型转换成字符串类型
说明 type TCursor = -32768..32767;
##var s: string; b1, b2: boolean; begin b1 := CursorToIdent(crDefault, s); b2 := CursorToIdent(100, s); end;
{b1 = True; b2 = False}
首部 function CursorToString(Cursor: TCursor): string; [controls 功能 将鼠标指针类型转换成字符串返回 说明 如果参数不在系统常量定义中则返回原数字值方式 ## CursorToString(crDefault) = ‘crDefault’; CursorToString(100) = ‘100’ 首部 function CycleToRad(Cycles: Extended): Extended;[controls 功能 将鼠标指针类型转换成字符串返回 说明 如果参数不在系统常量定义中则返回原数字值方式 ## CursorToString(crDefault) = ‘crDefault’; CursorToString(100) = ‘100’ 首部 function CycleToRad(Cycles: Extended): Extended;[Math
功能 将参数Cycles转换成弧度返回。
说明 radians = 2pi*cycles。
首部 procedure DatabaseError(const Message: string; Component: TComponent = nil); [DB功能说明首部procedureDatabaseErrorFmt(constMessage:string;constArgs:arrayofconst;Component:TComponent=nil);[𝐷𝐵功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒𝐸𝑟𝑟𝑜𝑟𝐹𝑚𝑡(𝑐𝑜𝑛𝑠𝑡𝑀𝑒𝑠𝑠𝑎𝑔𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝐴𝑟𝑔𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑐𝑜𝑛𝑠𝑡;𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡:𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡=𝑛𝑖𝑙);[DB
功能
说明
首部 function Date: TDateTime; [SysUtils功能返回当前的日期。说明typeTDateTime=typeDouble;首部functionDateTimeToFileDate(DateTime:TDateTime):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回当前的日期。说明𝑡𝑦𝑝𝑒𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒=𝑡𝑦𝑝𝑒𝐷𝑜𝑢𝑏𝑙𝑒;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒𝑇𝑜𝐹𝑖𝑙𝑒𝐷𝑎𝑡𝑒(𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为文件日期格式返回。
说明
首部 function DateTimeToStr(DateTime: TDateTime): string; [SysUtils功能将Delphi的日期时间类型参数DateTime转换为字符串返回。说明首部procedureDateTimeToString(varNewString:string;constFormat:string;DateTime:TDateTime);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝐷𝑒𝑙𝑝ℎ𝑖的日期时间类型参数𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒转换为字符串返回。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒𝑇𝑜𝑆𝑡𝑟𝑖𝑛𝑔(𝑣𝑎𝑟𝑁𝑒𝑤𝑆𝑡𝑟𝑖𝑛𝑔:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝐹𝑜𝑟𝑚𝑎𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒);[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为以格式Formatr的字符串。
说明
首部 procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); [SysUtils功能将Delphi的日期时间类型参数DateTime转换为Windows的日期时间格式，返回至SystemTime。说明UnitWindowstypePSystemTime=TSystemTime;TSystemTime=recordwYear:Word;wMonth:Word;wDayOfWeek:Word;wDay:Word;wHour:Word;wMinute:Word;wSecond:Word;wMilliseconds:Word;end;首部functionDateTimeToTimeStamp(DateTime:TDateTime):TTimeStamp;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝐷𝑒𝑙𝑝ℎ𝑖的日期时间类型参数𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒转换为𝑊𝑖𝑛𝑑𝑜𝑤𝑠的日期时间格式，返回至𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒。说明𝑈𝑛𝑖𝑡𝑊𝑖𝑛𝑑𝑜𝑤𝑠𝑡𝑦𝑝𝑒𝑃𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒=𝑇𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒;𝑇𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒=𝑟𝑒𝑐𝑜𝑟𝑑𝑤𝑌𝑒𝑎𝑟:𝑊𝑜𝑟𝑑;𝑤𝑀𝑜𝑛𝑡ℎ:𝑊𝑜𝑟𝑑;𝑤𝐷𝑎𝑦𝑂𝑓𝑊𝑒𝑒𝑘:𝑊𝑜𝑟𝑑;𝑤𝐷𝑎𝑦:𝑊𝑜𝑟𝑑;𝑤𝐻𝑜𝑢𝑟:𝑊𝑜𝑟𝑑;𝑤𝑀𝑖𝑛𝑢𝑡𝑒:𝑊𝑜𝑟𝑑;𝑤𝑆𝑒𝑐𝑜𝑛𝑑:𝑊𝑜𝑟𝑑;𝑤𝑀𝑖𝑙𝑙𝑖𝑠𝑒𝑐𝑜𝑛𝑑𝑠:𝑊𝑜𝑟𝑑;𝑒𝑛𝑑;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒𝑇𝑜𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝(𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒):𝑇𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝;[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为Dos的日期时间格式返回。
说明 type
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
首部 function DateToStr(Date: TDateTime): string; [SysUtils功能将Delphi的日期时间类型参数Date的日期部份转换为字符串返回。说明首部functionDayOfWeek(Date:TDateTime):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝐷𝑒𝑙𝑝ℎ𝑖的日期时间类型参数𝐷𝑎𝑡𝑒的日期部份转换为字符串返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑎𝑦𝑂𝑓𝑊𝑒𝑒𝑘(𝐷𝑎𝑡𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回参数Date星期的数值。
说明
首部 procedure DBError(Ident: Word); [DB功能说明首部procedureDBErrorFmt(Ident:Word;constArgs:arrayofconst);[𝐷𝐵功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝐵𝐸𝑟𝑟𝑜𝑟𝐹𝑚𝑡(𝐼𝑑𝑒𝑛𝑡:𝑊𝑜𝑟𝑑;𝑐𝑜𝑛𝑠𝑡𝐴𝑟𝑔𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑐𝑜𝑛𝑠𝑡);[DB
功能
说明
首部 procedure DBIError(ErrorCode: DBIResult); [DBTables功能说明首部procedureDec(varX:<Ordinal>[;N:Longint]);[𝐷𝐵𝑇𝑎𝑏𝑙𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑒𝑐(𝑣𝑎𝑟𝑋:<𝑂𝑟𝑑𝑖𝑛𝑎𝑙>[;𝑁:𝐿𝑜𝑛𝑔𝑖𝑛𝑡]);[System
功能 取有序变量X的第N个前趋。相当于for i := 1 to N do X := Rred(X);
说明 当不带参数N时，则N默认为1。用Dec比用与之等价的赋值语句执行得快。
首部 procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); [SysUtils功能将Delphir的日期时间类型参数DateTime分解为年、月、日返回至Year、Month、Day中。说明首部procedureDecodeTime(Time:TDateTime;varHour,Min,Sec,MSec:Word);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝐷𝑒𝑙𝑝ℎ𝑖𝑟的日期时间类型参数𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒分解为年、月、日返回至𝑌𝑒𝑎𝑟、𝑀𝑜𝑛𝑡ℎ、𝐷𝑎𝑦中。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑒𝑐𝑜𝑑𝑒𝑇𝑖𝑚𝑒(𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;𝑣𝑎𝑟𝐻𝑜𝑢𝑟,𝑀𝑖𝑛,𝑆𝑒𝑐,𝑀𝑆𝑒𝑐:𝑊𝑜𝑟𝑑);[SysUtils
功能 将Delphir的日期时间类型参数DateTime分解为时、分、秒、毫秒返回至Hour、 Min、 Sec、 Msec中。
说明
首部 function DegToRad(Degrees: Extended): Extended; [Math功能将参数Degrees转换成弧度返回。说明radians=degrees(pi/180)。首部procedureDelete(varS:string;Index,Len:Integer);[𝑀𝑎𝑡ℎ功能将参数𝐷𝑒𝑔𝑟𝑒𝑒𝑠转换成弧度返回。说明𝑟𝑎𝑑𝑖𝑎𝑛𝑠=𝑑𝑒𝑔𝑟𝑒𝑒𝑠(𝑝𝑖/180)。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑒𝑙𝑒𝑡𝑒(𝑣𝑎𝑟𝑆:𝑠𝑡𝑟𝑖𝑛𝑔;𝐼𝑛𝑑𝑒𝑥,𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[System
功能 从字串S中删除由第Index个字符位置开始、长度为len的子串。
说明 若串由位置到串尾不足个字符，则就删除至串尾为止。 ##s := 'Honest Abe Lincoln'; Delete(s, 8, 4);{ s = 'Honest
Lincoln' }
首部 function DeleteFile(const FileName: string): Boolean; [SysUtils功能返回删除文件是否成功说明首部procedureDeleteRegKey(constKey:string);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回删除文件是否成功说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑒𝑙𝑒𝑡𝑒𝑅𝑒𝑔𝐾𝑒𝑦(𝑐𝑜𝑛𝑠𝑡𝐾𝑒𝑦:𝑠𝑡𝑟𝑖𝑛𝑔);[ComObj
功能
说明
首部 procedure DestroyMetaPict(MetaPict: HGlobal); [OleCtnrs功能说明首部functionDictionaryActive:Boolean;[𝑂𝑙𝑒𝐶𝑡𝑛𝑟𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑖𝑐𝑡𝑖𝑜𝑛𝑎𝑟𝑦𝐴𝑐𝑡𝑖𝑣𝑒:𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[DRIntf
功能
说明
首部 procedure DictionaryDeactivate; [DRIntf功能说明首部functionDirectoryExists(Name:string):Boolean;[𝐷𝑅𝐼𝑛𝑡𝑓功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑖𝑟𝑒𝑐𝑡𝑜𝑟𝑦𝐸𝑥𝑖𝑠𝑡𝑠(𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[FileCtrl
功能 返回路径Name是否存在。
说明 ## DirectoryExists(‘c:’) = True;
首部 function DiskFree(Drive: Byte): Int64; [SysUtils功能返回磁盘驱动器的空闲字节数。说明参数Drive的值代表驱动器号。0表示当前驱动器，1表示A驱动器，2表示B驱动器等等。若驱动器非法，则DiskFree返回−1。首部functionDiskSize(Drive:Byte):Int64;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回磁盘驱动器的空闲字节数。说明参数𝐷𝑟𝑖𝑣𝑒的值代表驱动器号。0表示当前驱动器，1表示𝐴驱动器，2表示𝐵驱动器等等。若驱动器非法，则𝐷𝑖𝑠𝑘𝐹𝑟𝑒𝑒返回−1。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑖𝑠𝑘𝑆𝑖𝑧𝑒(𝐷𝑟𝑖𝑣𝑒:𝐵𝑦𝑡𝑒):𝐼𝑛𝑡64;[SysUtils
功能 返回磁盘驱动器Drive的总字节数。
说明 参见DiskFree。
首部 procedure Dispose(var P: Pointer); [System功能释放动态变量P所占的空间说明首部procedureDisposeStr(P:PString);[𝑆𝑦𝑠𝑡𝑒𝑚功能释放动态变量𝑃所占的空间说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐷𝑖𝑠𝑝𝑜𝑠𝑒𝑆𝑡𝑟(𝑃:𝑃𝑆𝑡𝑟𝑖𝑛𝑔);[System
功能 释放字符串在堆栈中的内存空间
说明
首部 function DllCanUnloadNow: HResult; stdcall; [Comserv功能说明首部functionDllGetClassObject(constCLSID,IID:TGUID;varObj):HResult;stdcall;[𝐶𝑜𝑚𝑠𝑒𝑟𝑣功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑙𝑙𝐺𝑒𝑡𝐶𝑙𝑎𝑠𝑠𝑂𝑏𝑗𝑒𝑐𝑡(𝑐𝑜𝑛𝑠𝑡𝐶𝐿𝑆𝐼𝐷,𝐼𝐼𝐷:𝑇𝐺𝑈𝐼𝐷;𝑣𝑎𝑟𝑂𝑏𝑗):𝐻𝑅𝑒𝑠𝑢𝑙𝑡;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Comserv
功能
说明
首部 function DllRegisterServer: HResult; stdcall; [Comserv功能说明首部functionDllUnregisterServer:HResult;stdcall;[𝐶𝑜𝑚𝑠𝑒𝑟𝑣功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑙𝑙𝑈𝑛𝑟𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝑆𝑒𝑟𝑣𝑒𝑟:𝐻𝑅𝑒𝑠𝑢𝑙𝑡;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Comserv
功能
说明
首部 function DosPathToUnixPath(const Path: string): string; [HTTPApp功能将Dos系统路径名转换成Unix系统路径名返回。说明首部functionDoubleDecliningBalance(Cost,Salvage:Extended;Life,Period:Integer):Extended;[𝐻𝑇𝑇𝑃𝐴𝑝𝑝功能将𝐷𝑜𝑠系统路径名转换成𝑈𝑛𝑖𝑥系统路径名返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑜𝑢𝑏𝑙𝑒𝐷𝑒𝑐𝑙𝑖𝑛𝑖𝑛𝑔𝐵𝑎𝑙𝑎𝑛𝑐𝑒(𝐶𝑜𝑠𝑡,𝑆𝑎𝑙𝑣𝑎𝑔𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝐿𝑖𝑓𝑒,𝑃𝑒𝑟𝑖𝑜𝑑:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 用双斜平衡方法计算资产的折旧。
说明
首部 function EncodeDate(Year, Month, Day: Word): TDateTime; [SysUtils功能返回年、月、日合成的日期时间格式说明首部functionEncodeTime(Hour,Min,Sec,MSec:Word):TDateTime;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回年、月、日合成的日期时间格式说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐸𝑛𝑐𝑜𝑑𝑒𝑇𝑖𝑚𝑒(𝐻𝑜𝑢𝑟,𝑀𝑖𝑛,𝑆𝑒𝑐,𝑀𝑆𝑒𝑐:𝑊𝑜𝑟𝑑):𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 返回时、分、秒、毫秒合成的日期时间格式
说明
首部 function EndThread(ExitCode: Integer); [SysUtils功能说明首部procedureEnumDispatchProperties(Dispatch:IDispatch;PropType:TGUID;VTCode:Integer;PropList:TStrings);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐸𝑛𝑢𝑚𝐷𝑖𝑠𝑝𝑎𝑡𝑐ℎ𝑃𝑟𝑜𝑝𝑒𝑟𝑡𝑖𝑒𝑠(𝐷𝑖𝑠𝑝𝑎𝑡𝑐ℎ:𝐼𝐷𝑖𝑠𝑝𝑎𝑡𝑐ℎ;𝑃𝑟𝑜𝑝𝑇𝑦𝑝𝑒:𝑇𝐺𝑈𝐼𝐷;𝑉𝑇𝐶𝑜𝑑𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑃𝑟𝑜𝑝𝐿𝑖𝑠𝑡:𝑇𝑆𝑡𝑟𝑖𝑛𝑔𝑠);[AxCtrls
功能
说明
首部 procedure EnumRegisteredActions(Proc: TEnumActionProc; Info: Pointer); [ActnList功能说明typeTEnumActionProc=procedure(constCategory:string;ActionClass:TBasicActionClass;Info:Pointer)ofobject;首部procedureEnumResourceModules(Func:TEnumModuleFunc;Data:Pointer);[𝐴𝑐𝑡𝑛𝐿𝑖𝑠𝑡功能说明𝑡𝑦𝑝𝑒𝑇𝐸𝑛𝑢𝑚𝐴𝑐𝑡𝑖𝑜𝑛𝑃𝑟𝑜𝑐=𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒(𝑐𝑜𝑛𝑠𝑡𝐶𝑎𝑡𝑒𝑔𝑜𝑟𝑦:𝑠𝑡𝑟𝑖𝑛𝑔;𝐴𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠:𝑇𝐵𝑎𝑠𝑖𝑐𝐴𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠;𝐼𝑛𝑓𝑜:𝑃𝑜𝑖𝑛𝑡𝑒𝑟)𝑜𝑓𝑜𝑏𝑗𝑒𝑐𝑡;首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐸𝑛𝑢𝑚𝑅𝑒𝑠𝑜𝑢𝑟𝑐𝑒𝑀𝑜𝑑𝑢𝑙𝑒𝑠(𝐹𝑢𝑛𝑐:𝑇𝐸𝑛𝑢𝑚𝑀𝑜𝑑𝑢𝑙𝑒𝐹𝑢𝑛𝑐;𝐷𝑎𝑡𝑎:𝑃𝑜𝑖𝑛𝑡𝑒𝑟);[System
功能
说明 type TEnumModuleFunc = function (HInstance: Longint; Data: Pointer): Boolean;
首部 function Eof [ (var F: <File>) ]: Boolean; [System 功能 返回文件的结束状态值 说明 当F的文件指针到达文件尾时，Eof返回True，否则，返回False。若F是一文本文件，则Eof是在搜索到#26(Ctrl-Z)时返回True 。 首部 function Eoln [(var F: Text) ]: Boolean;[System 功能 返回文件的结束状态值 说明 当F的文件指针到达文件尾时，Eof返回True，否则，返回False。若F是一文本文件，则Eof是在搜索到#26(Ctrl-Z)时返回True 。 首部 function Eoln [(var F: Text) ]: Boolean;[System
功能 返回文本文件的行结束状态值
说明 当F的文件指针到达行尾或文件尾时，Eoln返回True，否则，返回False。行尾字符集为#13#10(Enter)。
首部 procedure Erase(var F: <File>); [System 功能 从磁盘目录中删除与F相联系的一外部文件。 说明 调用Erase前应先将文件F关闭。若对应外部文件不存在，则IOResult返回非0值。 ##{CloseFile(F);Erase(F);} 首部 function ExceptAddr: Pointer;[System 功能 从磁盘目录中删除与F相联系的一外部文件。 说明 调用Erase前应先将文件F关闭。若对应外部文件不存在，则IOResult返回非0值。 ##{CloseFile(F);Erase(F);} 首部 function ExceptAddr: Pointer;[SysUtils
功能 返回引起当前意外的地址。
说明
首部 function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer; Buffer: PChar; Size: Integer):
Integer; [SysUtils功能说明首部functionExceptObject:TObject;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐸𝑥𝑐𝑒𝑝𝑡𝑂𝑏𝑗𝑒𝑐𝑡:𝑇𝑂𝑏𝑗𝑒𝑐𝑡;[SysUtils
功能 返回当前意外的索引
说明
首部 procedure Exclude(var S: set of T;I:T); [System功能从集合中删除一部份元素。说明首部procedureExit;[𝑆𝑦𝑠𝑡𝑒𝑚功能从集合中删除一部份元素。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐸𝑥𝑖𝑡;[System
功能 退出当前的执行程序模块。
说明 若从主程序退出，则程序终止；若从函数、过程中退出，则程序从调用该模块处往下继续执行。若从嵌套的块中退出，则从外
部块中激活含Exit有块的下一语句开始执行。
首部 function Exp(X: Real): Real; [System功能返回参数X的指数值。说明e是自然对数底，值为2.7182818285。首部functionExpandFileName(constFileName:string):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数𝑋的指数值。说明𝑒是自然对数底，值为2.7182818285。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐸𝑥𝑝𝑎𝑛𝑑𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 返回包含绝对路径的字符串。
说明 如果字符串中没有路径名称则返回当前路径。
首部 function ExpandUNCFileName(const FileName: string): string; [SysUtils功能以UNC格式返回包含绝对路径的字符串。说明UNC格式:<servername>\<sharename>首部functionExtractFileDir(constFileName:string):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能以𝑈𝑁𝐶格式返回包含绝对路径的字符串。说明𝑈𝑁𝐶格式:<𝑠𝑒𝑟𝑣𝑒𝑟𝑛𝑎𝑚𝑒>\<𝑠ℎ𝑎𝑟𝑒𝑛𝑎𝑚𝑒>首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐸𝑥𝑡𝑟𝑎𝑐𝑡𝐹𝑖𝑙𝑒𝐷𝑖𝑟(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 返回驱动器和路径。
说明 ## ExtractFileDir(‘c:\pascal\zs.pas’) = ‘c:\pascal’;
首部 function ExtractFileDrive(const FileName: string): string; [SysUtils 功能 返回驱动器名称。 说明 如果字符串中不含驱动器名称则返回空串。 ## ExtractFileDrive(‘c:\pascal\zs.pas’) = ‘c:’; 首部 function ExtractFileExt(const FileName: string): string;[SysUtils 功能 返回驱动器名称。 说明 如果字符串中不含驱动器名称则返回空串。 ## ExtractFileDrive(‘c:\pascal\zs.pas’) = ‘c:’; 首部 function ExtractFileExt(const FileName: string): string;[SysUtils
功能 返回文件的扩展名。
说明 如果字符串中不含扩展名称则返回空串。 ## ExtractFileExt(‘c:\pascal\zs.pas’) = ‘.pas’;
首部 function ExtractFileName(const FileName: string): string; [SysUtils 功能 返回文件名。 说明 如果字符串中不含文件名称则返回空串。 ## ExtractFileName(‘c:\pascal\zs.pas’) = ‘zs.pas’; 首部 function ExtractFilePath(const FileName: string): string;[SysUtils 功能 返回文件名。 说明 如果字符串中不含文件名称则返回空串。 ## ExtractFileName(‘c:\pascal\zs.pas’) = ‘zs.pas’; 首部 function ExtractFilePath(const FileName: string): string;[SysUtils
功能 返回指定文件的路径。
说明 如果字符串中不含文件名称则返回空串。 ## ExtractFilePath(‘c:\pascal\zs.pas’) = ‘c:\pascal\’;
首部 function ExtractRelativePath(const BaseName, DestName: string): string; [SysUtils 功能 返回指定文件的路径。 说明 ##ExtractRelativePath(‘\c:\’,‘pascal\zs.pas’) = ‘..\zs.pas’; ExtractRelativePath(‘\c:\DelphiZS\’, ‘pascal\zs.pas’) = ‘..\..\zs.pas’; 首部 function ExtractShortPathName(const FileName: string): string;[SysUtils 功能 返回指定文件的路径。 说明 ##ExtractRelativePath(‘\c:\’,‘pascal\zs.pas’) = ‘..\zs.pas’; ExtractRelativePath(‘\c:\DelphiZS\’, ‘pascal\zs.pas’) = ‘..\..\zs.pas’; 首部 function ExtractShortPathName(const FileName: string): string;[SysUtils
功能 返回真实文件名的DOS的路径形式。
说明 ## ExtractShortPathName(‘C:\Program Files’) = ‘C:\PROGRA~1’
首部 function FileAge(const FileName: string): Integer; [SysUtils功能返回文件已存在的时间。说明首部procedureFileClose(Handle:Integer);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回文件已存在的时间。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐹𝑖𝑙𝑒𝐶𝑙𝑜𝑠𝑒(𝐻𝑎𝑛𝑑𝑙𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[SysUtils
功能 结束指定文件
说明
首部 function FileCreate(const FileName: string): Integer; [SysUtils功能创建新文件说明创建成功则返回正数首部functionFileDateToDateTime(FileDate:Integer):TdateTime;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能创建新文件说明创建成功则返回正数首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝐷𝑎𝑡𝑒𝑇𝑜𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒(𝐹𝑖𝑙𝑒𝐷𝑎𝑡𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑇𝑑𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 将dos的日期格式转换为delphi的日期格式。
说明
首部 function FileExists(const FileName: string): Boolean; [SysUtils功能返回文件是否存在。说明首部functionFileGetAttr(constFileName:string):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回文件是否存在。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝐺𝑒𝑡𝐴𝑡𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回文件的属性
说明
首部 function FileGetDate(Handle: Integer): Integer; [SysUtils功能返回文件的dos日期时间标记说明首部functionFileOpen(constFileName:string;Mode:Integer):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回文件的𝑑𝑜𝑠日期时间标记说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝑂𝑝𝑒𝑛(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝑀𝑜𝑑𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 用指定的存取模式打开文件
说明
首部 function FilePos(var F): Longint; [System功能返回F中文件指针当前位置的元素序号。说明重置一个文件后，FilePos总是返回0，这是所有文件第一个元素的序号。若文件指针当前位置在F的最末一个元素之后，即已达到文件尾，或者是个空文件，则此时的FilePos返回值等于FileSize(F)。函数FilePos的一个用途是可允许从文件指针当前位置搜索最后某一元素。首部functionFileRead(Handle:Integer;varBuffer;Count:Integer):Integer;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回𝐹中文件指针当前位置的元素序号。说明重置一个文件后，𝐹𝑖𝑙𝑒𝑃𝑜𝑠总是返回0，这是所有文件第一个元素的序号。若文件指针当前位置在𝐹的最末一个元素之后，即已达到文件尾，或者是个空文件，则此时的𝐹𝑖𝑙𝑒𝑃𝑜𝑠返回值等于𝐹𝑖𝑙𝑒𝑆𝑖𝑧𝑒(𝐹)。函数𝐹𝑖𝑙𝑒𝑃𝑜𝑠的一个用途是可允许从文件指针当前位置搜索最后某一元素。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝑅𝑒𝑎𝑑(𝐻𝑎𝑛𝑑𝑙𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑣𝑎𝑟𝐵𝑢𝑓𝑓𝑒𝑟;𝐶𝑜𝑢𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 从指定的文件读取
说明
首部 function FileSearch(const Name, DirList: string): string; [SysUtils功能在目录中搜索指定的文件说明首部functionFileSeek(Handle,Offset,Origin:Integer):Integer;overload;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能在目录中搜索指定的文件说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝑆𝑒𝑒𝑘(𝐻𝑎𝑛𝑑𝑙𝑒,𝑂𝑓𝑓𝑠𝑒𝑡,𝑂𝑟𝑖𝑔𝑖𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑜𝑣𝑒𝑟𝑙𝑜𝑎𝑑;[SysUtils
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload;
功能 fileseek 函数 改变文件的指针
说明
首部 function FileSetAttr(const FileName: string; Attr: Integer): Integer; [SysUtils功能设置文件属性说明首部functionFileSetDate(Handle:Integer;Age:Integer):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能设置文件属性说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝑆𝑒𝑡𝐷𝑎𝑡𝑒(𝐻𝑎𝑛𝑑𝑙𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝐴𝑔𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 设置文件的dos日期时间标记。
说明
首部 function FileSize(var F): Integer; [System功能返回文件F的当前长度，即元素个数。说明若F是空文件，则FileSize返回值0。使用FileSize可确定文件F有多少个元素。首部functionFileWrite(Handle:Integer;constBuffer;Count:Integer):Integer;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回文件𝐹的当前长度，即元素个数。说明若𝐹是空文件，则𝐹𝑖𝑙𝑒𝑆𝑖𝑧𝑒返回值0。使用𝐹𝑖𝑙𝑒𝑆𝑖𝑧𝑒可确定文件𝐹有多少个元素。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑙𝑒𝑊𝑟𝑖𝑡𝑒(𝐻𝑎𝑛𝑑𝑙𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑐𝑜𝑛𝑠𝑡𝐵𝑢𝑓𝑓𝑒𝑟;𝐶𝑜𝑢𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 对指定的文件做写操作
说明
首部 procedure FillChar(var X; Count: Integer; value: <Byte>); [System 功能 以Value的值填入变更X的前几Count个字节。 说明 ## var S: array[0..79] of char; begin { 将字符串数组S的元素全赋为空格 } FillChar(S, SizeOf(S), ' '); end; 首部 procedure Finalize( var V [; Count: Integer] );[System 功能 以Value的值填入变更X的前几Count个字节。 说明 ## var S: array[0..79] of char; begin { 将字符串数组S的元素全赋为空格 } FillChar(S, SizeOf(S), ' '); end; 首部 procedure Finalize( var V [; Count: Integer] );[System
功能 终止化变量。
说明
首部 procedure FinalizePackage(Module: HMODULE); [SysUtils功能说明首部functionFindAttrID(constAttrName:string):TAttrID;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝐴𝑡𝑡𝑟𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐴𝑡𝑡𝑟𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐴𝑡𝑡𝑟𝐼𝐷;[DRIntf
功能
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TAttrID = type TID;
首部 function FindClass(const ClassName: string): TPersistentClass; [classes功能根据名称查找持久性的类，并返回。说明首部functionFindClassHInstance(ClassType:TClass):Longint;[𝑐𝑙𝑎𝑠𝑠𝑒𝑠功能根据名称查找持久性的类，并返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝐶𝑙𝑎𝑠𝑠𝐻𝐼𝑛𝑠𝑡𝑎𝑛𝑐𝑒(𝐶𝑙𝑎𝑠𝑠𝑇𝑦𝑝𝑒:𝑇𝐶𝑙𝑎𝑠𝑠):𝐿𝑜𝑛𝑔𝑖𝑛𝑡;[system
功能 返回模块实例的句柄。
说明
首部 procedure FindClose(var F: TSearchRec); [SysUtils功能终止FindFirst/FindNext序列说明首部functionFindCmdLineSwitch(constSwitch:string;SwitchChars:TSysCharSet;IgnoreCase:Boolean):Boolean;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能终止𝐹𝑖𝑛𝑑𝐹𝑖𝑟𝑠𝑡/𝐹𝑖𝑛𝑑𝑁𝑒𝑥𝑡序列说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝐶𝑚𝑑𝐿𝑖𝑛𝑒𝑆𝑤𝑖𝑡𝑐ℎ(𝑐𝑜𝑛𝑠𝑡𝑆𝑤𝑖𝑡𝑐ℎ:𝑠𝑡𝑟𝑖𝑛𝑔;𝑆𝑤𝑖𝑡𝑐ℎ𝐶ℎ𝑎𝑟𝑠:𝑇𝑆𝑦𝑠𝐶ℎ𝑎𝑟𝑆𝑒𝑡;𝐼𝑔𝑛𝑜𝑟𝑒𝐶𝑎𝑠𝑒:𝐵𝑜𝑜𝑙𝑒𝑎𝑛):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[SysUtils
功能
说明 type TSysCharSet = set of Char;
首部 function FindControl(Handle: HWnd): TWinControl; [Controls功能说明首部functionFindDatabaseID(constDatabase:string):TDatabaseID;[𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒𝐼𝐷;[DRIntf
功能
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TDatabaseID = type TID;
首部 function FindDragTarget(const Pos: TPoint; AllowDisabled: Boolean): TControl; [Controls功能说明首部functionFindFieldID(constTable:TTableID;constField:string):TFieldID;[𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝐹𝑖𝑒𝑙𝑑𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝑇𝑎𝑏𝑙𝑒:𝑇𝑇𝑎𝑏𝑙𝑒𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷;[DRIntf
功能
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TTableID = type TID;
TFieldID = type TID;
首部 function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; [SysUtils功能对指定的文件名及属性搜索目录说明首部functionFindNext(varF:TSearchRec):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能对指定的文件名及属性搜索目录说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝑁𝑒𝑥𝑡(𝑣𝑎𝑟𝐹:𝑇𝑆𝑒𝑎𝑟𝑐ℎ𝑅𝑒𝑐):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回与文件名及属性匹配的下一入口
说明
首部 function FindResourceHInstance(Instance: LongWord): Longint; [system功能说明首部functionFindTableID(constDatabase:TDatabaseID;constTable:string):TTableID;[𝑠𝑦𝑠𝑡𝑒𝑚功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝑇𝑎𝑏𝑙𝑒𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒:𝑇𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝑇𝑎𝑏𝑙𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝑇𝑎𝑏𝑙𝑒𝐼𝐷;[DRIntf
功能
说明
首部 function FindVCLWindow(const Pos: TPoint): TWinControl; [Controls功能说明typeTPoint=recordX:Longint;Y:Longint;end;首部procedureFloatToDecimal(varDecVal:TFloatRec;constValue;ValueType:TFloatValue;Precision,Decimals:Integer);[𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝑠功能说明𝑡𝑦𝑝𝑒𝑇𝑃𝑜𝑖𝑛𝑡=𝑟𝑒𝑐𝑜𝑟𝑑𝑋:𝐿𝑜𝑛𝑔𝑖𝑛𝑡;𝑌:𝐿𝑜𝑛𝑔𝑖𝑛𝑡;𝑒𝑛𝑑;首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐹𝑙𝑜𝑎𝑡𝑇𝑜𝐷𝑒𝑐𝑖𝑚𝑎𝑙(𝑣𝑎𝑟𝐷𝑒𝑐𝑉𝑎𝑙:𝑇𝐹𝑙𝑜𝑎𝑡𝑅𝑒𝑐;𝑐𝑜𝑛𝑠𝑡𝑉𝑎𝑙𝑢𝑒;𝑉𝑎𝑙𝑢𝑒𝑇𝑦𝑝𝑒:𝑇𝐹𝑙𝑜𝑎𝑡𝑉𝑎𝑙𝑢𝑒;𝑃𝑟𝑒𝑐𝑖𝑠𝑖𝑜𝑛,𝐷𝑒𝑐𝑖𝑚𝑎𝑙𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[SysUtils
功能 将浮点数转换为十进制数
说明 type TFloatRec = record
Exponent: Smallint;
Negative: Boolean;
Digits: array[0..20] of Char;
end;
首部 function FloatToStr(Value: Extended): string; [SysUtils 功能 将浮点数转换为字符串 说明 ## FloatToStr(Pi) = ‘3.14159265358979’; FloatToStr(0.000000001) = ‘1E-9’; 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string;[SysUtils 功能 将浮点数转换为字符串 说明 ## FloatToStr(Pi) = ‘3.14159265358979’; FloatToStr(0.000000001) = ‘1E-9’; 首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string;[SysUtils
功能 将浮点数以指定格式转换为字符串。
说明 type TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);
首部 function FloatToText(Buffer: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision,
Digits: Integer): Integer; [SysUtils功能将给定的浮点数转换为十进制数。说明typeTFloatValue=(fvExtended,fvCurrency);首部functionFloatToTextFmt(Buffer:PChar;constValue;ValueType:TFloatValue;Format:PChar):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将给定的浮点数转换为十进制数。说明𝑡𝑦𝑝𝑒𝑇𝐹𝑙𝑜𝑎𝑡𝑉𝑎𝑙𝑢𝑒=(𝑓𝑣𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑,𝑓𝑣𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦);首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑙𝑜𝑎𝑡𝑇𝑜𝑇𝑒𝑥𝑡𝐹𝑚𝑡(𝐵𝑢𝑓𝑓𝑒𝑟:𝑃𝐶ℎ𝑎𝑟;𝑐𝑜𝑛𝑠𝑡𝑉𝑎𝑙𝑢𝑒;𝑉𝑎𝑙𝑢𝑒𝑇𝑦𝑝𝑒:𝑇𝐹𝑙𝑜𝑎𝑡𝑉𝑎𝑙𝑢𝑒;𝐹𝑜𝑟𝑚𝑎𝑡:𝑃𝐶ℎ𝑎𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 将给定的浮点数转换为十进制数
说明
首部 function Floor(X: Extended): Integer; [Math 功能 向后舍入取整。 说明 ##Floor(-2.8) = -3; Floor(2.8) = 2; Floor(-1.0) = -1 首部 procedure Flush(var F: Text);[Math 功能 向后舍入取整。 说明 ##Floor(-2.8) = -3; Floor(2.8) = 2; Floor(-1.0) = -1 首部 procedure Flush(var F: Text);[System
功能 将文本文件F在内存缓冲区中的信息写入磁盘。
说明 调用Flush是把暂存在内存缓冲区中的所有字符写入磁盘，而不管缓冲区是否已满。
首部 function FMTBCDToCurr(const BChttps://www.gofarlic.com FMTBcd; var Curr: Currency): Boolean; [DBCommon功能返回是否成功地将二进制BCD格式转换成浮点类型说明首部functionFmtLoadStr(Ident:Integer;constArgs:arrayofconst):string;[𝐷𝐵𝐶𝑜𝑚𝑚𝑜𝑛功能返回是否成功地将二进制𝐵𝐶𝐷格式转换成浮点类型说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑚𝑡𝐿𝑜𝑎𝑑𝑆𝑡𝑟(𝐼𝑑𝑒𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑐𝑜𝑛𝑠𝑡𝐴𝑟𝑔𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑐𝑜𝑛𝑠𝑡):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 从程序的资源字符串表中装载字符串
说明
首部 procedure FmtStr(var StrResult: string; const Format: string; const Args: array of const); [SysUtils功能格式化一系列的参数，其结果以参数StrResult返回说明首部functionFontToOleFont(Font:TFont):Variant;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能格式化一系列的参数，其结果以参数𝑆𝑡𝑟𝑅𝑒𝑠𝑢𝑙𝑡返回说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑜𝑛𝑡𝑇𝑜𝑂𝑙𝑒𝐹𝑜𝑛𝑡(𝐹𝑜𝑛𝑡:𝑇𝐹𝑜𝑛𝑡):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[OleCtrls
功能
说明
首部 procedure ForceDirectories(Dir: string); [FileCtrl功能创建一个完全路径。说明如果路径已存在则会引起异常。首部functionFormat(constFormat:string;constArgs:arrayofconst):string;[𝐹𝑖𝑙𝑒𝐶𝑡𝑟𝑙功能创建一个完全路径。说明如果路径已存在则会引起异常。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑜𝑟𝑚𝑎𝑡(𝑐𝑜𝑛𝑠𝑡𝐹𝑜𝑟𝑚𝑎𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝐴𝑟𝑔𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑐𝑜𝑛𝑠𝑡):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 格式化一系列的参数并返回pascal字符串
说明
首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const):
Cardinal; [SysUtils功能格式化一系列的参数说明首部functionFormatCurr(constFormat:string;Value:Currency):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能格式化一系列的参数说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑜𝑟𝑚𝑎𝑡𝐶𝑢𝑟𝑟(𝑐𝑜𝑛𝑠𝑡𝐹𝑜𝑟𝑚𝑎𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑉𝑎𝑙𝑢𝑒:𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将货币类型数值转换成指定格式返回。
说明
首部 function FormatDateTime(const Format: string; DateTime: TDateTime): string; [SysUtils 功能 用指定的格式来格式化日期和时间 说明 c d(1-31) dd(01-31) ddd(Sun-Sat) dddd(Sunday-Saturday) ddddd dddddd m(1-12) mm(01-12) mmm(Jan-Dec) mmmm(January-December) yy(00-99) yyyy(0000-9999) h(0-23) hh(00-23) n(0-59) nn(0-59) s(0-59) ss(00-59) t tt am/pm a/p ampm / : 'xx'/"xx" ## FormatDateTime('"The meeting is on" dddd, mmmm d, yyyy, ' + '"at" hh:mm AM/PM', StrToDateTime('2/15/95 10:30am')); ## = 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' 首部 function FormatFloat(const Format: string; Value: Extended): string;[SysUtils 功能 用指定的格式来格式化日期和时间 说明 c d(1-31) dd(01-31) ddd(Sun-Sat) dddd(Sunday-Saturday) ddddd dddddd m(1-12) mm(01-12) mmm(Jan-Dec) mmmm(January-December) yy(00-99) yyyy(0000-9999) h(0-23) hh(00-23) n(0-59) nn(0-59) s(0-59) ss(00-59) t tt am/pm a/p ampm / : 'xx'/"xx" ## FormatDateTime('"The meeting is on" dddd, mmmm d, yyyy, ' + '"at" hh:mm AM/PM', StrToDateTime('2/15/95 10:30am')); ## = 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' 首部 function FormatFloat(const Format: string; Value: Extended): string;[SysUtils
功能 指定浮点数格式。
说明
首部 function FormatMaskText(const EditMask: string; const Value: string): string; [Mask功能返回指定格式的字符串。说明首部functionFrac(X:Extended):Extended;[𝑀𝑎𝑠𝑘功能返回指定格式的字符串。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑟𝑎𝑐(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[System
功能 返回参数X的小数部分。
说明 ##Frac(X) = X - Int(X)。
首部 procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer); [extctrls功能在上Canvas画一个立体矩形。说明Rect指定范围，TopColor和BottomColor分别指定顶色和低色，Width指定边宽。首部procedureFreeMem(varP:Pointer[;Size:Integer]);[𝑒𝑥𝑡𝑐𝑡𝑟𝑙𝑠功能在上𝐶𝑎𝑛𝑣𝑎𝑠画一个立体矩形。说明𝑅𝑒𝑐𝑡指定范围，𝑇𝑜𝑝𝐶𝑜𝑙𝑜𝑟和𝐵𝑜𝑡𝑡𝑜𝑚𝐶𝑜𝑙𝑜𝑟分别指定顶色和低色，𝑊𝑖𝑑𝑡ℎ指定边宽。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐹𝑟𝑒𝑒𝑀𝑒𝑚(𝑣𝑎𝑟𝑃:𝑃𝑜𝑖𝑛𝑡𝑒𝑟[;𝑆𝑖𝑧𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟]);[System
功能 按给定大小释放动态变量所占的空间。
说明 所释放的Size字节堆内存必须是先由GetMem分配的。
首部 procedure Frexp(X: Extended; var Mantissa: Extended; var Exponent: Integer) register; [Math功能说明首部functionFutureValue(Rate:Extended;NPeriods:Integer;Payment,PresentValue:Extended;PaymentTime:TPaymentTime):Extended;[𝑀𝑎𝑡ℎ功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑢𝑡𝑢𝑟𝑒𝑉𝑎𝑙𝑢𝑒(𝑅𝑎𝑡𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑁𝑃𝑒𝑟𝑖𝑜𝑑𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑃𝑎𝑦𝑚𝑒𝑛𝑡,𝑃𝑟𝑒𝑠𝑒𝑛𝑡𝑉𝑎𝑙𝑢𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒:𝑇𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能
说明
首部 function GetActiveOleObject(const ClassName: string): IDispatch; [ComObj功能说明首部functionGetAttrID(constFieldID:TFieldID):TAttrID;[𝐶𝑜𝑚𝑂𝑏𝑗功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐴𝑡𝑡𝑟𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐼𝐷:𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷):𝑇𝐴𝑡𝑡𝑟𝐼𝐷;[DRIntf
功能
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TFieldID = type TID;
TAttrID = type TID;
首部 function GetAttrName(const AttrIhttps://www.gofarlic.com TAttrID): string; [DRIntf功能说明首部procedureGetAttrNames(Proc:TGetStrProc):string;[𝐷𝑅𝐼𝑛𝑡𝑓功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐴𝑡𝑡𝑟𝑁𝑎𝑚𝑒𝑠(𝑃𝑟𝑜𝑐:𝑇𝐺𝑒𝑡𝑆𝑡𝑟𝑃𝑟𝑜𝑐):𝑠𝑡𝑟𝑖𝑛𝑔;[DRIntf
功能
说明 type TGetStrProc = procedure(const S: string) of Object;
首部 function GetCaptureControl: TControl; [Controls功能说明首部procedureGetCharsetValues(Proc:TGetStrProc);[𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐶ℎ𝑎𝑟𝑠𝑒𝑡𝑉𝑎𝑙𝑢𝑒𝑠(𝑃𝑟𝑜𝑐:𝑇𝐺𝑒𝑡𝑆𝑡𝑟𝑃𝑟𝑜𝑐);[Graphics
功能
说明 type TGetStrProc = procedure(const S: string) of Object;
首部 function GetClass(const ClassName: string): TPersistentClass; [Classes功能说明首部procedureGetColorValues(Proc:TGetStrProc);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐶𝑜𝑙𝑜𝑟𝑉𝑎𝑙𝑢𝑒𝑠(𝑃𝑟𝑜𝑐:𝑇𝐺𝑒𝑡𝑆𝑡𝑟𝑃𝑟𝑜𝑐);[Graphics
功能
说明
首部 function GetComCtlVersion: Integer; [ComCtrls功能说明首部functionGetControlClass(constAttrID:TAttrID):string;[𝐶𝑜𝑚𝐶𝑡𝑟𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝐶𝑙𝑎𝑠𝑠(𝑐𝑜𝑛𝑠𝑡𝐴𝑡𝑡𝑟𝐼𝐷:𝑇𝐴𝑡𝑡𝑟𝐼𝐷):𝑠𝑡𝑟𝑖𝑛𝑔;[ DRIntf
功能
说明
首部 function GetCurrentDir: string; [SysUtils功能返回当前路径说明首部procedureGetCursorValues(Proc:TGetStrProc);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回当前路径说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐶𝑢𝑟𝑠𝑜𝑟𝑉𝑎𝑙𝑢𝑒𝑠(𝑃𝑟𝑜𝑐:𝑇𝐺𝑒𝑡𝑆𝑡𝑟𝑃𝑟𝑜𝑐);[controls
功能
说明
首部 function GetDefFontCharSet: TFontCharSet; [Graphics功能说明typeTFontCharset=0..255;首部functionGetDIB(Bitmap:HBITMAP;Palette:HPALETTE;varBitmapInfo;varBits):Boolean;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能说明𝑡𝑦𝑝𝑒𝑇𝐹𝑜𝑛𝑡𝐶ℎ𝑎𝑟𝑠𝑒𝑡=0..255;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐷𝐼𝐵(𝐵𝑖𝑡𝑚𝑎𝑝:𝐻𝐵𝐼𝑇𝑀𝐴𝑃;𝑃𝑎𝑙𝑒𝑡𝑡𝑒:𝐻𝑃𝐴𝐿𝐸𝑇𝑇𝐸;𝑣𝑎𝑟𝐵𝑖𝑡𝑚𝑎𝑝𝐼𝑛𝑓𝑜;𝑣𝑎𝑟𝐵𝑖𝑡𝑠):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Graphics
功能
说明
首部 procedure GetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: DWord; var ImageSize: DWORD); [Graphics功能说明首部procedureGetDir(Drive:Byte;varPath:string);[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐷𝑖𝑟(𝐷𝑟𝑖𝑣𝑒:𝐵𝑦𝑡𝑒;𝑣𝑎𝑟𝑃𝑎𝑡ℎ:𝑠𝑡𝑟𝑖𝑛𝑔);[System
功能 将指定驱动器Driver的当前路径返回至字符串Path中。
说明 Drive为0表示当前驱动器，1表示当A驱动器，2为表示B驱动器等等。当系统没有找到所设驱动器时则默认为当前驱动器返回。
首部 function GetExtensionVersion(var Ver: THSE_VERSION_INFO): BOOL; [ISAPIApp功能说明typeTHSEVERSIONINFO=packedrecorddwExtensionVersion:DWORD;lpszExtensionDesc:array[0..HSEMAXEXTDLLNAMELEN−1]ofChar;end;首部procedureGetFormatSettings;[𝐼𝑆𝐴𝑃𝐼𝐴𝑝𝑝功能说明𝑡𝑦𝑝𝑒𝑇𝐻𝑆𝐸𝑉𝐸𝑅𝑆𝐼𝑂𝑁𝐼𝑁𝐹𝑂=𝑝𝑎𝑐𝑘𝑒𝑑𝑟𝑒𝑐𝑜𝑟𝑑𝑑𝑤𝐸𝑥𝑡𝑒𝑛𝑠𝑖𝑜𝑛𝑉𝑒𝑟𝑠𝑖𝑜𝑛:𝐷𝑊𝑂𝑅𝐷;𝑙𝑝𝑠𝑧𝐸𝑥𝑡𝑒𝑛𝑠𝑖𝑜𝑛𝐷𝑒𝑠𝑐:𝑎𝑟𝑟𝑎𝑦[0..𝐻𝑆𝐸𝑀𝐴𝑋𝐸𝑋𝑇𝐷𝐿𝐿𝑁𝐴𝑀𝐸𝐿𝐸𝑁−1]𝑜𝑓𝐶ℎ𝑎𝑟;𝑒𝑛𝑑;首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝐹𝑜𝑟𝑚𝑎𝑡𝑆𝑒𝑡𝑡𝑖𝑛𝑔𝑠;[SysUtils
功能 重新调整数字和日期参数的格式。
说明 调整为系统默认值。
首部 function GetHeapStatus: THeapStatus; [SystemorShareMem功能返回内存管理器的当前状态说明typeTHeapStatus=recordTotalAddrSpace:Cardinal;TotalUncommitted:Cardinal;TotalCommitted:Cardinal;TotalAllocated:Cardinal;TotalFree:Cardinal;FreeSmall:Cardinal;FreeBig:Cardinal;Unused:Cardinal;Overhead:Cardinal;HeapErrorCode:Cardinal;end;首部functionGetLongHint(constHint:string):string;[𝑆𝑦𝑠𝑡𝑒𝑚𝑜𝑟𝑆ℎ𝑎𝑟𝑒𝑀𝑒𝑚功能返回内存管理器的当前状态说明𝑡𝑦𝑝𝑒𝑇𝐻𝑒𝑎𝑝𝑆𝑡𝑎𝑡𝑢𝑠=𝑟𝑒𝑐𝑜𝑟𝑑𝑇𝑜𝑡𝑎𝑙𝐴𝑑𝑑𝑟𝑆𝑝𝑎𝑐𝑒:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑇𝑜𝑡𝑎𝑙𝑈𝑛𝑐𝑜𝑚𝑚𝑖𝑡𝑡𝑒𝑑:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑇𝑜𝑡𝑎𝑙𝐶𝑜𝑚𝑚𝑖𝑡𝑡𝑒𝑑:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑇𝑜𝑡𝑎𝑙𝐴𝑙𝑙𝑜𝑐𝑎𝑡𝑒𝑑:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑇𝑜𝑡𝑎𝑙𝐹𝑟𝑒𝑒:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝐹𝑟𝑒𝑒𝑆𝑚𝑎𝑙𝑙:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝐹𝑟𝑒𝑒𝐵𝑖𝑔:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑈𝑛𝑢𝑠𝑒𝑑:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑂𝑣𝑒𝑟ℎ𝑒𝑎𝑑:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝐻𝑒𝑎𝑝𝐸𝑟𝑟𝑜𝑟𝐶𝑜𝑑𝑒:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;𝑒𝑛𝑑;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐿𝑜𝑛𝑔𝐻𝑖𝑛𝑡(𝑐𝑜𝑛𝑠𝑡𝐻𝑖𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[Controls
功能 返回长型提示。
说明
首部 procedure GetMem(var P: <Pointer>; Size: Integer); [System功能建立一指定大小为Size的动态变量，并将指针P指向该处。说明GetMem类似于New，只是它需要说明要保留的字节数。调用FreeMem可释放GetMem保留在堆内存中的那些字节。首部procedureGetMemoryManager(varMemMgr:TMemoryManager);[𝑆𝑦𝑠𝑡𝑒𝑚功能建立一指定大小为𝑆𝑖𝑧𝑒的动态变量，并将指针𝑃指向该处。说明𝐺𝑒𝑡𝑀𝑒𝑚类似于𝑁𝑒𝑤，只是它需要说明要保留的字节数。调用𝐹𝑟𝑒𝑒𝑀𝑒𝑚可释放𝐺𝑒𝑡𝑀𝑒𝑚保留在堆内存中的那些字节。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝑀𝑒𝑚𝑜𝑟𝑦𝑀𝑎𝑛𝑎𝑔𝑒𝑟(𝑣𝑎𝑟𝑀𝑒𝑚𝑀𝑔𝑟:𝑇𝑀𝑒𝑚𝑜𝑟𝑦𝑀𝑎𝑛𝑎𝑔𝑒𝑟);[System
功能 以MemMgr返回内存管理器的入口点。
说明
首部 procedure GetOleFont(Font: TFont; var OleFont: IFontDisp); [AXCtrls功能说明首部procedureGetOlePicture(Picture:TPicture;varOlePicture:IPicture);[𝐴𝑋𝐶𝑡𝑟𝑙𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝑂𝑙𝑒𝑃𝑖𝑐𝑡𝑢𝑟𝑒(𝑃𝑖𝑐𝑡𝑢𝑟𝑒:𝑇𝑃𝑖𝑐𝑡𝑢𝑟𝑒;𝑣𝑎𝑟𝑂𝑙𝑒𝑃𝑖𝑐𝑡𝑢𝑟𝑒:𝐼𝑃𝑖𝑐𝑡𝑢𝑟𝑒);[AXCtrls
功能
说明
首部 procedure GetOleStrings(Strings: TStrings; var OleStrings: IStrings); [AXCtrls功能说明首部functionGetPackageDescription(ModuleName:PChar):string;[𝐴𝑋𝐶𝑡𝑟𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝑃𝑎𝑐𝑘𝑎𝑔𝑒𝐷𝑒𝑠𝑐𝑟𝑖𝑝𝑡𝑖𝑜𝑛(𝑀𝑜𝑑𝑢𝑙𝑒𝑁𝑎𝑚𝑒:𝑃𝐶ℎ𝑎𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能
说明
首部 procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc);
[SysUtils功能说明首部functionGetParentForm(Control:TControl):TCustomForm;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝑃𝑎𝑟𝑒𝑛𝑡𝐹𝑜𝑟𝑚(𝐶𝑜𝑛𝑡𝑟𝑜𝑙:𝑇𝐶𝑜𝑛𝑡𝑟𝑜𝑙):𝑇𝐶𝑢𝑠𝑡𝑜𝑚𝐹𝑜𝑟𝑚;[Forms
功能
说明
首部 function GetShortHint(const Hint: string): string; [Controls功能说明首部functionGradToRad(Grads:Extended):Extended;[𝐶𝑜𝑛𝑡𝑟𝑜𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑟𝑎𝑑𝑇𝑜𝑅𝑎𝑑(𝐺𝑟𝑎𝑑𝑠:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 将参数Grads转换成弧度返回。
说明 radians = grads(pi/200)。
首部 function GraphicExtension(GraphicClass: TGraphicClass): string; [Graphics功能返回图象的扩展名。说明GraphicclassFileextensionreturnedTbitmap|bmpTicon|icoTmetafile|emfTJPEGImage|jpg首部functionGraphicFilter(GraphicClass:TGraphicClass):string;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能返回图象的扩展名。说明𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑐𝑙𝑎𝑠𝑠𝐹𝑖𝑙𝑒𝑒𝑥𝑡𝑒𝑛𝑠𝑖𝑜𝑛𝑟𝑒𝑡𝑢𝑟𝑛𝑒𝑑𝑇𝑏𝑖𝑡𝑚𝑎𝑝|𝑏𝑚𝑝𝑇𝑖𝑐𝑜𝑛|𝑖𝑐𝑜𝑇𝑚𝑒𝑡𝑎𝑓𝑖𝑙𝑒|𝑒𝑚𝑓𝑇𝐽𝑃𝐸𝐺𝐼𝑚𝑎𝑔𝑒|𝑗𝑝𝑔首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝐹𝑖𝑙𝑡𝑒𝑟(𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝐶𝑙𝑎𝑠𝑠:𝑇𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝐶𝑙𝑎𝑠𝑠):𝑠𝑡𝑟𝑖𝑛𝑔;[Graphics
功能
说明 Graphic class Filter string returned
Tbitmap | *.bmp
TIcon | *.ico
Tmetafile | *.emf;*.wmf
TJPEGImage | *.jpeg;*.jpg
TGraphic | *.jpeg;*.jpg;*.bmp;*.ico;*.emf;*.wmf
首部 function GraphicFileMask(GraphicClass: TGraphicClass): string; [Graphics功能说明GraphicclassFilterstringreturnedTbitmap|Bitmaps(∗.bmp)／∗.bmpTicon|Icons(∗.ico)／∗.icoTmetafile|All(∗.emf;∗.wmf)／∗.emf;∗.wmf／EnhancedMetafiles(∗.emf)／∗.emf／Metafiles(∗.wmf)／∗.wmfTJPEGImage|All(∗.jpeg;∗.jpg)／∗.jpeg;∗.jpg／JPEGImageFile(∗.jpeg)／∗.jpeg／JPEGImageFile(∗.jpg)／∗.jpgTGraphic|以上全部首部functionGUIDToString(constClassID:TGUID):string;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能说明𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑐𝑙𝑎𝑠𝑠𝐹𝑖𝑙𝑡𝑒𝑟𝑠𝑡𝑟𝑖𝑛𝑔𝑟𝑒𝑡𝑢𝑟𝑛𝑒𝑑𝑇𝑏𝑖𝑡𝑚𝑎𝑝|𝐵𝑖𝑡𝑚𝑎𝑝𝑠(∗.𝑏𝑚𝑝)／∗.𝑏𝑚𝑝𝑇𝑖𝑐𝑜𝑛|𝐼𝑐𝑜𝑛𝑠(∗.𝑖𝑐𝑜)／∗.𝑖𝑐𝑜𝑇𝑚𝑒𝑡𝑎𝑓𝑖𝑙𝑒|𝐴𝑙𝑙(∗.𝑒𝑚𝑓;∗.𝑤𝑚𝑓)／∗.𝑒𝑚𝑓;∗.𝑤𝑚𝑓／𝐸𝑛ℎ𝑎𝑛𝑐𝑒𝑑𝑀𝑒𝑡𝑎𝑓𝑖𝑙𝑒𝑠(∗.𝑒𝑚𝑓)／∗.𝑒𝑚𝑓／𝑀𝑒𝑡𝑎𝑓𝑖𝑙𝑒𝑠(∗.𝑤𝑚𝑓)／∗.𝑤𝑚𝑓𝑇𝐽𝑃𝐸𝐺𝐼𝑚𝑎𝑔𝑒|𝐴𝑙𝑙(∗.𝑗𝑝𝑒𝑔;∗.𝑗𝑝𝑔)／∗.𝑗𝑝𝑒𝑔;∗.𝑗𝑝𝑔／𝐽𝑃𝐸𝐺𝐼𝑚𝑎𝑔𝑒𝐹𝑖𝑙𝑒(∗.𝑗𝑝𝑒𝑔)／∗.𝑗𝑝𝑒𝑔／𝐽𝑃𝐸𝐺𝐼𝑚𝑎𝑔𝑒𝐹𝑖𝑙𝑒(∗.𝑗𝑝𝑔)／∗.𝑗𝑝𝑔𝑇𝐺𝑟𝑎𝑝ℎ𝑖𝑐|以上全部首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑈𝐼𝐷𝑇𝑜𝑆𝑡𝑟𝑖𝑛𝑔(𝑐𝑜𝑛𝑠𝑡𝐶𝑙𝑎𝑠𝑠𝐼𝐷:𝑇𝐺𝑈𝐼𝐷):𝑠𝑡𝑟𝑖𝑛𝑔;[ComObj
功能
说明
首部 procedure Halt [ ( Exitcode: Integer) ]; [System功能立即终止程序的执行，返回操作系统。说明有两种形式调用Halt。第一种是无参数，第二种是有参数，为传送一个Integer的类型出口码。不带参数的Halt相当于Halt(0)。首部functionHasConstraints(Dataset:TDBDataset):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能立即终止程序的执行，返回操作系统。说明有两种形式调用𝐻𝑎𝑙𝑡。第一种是无参数，第二种是有参数，为传送一个𝐼𝑛𝑡𝑒𝑔𝑒𝑟的类型出口码。不带参数的𝐻𝑎𝑙𝑡相当于𝐻𝑎𝑙𝑡(0)。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐻𝑎𝑠𝐶𝑜𝑛𝑠𝑡𝑟𝑎𝑖𝑛𝑡𝑠(𝐷𝑎𝑡𝑎𝑠𝑒𝑡:𝑇𝐷𝐵𝐷𝑎𝑡𝑎𝑠𝑒𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[DRIntf
功能
说明
首部 function Hi(X: <Integer>): Byte; [System 功能 返回参数X的高位字节。 说明 函数Hi把X看作一个无符号数组，返回其市位字节。 ##Hi([System 功能 返回参数X的高位字节。 说明 函数Hi把X看作一个无符号数组，返回其市位字节。 ##Hi(1234) = 12首部functionHigh(X);12首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐻𝑖𝑔ℎ(𝑋);[System
功能 返回参数的上限值。
说明 利用High可以知道某个数组或集合中有多少个元素。
##const a: array[1..4] of integer = (8, 12, 3, -6); var I: Integer ; begin i := High(a); end; {i = 4}
首部 function HtmlTable(DataSet: TDataSet; DataSetHandler: TDSTableProducer;MaxRows: Integer): string; [DBWeb功能说明首部functionHttpExtensionProc(varECB:TEXTENSIONCONTROLBLOCK):DWORD;[𝐷𝐵𝑊𝑒𝑏功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐻𝑡𝑡𝑝𝐸𝑥𝑡𝑒𝑛𝑠𝑖𝑜𝑛𝑃𝑟𝑜𝑐(𝑣𝑎𝑟𝐸𝐶𝐵:𝑇𝐸𝑋𝑇𝐸𝑁𝑆𝐼𝑂𝑁𝐶𝑂𝑁𝑇𝑅𝑂𝐿𝐵𝐿𝑂𝐶𝐾):𝐷𝑊𝑂𝑅𝐷;[ISAPIApp
功能
说明 type DWORD = Longword;
type
TEXTENSION_CONTROL_BLOCK = packed record
cbSize: DWORD; // size of this struct.
dwVersion: DWORD; // version info of this spec
ConnIhttps://www.gofarlic.com HCONN; // Context number not to be modified!
dwHttpStatusCode: DWORD; // HTTP Status code
lpszLogData: array [0..HSE_LOG_BUFFER_LEN-1] of Char; // DLL specific log information
lpszMethod: PChar; // REQUEST_METHOD
lpszQueryString: PChar; // QUERY_STRING
lpszPathInfo: PChar; // PATH_INFO
lpszPathTranslated: PChar; // PATH_TRANSLATED
cbTotalBytes: DWORD; // Total bytes indicated from client
cbAvailable: DWORD; // Available number of bytes
lpbData: Pointer; // pointer to cbAvailable bytes
lpszContentType: PChar; // Content type of client data
GetServerVariable: TGetServerVariableProc;
WriteClient: TWriteClientProc;
ReadClient: TReadClientProc;
ServerSupportFunction: TServerSupportFunctionProc;
end;
PEXTENSION_CONTROL_BLOCK = ^TEXTENSION_CONTROL_BLOCK;
首部 function Hypot(X, Y: Extended): Extended; [Math功能以X和Y为直角三角形的两条直边，返回其斜边长。说明Sqrt(X∗∗2+Y∗∗2)。首部functionIdentToCharset(constIdent:string;varCharset:Longint):Boolean;[𝑀𝑎𝑡ℎ功能以𝑋和𝑌为直角三角形的两条直边，返回其斜边长。说明𝑆𝑞𝑟𝑡(𝑋∗∗2+𝑌∗∗2)。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑑𝑒𝑛𝑡𝑇𝑜𝐶ℎ𝑎𝑟𝑠𝑒𝑡(𝑐𝑜𝑛𝑠𝑡𝐼𝑑𝑒𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐶ℎ𝑎𝑟𝑠𝑒𝑡:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Graphics
功能 返回将名称转换成字符集是否成功。
说明
首部 function IdentToColor(const Ident: string; var Color: Longint): Boolean; [Graphics功能返回将名称转换成颜色是否成功。说明首部functionIdentToCursor(constIdent:string;varCursor:Longint):Boolean;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能返回将名称转换成颜色是否成功。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑑𝑒𝑛𝑡𝑇𝑜𝐶𝑢𝑟𝑠𝑜𝑟(𝑐𝑜𝑛𝑠𝑡𝐼𝑑𝑒𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐶𝑢𝑟𝑠𝑜𝑟:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[controls
功能 返回将名称转换成鼠标指针是否成功。
说明
首部 procedure Inc(var X [ ; N: Longint ] ); [System功能取有序变量X的第N个后继。相当于fori:=1toNdoX:=Succ(X);说明当不带参数N时，则N默认为1。用Inc比用与之等价的赋值语句执行得快。首部procedureInclude(varS:setofT;I:T);[𝑆𝑦𝑠𝑡𝑒𝑚功能取有序变量𝑋的第𝑁个后继。相当于𝑓𝑜𝑟𝑖:=1𝑡𝑜𝑁𝑑𝑜𝑋:=𝑆𝑢𝑐𝑐(𝑋);说明当不带参数𝑁时，则𝑁默认为1。用𝐼𝑛𝑐比用与之等价的赋值语句执行得快。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐼𝑛𝑐𝑙𝑢𝑑𝑒(𝑣𝑎𝑟𝑆:𝑠𝑒𝑡𝑜𝑓𝑇;𝐼:𝑇);[System
功能 将新的元素I, 添加到集合S中。{等价于S := S + [I]}
说明 用Include比用与之等价的赋值语句执行得快。
首部 function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime; [SysUtils功能返回delphi的日期时间类型参数Date向后NumberOfMonths个月的值。说明首部functionInitCommonControl(CC:Integer):Boolean;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回𝑑𝑒𝑙𝑝ℎ𝑖的日期时间类型参数𝐷𝑎𝑡𝑒向后𝑁𝑢𝑚𝑏𝑒𝑟𝑂𝑓𝑀𝑜𝑛𝑡ℎ𝑠个月的值。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑖𝑡𝐶𝑜𝑚𝑚𝑜𝑛𝐶𝑜𝑛𝑡𝑟𝑜𝑙(𝐶𝐶:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[ComCtrls
功能
说明
首部 procedure Initialize(var V [ ; Count: Integer ] ); [System功能初始化变量。说明首部procedureInitializePackage(Module:HMODULE);[𝑆𝑦𝑠𝑡𝑒𝑚功能初始化变量。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐼𝑛𝑖𝑡𝑖𝑎𝑙𝑖𝑧𝑒𝑃𝑎𝑐𝑘𝑎𝑔𝑒(𝑀𝑜𝑑𝑢𝑙𝑒:𝐻𝑀𝑂𝐷𝑈𝐿𝐸);[SysUtils
功能
说明
首部 function InputBox(const ACaption, APrompt, ADefault: string): string; [Dialogs功能返回用户在输入框中输入的字符串。说明Acaption表示标题，APrompt表示提示，ADefault表示默认值。首部functionInputQuery(constACaption,APrompt:string;varValue:string):Boolean;[𝐷𝑖𝑎𝑙𝑜𝑔𝑠功能返回用户在输入框中输入的字符串。说明𝐴𝑐𝑎𝑝𝑡𝑖𝑜𝑛表示标题，𝐴𝑃𝑟𝑜𝑚𝑝𝑡表示提示，𝐴𝐷𝑒𝑓𝑎𝑢𝑙𝑡表示默认值。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑝𝑢𝑡𝑄𝑢𝑒𝑟𝑦(𝑐𝑜𝑛𝑠𝑡𝐴𝐶𝑎𝑝𝑡𝑖𝑜𝑛,𝐴𝑃𝑟𝑜𝑚𝑝𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝑉𝑎𝑙𝑢𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Dialogs
功能
说明
首部 procedure Insert(Source: string; var S: string; Index: Integer); [System 功能 以Index为起始位置处,将字符串Source插入到字符串S中。 说明 ##S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } end; 首部 function Int(X: Extended): Extended;[System 功能 以Index为起始位置处,将字符串Source插入到字符串S中。 说明 ##S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } end; 首部 function Int(X: Extended): Extended;[System
功能 返回参数X的整数部分。{即：返回[X]}
说明 ##Int(123.456) = 123.0; Int(-123.456) = -123.0
首部 function InterestPayment(Rate: Extended; Period, NPeriods: Integer; PresentValue, FutureValue: Extended;
PaymentTime: TPaymentTime): Extended; [Math功能说明首部functionInterestRate(NPeriods:Integer;Payment,PresentValue,FutureValue:Extended;PaymentTime:TPaymentTime):Extended;[𝑀𝑎𝑡ℎ功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑡𝑒𝑟𝑒𝑠𝑡𝑅𝑎𝑡𝑒(𝑁𝑃𝑒𝑟𝑖𝑜𝑑𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑃𝑎𝑦𝑚𝑒𝑛𝑡,𝑃𝑟𝑒𝑠𝑒𝑛𝑡𝑉𝑎𝑙𝑢𝑒,𝐹𝑢𝑡𝑢𝑟𝑒𝑉𝑎𝑙𝑢𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒:𝑇𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能
说明
首部 procedure InterfaceConnect(const Source: IUnknown; const IIhttps://www.gofarlic.com TIID; const Sink: IUnknown; var Connection:
Longint); [ComObj功能说明首部procedureInterfaceDisconnect(constSource:IUnknown;constIID:TIID;[𝐶𝑜𝑚𝑂𝑏𝑗功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐼𝑛𝑡𝑒𝑟𝑓𝑎𝑐𝑒𝐷𝑖𝑠𝑐𝑜𝑛𝑛𝑒𝑐𝑡(𝑐𝑜𝑛𝑠𝑡𝑆𝑜𝑢𝑟𝑐𝑒:𝐼𝑈𝑛𝑘𝑛𝑜𝑤𝑛;𝑐𝑜𝑛𝑠𝑡𝐼𝐼𝐷:𝑇𝐼𝐼𝐷;[ComObj
功能
说明
首部 function InternalRateOfReturn(Guess: Extended; const CashFlows: array of Double): Extended; [Math功能说明首部functionIntPower(Base:Extended;Exponent:Integer):Extendedregister;[𝑀𝑎𝑡ℎ功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑡𝑃𝑜𝑤𝑒𝑟(𝐵𝑎𝑠𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝐸𝑥𝑝𝑜𝑛𝑒𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑𝑟𝑒𝑔𝑖𝑠𝑡𝑒𝑟;[Math
功能 返回幂指函数的值。
说明 Result = Base^Exponent
首部 function IntToHex(Value: Integer; Digits: Integer): string; [SysUtilsfunctionIntToHex(Value:Int64;Digits:Integer):string;overload;功能将整型数转换为十六进制数返回。说明首部functionIntToStr(Value:Integer):string;overload;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑡𝑇𝑜𝐻𝑒𝑥(𝑉𝑎𝑙𝑢𝑒:𝐼𝑛𝑡64;𝐷𝑖𝑔𝑖𝑡𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;𝑜𝑣𝑒𝑟𝑙𝑜𝑎𝑑;功能将整型数转换为十六进制数返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑛𝑡𝑇𝑜𝑆𝑡𝑟(𝑉𝑎𝑙𝑢𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;𝑜𝑣𝑒𝑟𝑙𝑜𝑎𝑑;[SysUtils
function IntToStr(Value: Int64): string; overload;
功能 将整型数转换为字符串返回。
说明
首部 function IOResult: Integer; [System功能返回最新的I/O操作完成状态。说明如果编译开关$I的状态是$I+，则IOResult不为0时表示I/O操作出现非法操作。首部functionIsAccel(VK:Word;constStr:string):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回最新的𝐼/𝑂操作完成状态。说明如果编译开关$𝐼的状态是$𝐼+，则𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡不为0时表示𝐼/𝑂操作出现非法操作。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑠𝐴𝑐𝑐𝑒𝑙(𝑉𝐾:𝑊𝑜𝑟𝑑;𝑐𝑜𝑛𝑠𝑡𝑆𝑡𝑟:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Forms
功能
说明
首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; [SysUtils功能说明首部functionIsDragObject(Sender:TObject):Boolean;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑠𝐷𝑟𝑎𝑔𝑂𝑏𝑗𝑒𝑐𝑡(𝑆𝑒𝑛𝑑𝑒𝑟:𝑇𝑂𝑏𝑗𝑒𝑐𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Controls
功能
说明
首部 function IsLeapYear(Year: Word): Boolean; [SysUtils功能返回参数Year是否为闰年。说明首部functionIsNullID(constID):Boolean;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回参数𝑌𝑒𝑎𝑟是否为闰年。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑠𝑁𝑢𝑙𝑙𝐼𝐷(𝑐𝑜𝑛𝑠𝑡𝐼𝐷):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[DRIntf
功能 是否是一个没有定义的标识。
说明
首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; [SysUtils 功能 返回参数S的第Index个位置是否为反斜杆。 说明 ##IsPathDelimiter(‘c:\pascal\zs.pas’,3) = True; IsPathDelimiter(‘c:\pascal\zs.pas’,2) = False; 首部 function IsValidIdent(const Ident: string): Boolean;[SysUtils 功能 返回参数S的第Index个位置是否为反斜杆。 说明 ##IsPathDelimiter(‘c:\pascal\zs.pas’,3) = True; IsPathDelimiter(‘c:\pascal\zs.pas’,2) = False; 首部 function IsValidIdent(const Ident: string): Boolean;[SysUtils
功能 测试字符串是否为有效的标识符。
说明 ##IsValidIdent(‘FileName1’) = true; IsValidIdent(‘2X’) = False;
首部 function LastDelimiter(const Delimiters, S: string): Integer; [SysUtils功能返回字符串Delimiters中的所有字符在S中出现的最大位置。说明LastDelimiter(′\.:′,′c:\filename.ext′)=12。首部functionLdexp(X:Extended;P:Integer):Extendedregister;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回字符串𝐷𝑒𝑙𝑖𝑚𝑖𝑡𝑒𝑟𝑠中的所有字符在𝑆中出现的最大位置。说明𝐿𝑎𝑠𝑡𝐷𝑒𝑙𝑖𝑚𝑖𝑡𝑒𝑟(′\.:′,′𝑐:\filename.𝑒𝑥𝑡′)=12。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑑𝑒𝑥𝑝(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑃:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑𝑟𝑒𝑔𝑖𝑠𝑡𝑒𝑟;[Math
功能 返回参数X的P次积平方值。
说明 X*(2**P)
首部 function Length(S: <Stirng>): Integer; [System功能返回字符串的动态长度说明所返回的是字符串S所含的字符数，而不是其声明的长度。首部functionLineStart(Buffer,BufPos:PChar):PChar;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回字符串的动态长度说明所返回的是字符串𝑆所含的字符数，而不是其声明的长度。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑖𝑛𝑒𝑆𝑡𝑎𝑟𝑡(𝐵𝑢𝑓𝑓𝑒𝑟,𝐵𝑢𝑓𝑃𝑜𝑠:𝑃𝐶ℎ𝑎𝑟):𝑃𝐶ℎ𝑎𝑟;[classes
功能
说明
首部 function Ln(X: Real): Real; [System功能返回参数X的自然对数函数值。说明若在运行时X的为0或负数，则产生运行错，程序会终止运行。首部functionLnXP1(X:Extended):Extended;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数𝑋的自然对数函数值。说明若在运行时𝑋的为0或负数，则产生运行错，程序会终止运行。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑛𝑋𝑃1(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回ln(x + 1)。
说明
首部 function Lo(X): Byte; [System 功能 返回参数X的低位字节。 说明 参见Hi ##Lo([System 功能 返回参数X的低位字节。 说明 参见Hi ##Lo(1234) = 34首部functionLoadPackage(constName:string):HMODULE;34首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑜𝑎𝑑𝑃𝑎𝑐𝑘𝑎𝑔𝑒(𝑐𝑜𝑛𝑠𝑡𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐻𝑀𝑂𝐷𝑈𝐿𝐸;[SysUtils
功能
说明
首部 function LoadStr(Ident: Integer): string; [SysUtils功能从应用程序的可执行文件中装载字符资源说明首部functionLog10(X:Extended):Extended;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能从应用程序的可执行文件中装载字符资源说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑜𝑔10(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数X以10为低的对数值。
说明 {Log10X}
首部 function Log2(X: Extended): Extended; [Math功能返回参数X以2为低的对数值。说明Log2X首部functionLoginDialog(constADatabaseName:string;varAUserName,APassword:string):Boolean;[𝑀𝑎𝑡ℎ功能返回参数𝑋以2为低的对数值。说明𝐿𝑜𝑔2𝑋首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑜𝑔𝑖𝑛𝐷𝑖𝑎𝑙𝑜𝑔(𝑐𝑜𝑛𝑠𝑡𝐴𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐴𝑈𝑠𝑒𝑟𝑁𝑎𝑚𝑒,𝐴𝑃𝑎𝑠𝑠𝑤𝑜𝑟𝑑:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[DBLogDlg
功能
说明
首部 function LoginDialogEx(const ADatabaseName: string; var AUserName, APassword: string; NameReadOnly: Boolean):
Boolean; [DBLogDlg功能说明首部functionLogN(Base,X:Extended):Extended;[𝐷𝐵𝐿𝑜𝑔𝐷𝑙𝑔功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑜𝑔𝑁(𝐵𝑎𝑠𝑒,𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数X以Base为低的对数值。
说明 LogBaseX
首部 function IOResult: Integer; [System功能返回最近一次I/O操作的状态值。说明需要编译指示$I−以便IOResult捕获I/O错误。返回值为表示I/O操作成功。首部functionLow(X);[𝑆𝑦𝑠𝑡𝑒𝑚功能返回最近一次𝐼/𝑂操作的状态值。说明需要编译指示$𝐼−以便𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡捕获𝐼/𝑂错误。返回值为表示𝐼/𝑂操作成功。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐿𝑜𝑤(𝑋);[System
功能 返回参数的下限值
说明 Type Low returns
Ordinal type (includes Int64) | The lowest value in the range of the type
Array type | The lowest value within the range of the index type of the array
String type | Returns 0 only on shortstrings
Open array | Returns 0
String parameter | Returns 0
首部 function LowerCase(const S: string): string; [SysUtils 功能 返回字符串S的小写形式; 说明 若S中的字符不在[‘A’..’Z’]的范围，则不作改变。 ## LowerCase(‘Chinese’) = ‘chinese’; LowerCase (‘ZswangY37’) = ‘zswangy37’; 首部 function MakePrincipal(const Bytes: array of Byte): TCorbaPrincipal;[SysUtils 功能 返回字符串S的小写形式; 说明 若S中的字符不在[‘A’..’Z’]的范围，则不作改变。 ## LowerCase(‘Chinese’) = ‘chinese’; LowerCase (‘ZswangY37’) = ‘zswangy37’; 首部 function MakePrincipal(const Bytes: array of Byte): TCorbaPrincipal;[corbaobj
功能
说明 type TCorbaPrincipal = array of Byte;
首部 procedure MarshalAny(const OutBuf: IMarshalOutBuffer; const OV: Variant); [corbaobj功能说明首部procedureMarshalObject(OutBuf:IMarshalOutBuffer;IID:TGUID;constIntf:IObject);[𝑐𝑜𝑟𝑏𝑎𝑜𝑏𝑗功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑀𝑎𝑟𝑠ℎ𝑎𝑙𝑂𝑏𝑗𝑒𝑐𝑡(𝑂𝑢𝑡𝐵𝑢𝑓:𝐼𝑀𝑎𝑟𝑠ℎ𝑎𝑙𝑂𝑢𝑡𝐵𝑢𝑓𝑓𝑒𝑟;𝐼𝐼𝐷:𝑇𝐺𝑈𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝐼𝑛𝑡𝑓:𝐼𝑂𝑏𝑗𝑒𝑐𝑡);[corbaobj
功能
说明
首部 function Max(A,B: Integer): Integer; overload; [Math function Max(A,B: Int64): Int64; overload; function Max(A,B: Single): Single; overload; function Max(A,B: Double): Double; overload; function Max(A,B: Extended): Extended; overload; 功能 返回参数A和B中最大的一个值。 说明 ## Max(15, 16) = 16; Max(-0.31, -0.3) = -0.3; 首部 function MaxIntValue(const Data: array of Integer): Integer;[Math function Max(A,B: Int64): Int64; overload; function Max(A,B: Single): Single; overload; function Max(A,B: Double): Double; overload; function Max(A,B: Extended): Extended; overload; 功能 返回参数A和B中最大的一个值。 说明 ## Max(15, 16) = 16; Max(-0.31, -0.3) = -0.3; 首部 function MaxIntValue(const Data: array of Integer): Integer;[Math
功能 返回整型数组Data元素中最大的一个值。
说明
首部 function MaxValue(const Data: array of Double): Double; [Math功能返回实型数组Data元素中最大的一个值。说明首部functionMean(constData:arrayofDouble):Extended;[𝑀𝑎𝑡ℎ功能返回实型数组𝐷𝑎𝑡𝑎元素中最大的一个值。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑀𝑒𝑎𝑛(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回数组Data的平均值。
说明 ## Mean([1, 2, 3, 4, 5]) = 3; Mean([0.1, -32, 98, 13]) = 19.775;
首部 procedure MeanAndStdDev(const Data: array of Double; var Mean, StdDev: Extended); [Math功能计算数组Data的平均数Mean和标准偏差StdDev。说明首部functionMessageDlg(constMsg:string;AType:TMsgDlgType;AButtons:TMsgDlgButtons;HelpCtx:Longint):Word;[𝑀𝑎𝑡ℎ功能计算数组𝐷𝑎𝑡𝑎的平均数𝑀𝑒𝑎𝑛和标准偏差𝑆𝑡𝑑𝐷𝑒𝑣。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑀𝑒𝑠𝑠𝑎𝑔𝑒𝐷𝑙𝑔(𝑐𝑜𝑛𝑠𝑡𝑀𝑠𝑔:𝑠𝑡𝑟𝑖𝑛𝑔;𝐴𝑇𝑦𝑝𝑒:𝑇𝑀𝑠𝑔𝐷𝑙𝑔𝑇𝑦𝑝𝑒;𝐴𝐵𝑢𝑡𝑡𝑜𝑛𝑠:𝑇𝑀𝑠𝑔𝐷𝑙𝑔𝐵𝑢𝑡𝑡𝑜𝑛𝑠;𝐻𝑒𝑙𝑝𝐶𝑡𝑥:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝑊𝑜𝑟𝑑;[Dialogs
功能 显示一个指定方式的对话筐并返回用户选项。
说明 type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
type
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbHelp);
TMsgDlgButtons = set of TMsgDlgBtn;
首部 function MessageDlgPos(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y:
Integer): Word; [Dialogs功能在指定位置显示对话筐并返回用户选项。说明constmrNone=0;mrOk=idOk;mrCancel=idCancel;mrAbort=idAbort;mrRetry=idRetry;mrIgnore=idIgnore;mrYes=idYes;mrNo=idNo;mrAll=mrNo+1;mrNoToAll=mrAll+1;mrYesToAll=mrNoToAll+1;首部functionMessageDlgPosHelp(constMsg:string;AType:TMsgDlgType;AButtons:TMsgDlgButtons;HelpCtx:Longint;X,Y:Integer,constHelpFileName:string):Word;[𝐷𝑖𝑎𝑙𝑜𝑔𝑠功能在指定位置显示对话筐并返回用户选项。说明𝑐𝑜𝑛𝑠𝑡𝑚𝑟𝑁𝑜𝑛𝑒=0;𝑚𝑟𝑂𝑘=𝑖𝑑𝑂𝑘;𝑚𝑟𝐶𝑎𝑛𝑐𝑒𝑙=𝑖𝑑𝐶𝑎𝑛𝑐𝑒𝑙;𝑚𝑟𝐴𝑏𝑜𝑟𝑡=𝑖𝑑𝐴𝑏𝑜𝑟𝑡;𝑚𝑟𝑅𝑒𝑡𝑟𝑦=𝑖𝑑𝑅𝑒𝑡𝑟𝑦;𝑚𝑟𝐼𝑔𝑛𝑜𝑟𝑒=𝑖𝑑𝐼𝑔𝑛𝑜𝑟𝑒;𝑚𝑟𝑌𝑒𝑠=𝑖𝑑𝑌𝑒𝑠;𝑚𝑟𝑁𝑜=𝑖𝑑𝑁𝑜;𝑚𝑟𝐴𝑙𝑙=𝑚𝑟𝑁𝑜+1;𝑚𝑟𝑁𝑜𝑇𝑜𝐴𝑙𝑙=𝑚𝑟𝐴𝑙𝑙+1;𝑚𝑟𝑌𝑒𝑠𝑇𝑜𝐴𝑙𝑙=𝑚𝑟𝑁𝑜𝑇𝑜𝐴𝑙𝑙+1;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑀𝑒𝑠𝑠𝑎𝑔𝑒𝐷𝑙𝑔𝑃𝑜𝑠𝐻𝑒𝑙𝑝(𝑐𝑜𝑛𝑠𝑡𝑀𝑠𝑔:𝑠𝑡𝑟𝑖𝑛𝑔;𝐴𝑇𝑦𝑝𝑒:𝑇𝑀𝑠𝑔𝐷𝑙𝑔𝑇𝑦𝑝𝑒;𝐴𝐵𝑢𝑡𝑡𝑜𝑛𝑠:𝑇𝑀𝑠𝑔𝐷𝑙𝑔𝐵𝑢𝑡𝑡𝑜𝑛𝑠;𝐻𝑒𝑙𝑝𝐶𝑡𝑥:𝐿𝑜𝑛𝑔𝑖𝑛𝑡;𝑋,𝑌:𝐼𝑛𝑡𝑒𝑔𝑒𝑟,𝑐𝑜𝑛𝑠𝑡𝐻𝑒𝑙𝑝𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑊𝑜𝑟𝑑;[Dialogs
功能 从指定的帮助文件中取得数据，来显示一个帮助对话筐，并返回用户选项。
说明
首部 function Min(A,B: Integer): Integer; overload; [Math function Min(A,B: Int64): Int64; overload; function Min(A,B: Single): Single; overload; function Min(A,B: Double): Double; overload; function Min(A,B: Extended): Extended; overload; 功能 返回参数A和B中最小的一个值。 说明 ## Min(12, 47) = 12; Min(3.14, Pi) = 0.3; 首部 function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;[Math function Min(A,B: Int64): Int64; overload; function Min(A,B: Single): Single; overload; function Min(A,B: Double): Double; overload; function Min(A,B: Extended): Extended; overload; 功能 返回参数A和B中最小的一个值。 说明 ## Min(12, 47) = 12; Min(3.14, Pi) = 0.3; 首部 function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;[filectrl
功能
说明 type TFileName = type string;
首部 function MinIntValue(const Data: array of Integer): Integer; [Math功能返回整型数组Data元素中最小的一个值。说明首部functionMinValue(constData:arrayofDouble):Double;[𝑀𝑎𝑡ℎ功能返回整型数组𝐷𝑎𝑡𝑎元素中最小的一个值。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑀𝑖𝑛𝑉𝑎𝑙𝑢𝑒(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒):𝐷𝑜𝑢𝑏𝑙𝑒;[Math
功能 返回实型数组Data元素中最小的一个值。
说明
首部 procedure MkDir(Path: string); [System功能建立一由子目录Path串命名的新子目录。说明检查IOResult可以确定建立新子目录是否成功。首部procedureMomentSkewKurtosis(constData:arrayofDouble;varM1,M2,M3,M4,Skew,Kurtosis:Extended);[𝑆𝑦𝑠𝑡𝑒𝑚功能建立一由子目录𝑃𝑎𝑡ℎ串命名的新子目录。说明检查𝐼𝑂𝑅𝑒𝑠𝑢𝑙𝑡可以确定建立新子目录是否成功。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑀𝑜𝑚𝑒𝑛𝑡𝑆𝑘𝑒𝑤𝐾𝑢𝑟𝑡𝑜𝑠𝑖𝑠(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒;𝑣𝑎𝑟𝑀1,𝑀2,𝑀3,𝑀4,𝑆𝑘𝑒𝑤,𝐾𝑢𝑟𝑡𝑜𝑠𝑖𝑠:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑);[Math
功能 对数组Data进行统计分析。
说明 M1 是平均数；M2 是变数；Skew = M3 / (M2**(3/2); Kurtosis = M4 / Sqr(M2);
首部 procedure Move(const Source; var Dest; Count: Integer); [System 功能 将变量Source中和前Count个字节传给变量Dest。 说明 ##var A: array[1..4] of Char; B: Integer; begin Move(A, B, SizeOf(B)); { SizeOf = safety! } end; 首部 procedure MoveWindowOrg(DC: HDC; DX, DY: Integer);[System 功能 将变量Source中和前Count个字节传给变量Dest。 说明 ##var A: array[1..4] of Char; B: Integer; begin Move(A, B, SizeOf(B)); { SizeOf = safety! } end; 首部 procedure MoveWindowOrg(DC: HDC; DX, DY: Integer);[Controls
功能
说明
首部 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; [SysUtils功能说明首部functionNativeCompareStr(Locale:TLocale;constS1,S2:string;Len:Integer):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑎𝑡𝑖𝑣𝑒𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝑆𝑡𝑟(𝐿𝑜𝑐𝑎𝑙𝑒:𝑇𝐿𝑜𝑐𝑎𝑙𝑒;𝑐𝑜𝑛𝑠𝑡𝑆1,𝑆2:𝑠𝑡𝑟𝑖𝑛𝑔;𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[DBTables
功能
说明
首部 function NativeCompareStrBuf(Locale: TLocale; const S1, S2: PChar; Len: Integer): Integer; [DBTables功能说明首部functionNativeCompareText(Locale:TLocale;constS1,S2:string;Len:Integer):Integer;[𝐷𝐵𝑇𝑎𝑏𝑙𝑒𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑎𝑡𝑖𝑣𝑒𝐶𝑜𝑚𝑝𝑎𝑟𝑒𝑇𝑒𝑥𝑡(𝐿𝑜𝑐𝑎𝑙𝑒:𝑇𝐿𝑜𝑐𝑎𝑙𝑒;𝑐𝑜𝑛𝑠𝑡𝑆1,𝑆2:𝑠𝑡𝑟𝑖𝑛𝑔;𝐿𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[DBTables
功能
说明
首部 function NativeCompareTextBuf(Locale: TLocale; const S1, S2: PChar; Len: Integer): Integer; [DBTables功能说明首部procedureNativeToAnsi(Locale:TLocale;NativeStr:PChar;varAnsiStr:string);[𝐷𝐵𝑇𝑎𝑏𝑙𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑁𝑎𝑡𝑖𝑣𝑒𝑇𝑜𝐴𝑛𝑠𝑖(𝐿𝑜𝑐𝑎𝑙𝑒:𝑇𝐿𝑜𝑐𝑎𝑙𝑒;𝑁𝑎𝑡𝑖𝑣𝑒𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟;𝑣𝑎𝑟𝐴𝑛𝑠𝑖𝑆𝑡𝑟:𝑠𝑡𝑟𝑖𝑛𝑔);[DBTables
功能
说明
首部 procedure NativeToAnsiBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); [DBTables功能说明首部functionNetPresentValue(Rate:Extended;constCashFlows:arrayofDouble;PaymentTime:TPaymentTime):Extended;[𝐷𝐵𝑇𝑎𝑏𝑙𝑒𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑒𝑡𝑃𝑟𝑒𝑠𝑒𝑛𝑡𝑉𝑎𝑙𝑢𝑒(𝑅𝑎𝑡𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑐𝑜𝑛𝑠𝑡𝐶𝑎𝑠ℎ𝐹𝑙𝑜𝑤𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒;𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒:𝑇𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能
说明
首部 procedure New(var P: Pointer); [System功能建立新的动态变量,并将该变量的首地址赋值给P。说明首部functionNewAttr(Field:TField;constFieldID:TFieldID;constAttrName:string;constParent:TAttrID):TAttrID;[𝑆𝑦𝑠𝑡𝑒𝑚功能建立新的动态变量,并将该变量的首地址赋值给𝑃。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑒𝑤𝐴𝑡𝑡𝑟(𝐹𝑖𝑒𝑙𝑑:𝑇𝐹𝑖𝑒𝑙𝑑;𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐼𝐷:𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝐴𝑡𝑡𝑟𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝑐𝑜𝑛𝑠𝑡𝑃𝑎𝑟𝑒𝑛𝑡:𝑇𝐴𝑡𝑡𝑟𝐼𝐷):𝑇𝐴𝑡𝑡𝑟𝐼𝐷;[DRIntf
功能
说明
首部 function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick:
TNotifyEvent; hCtx: Word; const AName: string): TMenuItem; [Menus功能说明typeTShortCut=Low(Word)..High(Word);typeTNotifyEvent=procedure(Sender:TObject)ofobject;首部functionNewLine:TMenuItem;[𝑀𝑒𝑛𝑢𝑠功能说明𝑡𝑦𝑝𝑒𝑇𝑆ℎ𝑜𝑟𝑡𝐶𝑢𝑡=𝐿𝑜𝑤(𝑊𝑜𝑟𝑑)..𝐻𝑖𝑔ℎ(𝑊𝑜𝑟𝑑);𝑡𝑦𝑝𝑒𝑇𝑁𝑜𝑡𝑖𝑓𝑦𝐸𝑣𝑒𝑛𝑡=𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒(𝑆𝑒𝑛𝑑𝑒𝑟:𝑇𝑂𝑏𝑗𝑒𝑐𝑡)𝑜𝑓𝑜𝑏𝑗𝑒𝑐𝑡;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑒𝑤𝐿𝑖𝑛𝑒:𝑇𝑀𝑒𝑛𝑢𝐼𝑡𝑒𝑚;[Menus
功能
说明
首部 function NewMenu(Owner: TComponent; const AName: string; Items: array of TMenuItem): TMainMenu; [Menus功能说明首部functionNewPopupMenu(Owner:TComponent;constAName:string;Alignment:TPopupAlignment;AutoPopup:Boolean;Items:arrayofTMenuitem):TPopupMenu;[𝑀𝑒𝑛𝑢𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑒𝑤𝑃𝑜𝑝𝑢𝑝𝑀𝑒𝑛𝑢(𝑂𝑤𝑛𝑒𝑟:𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡;𝑐𝑜𝑛𝑠𝑡𝐴𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝐴𝑙𝑖𝑔𝑛𝑚𝑒𝑛𝑡:𝑇𝑃𝑜𝑝𝑢𝑝𝐴𝑙𝑖𝑔𝑛𝑚𝑒𝑛𝑡;𝐴𝑢𝑡𝑜𝑃𝑜𝑝𝑢𝑝:𝐵𝑜𝑜𝑙𝑒𝑎𝑛;𝐼𝑡𝑒𝑚𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝑀𝑒𝑛𝑢𝑖𝑡𝑒𝑚):𝑇𝑃𝑜𝑝𝑢𝑝𝑀𝑒𝑛𝑢;[Menus
功能
说明
首部 function NewStr(const S: string): PString; [SysUtils功能在堆栈上分配新的字符串说明首部functionNewSubMenu(constACaption:string;hCtx:Word;constAName:string;Items:arrayofTMenuItem;AEnabled:Boolean):TMenuItem;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能在堆栈上分配新的字符串说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑒𝑤𝑆𝑢𝑏𝑀𝑒𝑛𝑢(𝑐𝑜𝑛𝑠𝑡𝐴𝐶𝑎𝑝𝑡𝑖𝑜𝑛:𝑠𝑡𝑟𝑖𝑛𝑔;ℎ𝐶𝑡𝑥:𝑊𝑜𝑟𝑑;𝑐𝑜𝑛𝑠𝑡𝐴𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝐼𝑡𝑒𝑚𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝑀𝑒𝑛𝑢𝐼𝑡𝑒𝑚;𝐴𝐸𝑛𝑎𝑏𝑙𝑒𝑑:𝐵𝑜𝑜𝑙𝑒𝑎𝑛):𝑇𝑀𝑒𝑛𝑢𝐼𝑡𝑒𝑚;[Menus
功能
说明
首部 function Norm(const Data: array of Double): Extended; [Math功能说明首部functionNow:TDateTime;[𝑀𝑎𝑡ℎ功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑁𝑜𝑤:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 返回当前的日期和时间
说明
首部 function NumberOfPeriods(Rate, Payment, PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime):
Extended; [Math功能说明首部procedureObjectTextToBinary(Input,Output:TStream);[𝑀𝑎𝑡ℎ功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑂𝑏𝑗𝑒𝑐𝑡𝑇𝑒𝑥𝑡𝑇𝑜𝐵𝑖𝑛𝑎𝑟𝑦(𝐼𝑛𝑝𝑢𝑡,𝑂𝑢𝑡𝑝𝑢𝑡:𝑇𝑆𝑡𝑟𝑒𝑎𝑚);[Classes
功能
说明
首部 procedure ObjectTextToResource(Input, Output: TStream); [Classes功能说明首部functionOdd(X:Longint):Boolean;[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑂𝑑𝑑(𝑋:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[System
功能 测试参数X是否为奇数。
说明 X为奇数时，Odd返回值True，否则返回值False。
首部 procedure OleCheck(ECode: HResult); [ComObj功能说明首部procedureOleError(ErrorCode:HResult);[𝐶𝑜𝑚𝑂𝑏𝑗功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑂𝑙𝑒𝐸𝑟𝑟𝑜𝑟(𝐸𝑟𝑟𝑜𝑟𝐶𝑜𝑑𝑒:𝐻𝑅𝑒𝑠𝑢𝑙𝑡);[ComObj
功能
说明
首部 procedure OleFontToFont(const OleFont: Variant; Font: TFont); [OleCtrlsj功能说明首部functionOleStrToString(Source:PWideChar):string;[𝑂𝑙𝑒𝐶𝑡𝑟𝑙𝑠𝑗功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑂𝑙𝑒𝑆𝑡𝑟𝑇𝑜𝑆𝑡𝑟𝑖𝑛𝑔(𝑆𝑜𝑢𝑟𝑐𝑒:𝑃𝑊𝑖𝑑𝑒𝐶ℎ𝑎𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[System
功能
说明
首部 procedure OleStrToStrVar(Source: PWideChar; var Dest: string); [System功能说明首部functionOrd(X:<Ordinal>):Longint;[𝑆𝑦𝑠𝑡𝑒𝑚功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑂𝑟𝑑(𝑋:<𝑂𝑟𝑑𝑖𝑛𝑎𝑙>):𝐿𝑜𝑛𝑔𝑖𝑛𝑡;[System
功能 返回参数X所对应的序号。
说明 第一个元素的序号为0，其余类推。 ##Ord(‘a’) = 97; Ord(False) = 0;
首部 procedure OutOfMemoryError; [SysUtils功能引起outofmemory意外说明首部functionParamCount:Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能引起𝑜𝑢𝑡𝑜𝑓𝑚𝑒𝑚𝑜𝑟𝑦意外说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑎𝑟𝑎𝑚𝐶𝑜𝑢𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[System
功能 返回在命令行上传递给程序的参数数量
说明 如命令行中不包含输入参数，ParamCount则返回值0。
首部 function ParamStr(Index: Integer): string; [System功能返回当前运行的程序路径和名称，并以字符串形式返回第Index个命令参数。说明ParamStr(0)返回当前程序名。首部functionParseDate(constDateStr:string):TDateTime;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回当前运行的程序路径和名称，并以字符串形式返回第𝐼𝑛𝑑𝑒𝑥个命令参数。说明𝑃𝑎𝑟𝑎𝑚𝑆𝑡𝑟(0)返回当前程序名。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑎𝑟𝑠𝑒𝐷𝑎𝑡𝑒(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑒𝑆𝑡𝑟:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[HTTPApp
功能
说明
首部 function PasswordDialog(ASession: TComponent): Boolean; [DBPWDlg功能返回用户输入的口今是否正确。说明首部functionPayment(Rate:Extended;NPeriods:Integer;PresentValue,FutureValue:Extended;PaymentTime:TPaymentTime):Extended;[𝐷𝐵𝑃𝑊𝐷𝑙𝑔功能返回用户输入的口今是否正确。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑎𝑦𝑚𝑒𝑛𝑡(𝑅𝑎𝑡𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑁𝑃𝑒𝑟𝑖𝑜𝑑𝑠:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑃𝑟𝑒𝑠𝑒𝑛𝑡𝑉𝑎𝑙𝑢𝑒,𝐹𝑢𝑡𝑢𝑟𝑒𝑉𝑎𝑙𝑢𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒:𝑇𝑃𝑎𝑦𝑚𝑒𝑛𝑡𝑇𝑖𝑚𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能
说明
首部 function PeriodPayment(Rate: Extended; Period, NPeriods: Integer; PresentValue, FutureValue: Extended;
PaymentTime: TPaymentTime): Extended; [Math功能说明首部functionPi:Extended;[𝑀𝑎𝑡ℎ功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑖:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[System
功能 返回圆周率pi。
说明 Pi = 3.1415926535897932385
首部 function Point(AX, AY: Integer): TPoint; [Classes 功能 根据参数AX, AY返回坐标类型。 说明 ##var vPoint: TPoint; begin vPoint := Point(10, 10) end; 首部 function PointToSmallPoint(const P: TPoint): TSmallPoint; 功能 说明 type TSmallPoint = record x: SHORT; y: SHORT; end; { record[TSmallPoint] } 首部 function Poly(X: Extended; const Coefficients: array of Double): Extended;[Classes 功能 根据参数AX, AY返回坐标类型。 说明 ##var vPoint: TPoint; begin vPoint := Point(10, 10) end; 首部 function PointToSmallPoint(const P: TPoint): TSmallPoint; 功能 说明 type TSmallPoint = record x: SHORT; y: SHORT; end; { record[TSmallPoint] } 首部 function Poly(X: Extended; const Coefficients: array of Double): Extended;[Math
功能 {即：返回Coefficients[0] + Coefficients[1] * X + ... + Coefficients[N] * (X ** N)}
说明
首部 function PopnStdDev(const Data: array of Double): Extended; [Math功能返回标准偏差入口值。说明此函数一般使用在商业和金融方面的计算。首部functionPopnVariance(constData:arrayofDouble):Extended;[𝑀𝑎𝑡ℎ功能返回标准偏差入口值。说明此函数一般使用在商业和金融方面的计算。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑜𝑝𝑛𝑉𝑎𝑟𝑖𝑎𝑛𝑐𝑒(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回数组的平均值。{即：返回TotalVariance/N}
说明 参见TotalVariance。
首部 function Pos(Substr, S: <String>): Integer; [System功能返回子串Substr在主串S中的起始位置。说明若S中不存在所述子串，则Pos返回值0。首部functionPower(Base,Exponent:Extended):Extended;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回子串𝑆𝑢𝑏𝑠𝑡𝑟在主串𝑆中的起始位置。说明若𝑆中不存在所述子串，则𝑃𝑜𝑠返回值0。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑃𝑜𝑤𝑒𝑟(𝐵𝑎𝑠𝑒,𝐸𝑥𝑝𝑜𝑛𝑒𝑛𝑡:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数Base的Exponent次方。{即：返回Base**Exponent}
说明 指数函数。
首部 function Pred(X: <Ordinal>): <Ordinal>; [System 功能 返回参数的前趋值。 说明 参数X可以是任何预定义的有序类型，也可为是用户构造的枚举类型。如果X已经是序列中的第一个数，并且进行范围检查的编 译开关{$R}在开的位置，系统将触发一个导常。 ##Pred(‘c’) = ‘b’; Pred(True) = False; 首部 function PresentValue(Rate: Extended; NPeriods: Integer; Payment, FutureValue: Extended; PaymentTime: TPaymentTime): Extended;[System 功能 返回参数的前趋值。 说明 参数X可以是任何预定义的有序类型，也可为是用户构造的枚举类型。如果X已经是序列中的第一个数，并且进行范围检查的编 译开关{$R}在开的位置，系统将触发一个导常。 ##Pred(‘c’) = ‘b’; Pred(True) = False; 首部 function PresentValue(Rate: Extended; NPeriods: Integer; Payment, FutureValue: Extended; PaymentTime: TPaymentTime): Extended;[System
功能
说明
首部 function Printer: TPrinter; [Printers功能返回当前操作的打印机。说明可以直接操作打印机。首部procedureProcessPath(constEditText:string;varDrive:Char;varDirPart:string;varFilePart:string);[𝑃𝑟𝑖𝑛𝑡𝑒𝑟𝑠功能返回当前操作的打印机。说明可以直接操作打印机。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑃𝑟𝑜𝑐𝑒𝑠𝑠𝑃𝑎𝑡ℎ(𝑐𝑜𝑛𝑠𝑡𝐸𝑑𝑖𝑡𝑇𝑒𝑥𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐷𝑟𝑖𝑣𝑒:𝐶ℎ𝑎𝑟;𝑣𝑎𝑟𝐷𝑖𝑟𝑃𝑎𝑟𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐹𝑖𝑙𝑒𝑃𝑎𝑟𝑡:𝑠𝑡𝑟𝑖𝑛𝑔);[filectrl
功能 将参数分解为驱动器名、路径名和文件名，分别赋给Drive、DirPart和FilePart。
说明 注意：文件必须实际存在。如果没有真实的文件，系统将引起异常。
首部 function Ptr(Address: Integer): Pointer; [System功能返回一个指定内存地址的指针值。说明使用Ptr可建立指向内存已知位置的指针。首部functionQualifyTableName(Database:TDatabase;constTableName:string):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回一个指定内存地址的指针值。说明使用𝑃𝑡𝑟可建立指向内存已知位置的指针。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑄𝑢𝑎𝑙𝑖𝑓𝑦𝑇𝑎𝑏𝑙𝑒𝑁𝑎𝑚𝑒(𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒:𝑇𝐷𝑎𝑡𝑎𝑏𝑎𝑠𝑒;𝑐𝑜𝑛𝑠𝑡𝑇𝑎𝑏𝑙𝑒𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[DRIntf
功能
说明
首部 function QualifyTableNameByName(const SessionName, DatabaseName, TableName: string): string; [DRIntf功能说明首部functionQuotedStr(constS:string):string;[𝐷𝑅𝐼𝑛𝑡𝑓功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑄𝑢𝑜𝑡𝑒𝑑𝑆𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 返回字符串S在Deiphi中的表示形式;
说明 ##QuotedStr(‘Zswang’) = ‘‘Zswang’’; QuotedStr(‘Zswang’)
首部 function RadToCycle(Radians: Extended): Extended; [Math功能将参数Radians转换成周度返回。说明cycles=radians/(2pi)。首部functionRadToDeg(Radians:Extended):Extended;[𝑀𝑎𝑡ℎ功能将参数𝑅𝑎𝑑𝑖𝑎𝑛𝑠转换成周度返回。说明𝑐𝑦𝑐𝑙𝑒𝑠=𝑟𝑎𝑑𝑖𝑎𝑛𝑠/(2𝑝𝑖)。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑎𝑑𝑇𝑜𝐷𝑒𝑔(𝑅𝑎𝑑𝑖𝑎𝑛𝑠:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 将参数Radians转换成度返回。
说明 degrees = radians(180/pi)。
首部 function RadToGrad(Radians: Extended): Extended; [Math功能将参数Radians转换成梯度返回。说明grads=radians(200/pi)。首部procedureRaiseLastWin32Error;[𝑀𝑎𝑡ℎ功能将参数𝑅𝑎𝑑𝑖𝑎𝑛𝑠转换成梯度返回。说明𝑔𝑟𝑎𝑑𝑠=𝑟𝑎𝑑𝑖𝑎𝑛𝑠(200/𝑝𝑖)。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑎𝑖𝑠𝑒𝐿𝑎𝑠𝑡𝑊𝑖𝑛32𝐸𝑟𝑟𝑜𝑟;[SysUtils
功能
说明
首部 function RandG(Mean, StdDev: Extended): Extended; [Math功能产生一个高斯随机分布数。说明首部functionRandom:Extended;;[𝑀𝑎𝑡ℎ功能产生一个高斯随机分布数。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑎𝑛𝑑𝑜𝑚:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;;[System
function Random(Range: Integer): Integer;
功能 返回随机数序列的下一个值。
说明 随机数序列可以选择性地由Randomize进行初始化。Random的第一种形式返回介于[0,1)的一个Extended类型随机数；的第一种
形式返回介于[0, Range]的一个Integer类型随机数。
首部 procedure Randomize; [System功能初始化随机数产生器。说明调用Randomize使得每次运行程序时都产生一个新的随机数序列。若不调用Randomize，则程序将重复同一随机数序列。首部procedureRead(F,V1[,V2,...,Vn]);[𝑆𝑦𝑠𝑡𝑒𝑚功能初始化随机数产生器。说明调用𝑅𝑎𝑛𝑑𝑜𝑚𝑖𝑧𝑒使得每次运行程序时都产生一个新的随机数序列。若不调用𝑅𝑎𝑛𝑑𝑜𝑚𝑖𝑧𝑒，则程序将重复同一随机数序列。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑎𝑑(𝐹,𝑉1[,𝑉2,...,𝑉𝑛]);[System
功能 从文件中读数据
说明 Read一次可读取多个变量。
首部 function ReadComponentRes(const ResName: string; Instance: TComponent): TComponent; [Classes功能说明首部functionReadComponentResEx(HInstance:THandle;constResName:string):TComponent;[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑒𝑎𝑑𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝑅𝑒𝑠𝐸𝑥(𝐻𝐼𝑛𝑠𝑡𝑎𝑛𝑐𝑒:𝑇𝐻𝑎𝑛𝑑𝑙𝑒;𝑐𝑜𝑛𝑠𝑡𝑅𝑒𝑠𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡;[Classes
功能
说明
首部 function ReadComponentResFile(const FileName: string; Instance: TComponent): TComponent; [Classes功能说明首部procedureReadln([varF:Text;]V1[,V2,...,Vn]);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑎𝑑𝑙𝑛([𝑣𝑎𝑟𝐹:𝑇𝑒𝑥𝑡;]𝑉1[,𝑉2,...,𝑉𝑛]);[System
功能 执行read过程，然后跳到文件下一行。
说明
首部 procedure ReallocMem(var P: Pointer; Size: Integer); [System功能分配一动态变量。说明首部functionRect(ALeft,ATop,ARight,ABottom:Integer):TRect;[𝑆𝑦𝑠𝑡𝑒𝑚功能分配一动态变量。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑒𝑐𝑡(𝐴𝐿𝑒𝑓𝑡,𝐴𝑇𝑜𝑝,𝐴𝑅𝑖𝑔ℎ𝑡,𝐴𝐵𝑜𝑡𝑡𝑜𝑚:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑇𝑅𝑒𝑐𝑡;[Classes
功能 根据坐标返回一个矩形类型。
说明 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 RegisterActions(const CategoryName: string; const AClasses: array of TBasicActionClass; Resource:
TComponentClass); [ActnList功能说明首部procedureRegisterClass(AClass:TPersistentClass);[𝐴𝑐𝑡𝑛𝐿𝑖𝑠𝑡功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐶𝑙𝑎𝑠𝑠(𝐴𝐶𝑙𝑎𝑠𝑠:𝑇𝑃𝑒𝑟𝑠𝑖𝑠𝑡𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠);[Classes
功能
说明
首部 procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string); [Classes功能说明首部procedureRegisterClasses(AClasses:arrayofTPersistentClass);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐶𝑙𝑎𝑠𝑠𝑒𝑠(𝐴𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝑃𝑒𝑟𝑠𝑖𝑠𝑡𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠);[Classes
功能
说明
首部 procedure RegisterComponentEditor(ComponentClass: TComponentClass; ComponentEditor: TComponentEditorClass);
[DsgnIntf功能说明首部procedureRegisterComponents(constPage:string;ComponentClasses:arrayofTComponentClass);[𝐷𝑠𝑔𝑛𝐼𝑛𝑡𝑓功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝑠(𝑐𝑜𝑛𝑠𝑡𝑃𝑎𝑔𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠);[Classes
功能 把新元件放入指定页中。
说明 ##RegisterComponents(‘Samples’, [MyPageUn])
首部 procedure RegisterComServer(const DLLName: string); [ComObj功能说明首部procedureRegisterFields(constFieldClasses:arrayofTFieldClass);[𝐶𝑜𝑚𝑂𝑏𝑗功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐹𝑖𝑒𝑙𝑑𝑠(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝐹𝑖𝑒𝑙𝑑𝐶𝑙𝑎𝑠𝑠);[Db
功能
说明
首部 procedure RegisterIntegerConsts(IntegerType: Pointer; IdentToInt: TIdentToInt; IntToIdent: TIntToIdent);
[Classes功能说明typeTIdentToInt=function(constIdent:string;varInt:Longint):Boolean;typeTIntToIdent=function(Int:Longint;varIdent:string):Boolean;首部procedureRegisterLibraryExpert(Expert:TIExpert);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明𝑡𝑦𝑝𝑒𝑇𝐼𝑑𝑒𝑛𝑡𝑇𝑜𝐼𝑛𝑡=𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛(𝑐𝑜𝑛𝑠𝑡𝐼𝑑𝑒𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔;𝑣𝑎𝑟𝐼𝑛𝑡:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;𝑡𝑦𝑝𝑒𝑇𝐼𝑛𝑡𝑇𝑜𝐼𝑑𝑒𝑛𝑡=𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛(𝐼𝑛𝑡:𝐿𝑜𝑛𝑔𝑖𝑛𝑡;𝑣𝑎𝑟𝐼𝑑𝑒𝑛𝑡:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐿𝑖𝑏𝑟𝑎𝑟𝑦𝐸𝑥𝑝𝑒𝑟𝑡(𝐸𝑥𝑝𝑒𝑟𝑡:𝑇𝐼𝐸𝑥𝑝𝑒𝑟𝑡);[ExptIntf
功能
说明
首部 procedure RegisterNoIcon(ComponentClasses: array of TComponentClass); [Classes功能说明首部procedureRegisterNonActiveX(ComponentClasses:arrayofTComponentClass;AxRegType:TActiveXRegType);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝑁𝑜𝑛𝐴𝑐𝑡𝑖𝑣𝑒𝑋(𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝐶𝑜𝑚𝑝𝑜𝑛𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠;𝐴𝑥𝑅𝑒𝑔𝑇𝑦𝑝𝑒:𝑇𝐴𝑐𝑡𝑖𝑣𝑒𝑋𝑅𝑒𝑔𝑇𝑦𝑝𝑒);[Classes
功能
说明 type TActiveXRegType = (axrComponentOnly, axrIncludeDescendants);
首部 procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string;
EditorClass: TPropertyEditorClass); [DsgnIntf功能说明首部functionRemoveDir(constDir:string):Boolean;[𝐷𝑠𝑔𝑛𝐼𝑛𝑡𝑓功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑒𝑚𝑜𝑣𝑒𝐷𝑖𝑟(𝑐𝑜𝑛𝑠𝑡𝐷𝑖𝑟:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[SysUtils
功能 返回转移目录是否成功。
说明 如果转移成功则返回True，否则返回False。
首部 procedure Rename(var F: <File>; Newname: string); [System功能将与文件变量相联系的外部文件名更改为Newname说明在调用Rename之前，文件变量F应已与一当前外部文件名相联系。注意：在同一目录下要避免Newname与其它文件不同名。首部functionRenameFile(constOldName,NewName:string):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能将与文件变量相联系的外部文件名更改为𝑁𝑒𝑤𝑛𝑎𝑚𝑒说明在调用𝑅𝑒𝑛𝑎𝑚𝑒之前，文件变量𝐹应已与一当前外部文件名相联系。注意：在同一目录下要避免𝑁𝑒𝑤𝑛𝑎𝑚𝑒与其它文件不同名。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑒𝑛𝑎𝑚𝑒𝐹𝑖𝑙𝑒(𝑐𝑜𝑛𝑠𝑡𝑂𝑙𝑑𝑁𝑎𝑚𝑒,𝑁𝑒𝑤𝑁𝑎𝑚𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[SysUtils
功能 对外部文件重命名，并返回改名是否成功。
说明 ## RenameFile(‘c:\pascal\zs.pas’, ‘c:\pascal\zs1.pas’);
首部 procedure Reset(var F: File [; RecSize: Word ] ); [System功能打开一个已存在的文件。说明实现读取的准备，将文件指针指向文件头。记录大小RecSize默认为128。首部procedureRewrite(varF:File[;Recsize:Word]);[𝑆𝑦𝑠𝑡𝑒𝑚功能打开一个已存在的文件。说明实现读取的准备，将文件指针指向文件头。记录大小𝑅𝑒𝑐𝑆𝑖𝑧𝑒默认为128。首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑅𝑒𝑤𝑟𝑖𝑡𝑒(𝑣𝑎𝑟𝐹:𝐹𝑖𝑙𝑒[;𝑅𝑒𝑐𝑠𝑖𝑧𝑒:𝑊𝑜𝑟𝑑]);[System
功能 建立并打开一新的文件
说明 实现写入的准备，将文件指针指向文件头。记录大小RecSize默认为128。
首部 procedure RmDir(S: string); [System功能删除由参数S给定的子目录。说明所删除的子目录必须是一个空目录。可由IOReult检测调用RmDir是否成功。首部functionRound(X:Extended):Int64;[𝑆𝑦𝑠𝑡𝑒𝑚功能删除由参数𝑆给定的子目录。说明所删除的子目录必须是一个空目录。可由𝐼𝑂𝑅𝑒𝑢𝑙𝑡检测调用𝑅𝑚𝐷𝑖𝑟是否成功。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑅𝑜𝑢𝑛𝑑(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐼𝑛𝑡64;[System
功能 返回参数X的舍入整型值。{即：返回[X+0.5]}
说明 ##Round(1.4999) = 1; Round(1.500) = 2; Round(-1.4999) = -1; Round(-1.500) = -2;
首部 procedure RunError [ ( Errorcode: Byte ) ]; [System功能停止程序的执行。说明不带参数时，对RunError的调用可以终止程序执行，但不给出特定的运行是的出错编码。带参数时，调用RunError将模拟程序对该错误的响应。首部functionSafeRef(vRefIn:OleVariant):OleVariant;safecall;[𝑆𝑦𝑠𝑡𝑒𝑚功能停止程序的执行。说明不带参数时，对𝑅𝑢𝑛𝐸𝑟𝑟𝑜𝑟的调用可以终止程序执行，但不给出特定的运行是的出错编码。带参数时，调用𝑅𝑢𝑛𝐸𝑟𝑟𝑜𝑟将模拟程序对该错误的响应。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑎𝑓𝑒𝑅𝑒𝑓(𝑣𝑅𝑒𝑓𝐼𝑛:𝑂𝑙𝑒𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝑂𝑙𝑒𝑉𝑎𝑟𝑖𝑎𝑛𝑡;𝑠𝑎𝑓𝑒𝑐𝑎𝑙𝑙;[Mtx
功能 返回一个可靠的对象变体。
说明 Mtx: 多任务执行程序。
首部 procedure Seek(var F; N: Longint); [System功能将文件指针定位至文件F中序号为N的元素处。说明规定文件的第一个元素其序号为0。首部functionSeekEof[(varF:Text)]:Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能将文件指针定位至文件𝐹中序号为𝑁的元素处。说明规定文件的第一个元素其序号为0。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑒𝑒𝑘𝐸𝑜𝑓[(𝑣𝑎𝑟𝐹:𝑇𝑒𝑥𝑡)]:𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[System
功能 返回正文文件F的文件结束状态值。
说明 SeekEof与Eof功能 类似，但前者在返回文件结束状态值前将跳略所有空格符、制表符种行结束标志。这在从一正文文件中读取
数字值时是非常有用。它也有助于避免读取正文末行之后的额外空白行。
首部 function SeekEoln [ (var F: Text) ]: Boolean; [System功能返回正文文件F的行结束状态值。说明SeekEoln与Eoln功能类似，但前者在返回行结束状态值前将跳略所有空格符和制表符。这在从一正文文件中读取数字值时是非常有用。它也有助于避免读取每最后一个字符之后的额外空格符。首部functionSelectDirectory(varDirectory:string;Options:TSelectDirOpts;HelpCtx:Longint):Boolean;overload;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回正文文件𝐹的行结束状态值。说明𝑆𝑒𝑒𝑘𝐸𝑜𝑙𝑛与𝐸𝑜𝑙𝑛功能类似，但前者在返回行结束状态值前将跳略所有空格符和制表符。这在从一正文文件中读取数字值时是非常有用。它也有助于避免读取每最后一个字符之后的额外空格符。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑒𝑙𝑒𝑐𝑡𝐷𝑖𝑟𝑒𝑐𝑡𝑜𝑟𝑦(𝑣𝑎𝑟𝐷𝑖𝑟𝑒𝑐𝑡𝑜𝑟𝑦:𝑠𝑡𝑟𝑖𝑛𝑔;𝑂𝑝𝑡𝑖𝑜𝑛𝑠:𝑇𝑆𝑒𝑙𝑒𝑐𝑡𝐷𝑖𝑟𝑂𝑝𝑡𝑠;𝐻𝑒𝑙𝑝𝐶𝑡𝑥:𝐿𝑜𝑛𝑔𝑖𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;𝑜𝑣𝑒𝑟𝑙𝑜𝑎𝑑;[FileCtrl
function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;
overload;
功能 显示一个选择路径的对话筐，返回用户是否选择路径。
说明 type
TSelectDirOpt = (sdAllowCreate, sdPerformCreate, sdPrompt);
TSelectDirOpts = set of TSelectDirOpt;
## const
## SELDIRHELP = 1000;
## procedure TForm1.Button1Click(Sender: TObject);
## var
## Dir: string;
## begin
## Dir := 'C:\MYDIR';
## if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
## Label1.Caption := Dir;
## end;
首部 procedure Set8087CW(NewCW: Word); [System 功能 改变8087的指令代码Default8087CW。 说明 ## procedure NumericExample; ## var ## Saved8087CW: Word; ## begin ## Saved8087CW := Default8087CW; ## Set8087CW([System 功能 改变8087的指令代码Default8087CW。 说明 ## procedure NumericExample; ## var ## Saved8087CW: Word; ## begin ## Saved8087CW := Default8087CW; ## Set8087CW(133f); { Disable all fpu exceptions }
## ThirdPartyRoutine;
## Set8087CW(Saved8087CW);
## end;
首部 procedure SetCaptureControl(Control: TControl); [Controls 功能 指定元件获得全部鼠标的消息。 说明 ## SetCaptureControl(Form1); 首部 function SetClipboard(NewClipboard: TClipboard): TClipboard;[Controls 功能 指定元件获得全部鼠标的消息。 说明 ## SetCaptureControl(Form1); 首部 function SetClipboard(NewClipboard: TClipboard): TClipboard;[ clipbrd
功能 返回一个被替换的面版。
说明
首部 function SetCurrentDir(const Dir: string): Boolean; [SysUtils功能返回设置当前路径是否成功。说明首部functionSetErrorProc(ErrorProc:TSocketErrorProc):TSocketErrorProc;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回设置当前路径是否成功。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑒𝑡𝐸𝑟𝑟𝑜𝑟𝑃𝑟𝑜𝑐(𝐸𝑟𝑟𝑜𝑟𝑃𝑟𝑜𝑐:𝑇𝑆𝑜𝑐𝑘𝑒𝑡𝐸𝑟𝑟𝑜𝑟𝑃𝑟𝑜𝑐):𝑇𝑆𝑜𝑐𝑘𝑒𝑡𝐸𝑟𝑟𝑜𝑟𝑃𝑟𝑜𝑐;[ScktComp
功能 用向Windows发错误消息替换一个异常处理。
说明 type TSocketErrorProc = procedure(ErrorCode: Integer);
首部 procedure SetLength(var S; NewLength: Integer); [System 功能 给字符串变量或开放性数组指定一个长度。 说明 ## var s: string; a: array of Integer; begin SetLength(s, 12); SetLength(a, 2); a[0] := 5; a[1] := 3; end; 首部 procedure SetMemoryManager(const MemMgr: TMemoryManager);[System 功能 给字符串变量或开放性数组指定一个长度。 说明 ## var s: string; a: array of Integer; begin SetLength(s, 12); SetLength(a, 2); a[0] := 5; a[1] := 3; end; 首部 procedure SetMemoryManager(const MemMgr: TMemoryManager);[System
功能 设置内存管理器的入口点。
说明 type
PMemoryManager = ^TMemoryManager;
TMemoryManager = record
GetMem: function(Size: Integer): Pointer;
FreeMem: function(P: Pointer): Integer;
ReallocMem: function(P: Pointer; Size: Integer): Pointer;
end;
首部 procedure SetOleFont(Font: TFont; OleFont: IFontDisp); [AXCtrls功能设置对象链接的字体。说明首部procedureSetOlePicture(Picture:TPicture;OlePicture:IPictureDisp);[𝐴𝑋𝐶𝑡𝑟𝑙𝑠功能设置对象链接的字体。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑆𝑒𝑡𝑂𝑙𝑒𝑃𝑖𝑐𝑡𝑢𝑟𝑒(𝑃𝑖𝑐𝑡𝑢𝑟𝑒:𝑇𝑃𝑖𝑐𝑡𝑢𝑟𝑒;𝑂𝑙𝑒𝑃𝑖𝑐𝑡𝑢𝑟𝑒:𝐼𝑃𝑖𝑐𝑡𝑢𝑟𝑒𝐷𝑖𝑠𝑝);[AXCtrls
功能 设置对象链接的图形。
说明
首部 procedure SetOleStrings(Strings: TStrings; OleStrings: IStrings); [AXCtrls功能设置对象链接的字符串列表。说明首部procedureSetString(vars:string;buffer:PChar;len:Integer);[𝐴𝑋𝐶𝑡𝑟𝑙𝑠功能设置对象链接的字符串列表。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑆𝑒𝑡𝑆𝑡𝑟𝑖𝑛𝑔(𝑣𝑎𝑟𝑠:𝑠𝑡𝑟𝑖𝑛𝑔;𝑏𝑢𝑓𝑓𝑒𝑟:𝑃𝐶ℎ𝑎𝑟;𝑙𝑒𝑛:𝐼𝑛𝑡𝑒𝑔𝑒𝑟);[System
功能 将指定长度Len的指针字符buffer赋给字符串s。
说明
首部 procedure SetTextBuf(var F: Text; var Buf [ ; Size: Integer] ); [System功能给文本文件F分配一个I/O缓冲区Buf。说明每一正文文件有一个128字节的内部I/O缓冲区，用于缺省情况下Read和Write的存储。本过程可为指定大小为Size字节的I/O缓冲区。首部functionShortCut(Key:Word;Shift:TShiftState):TShortCut;[𝑆𝑦𝑠𝑡𝑒𝑚功能给文本文件𝐹分配一个𝐼/𝑂缓冲区𝐵𝑢𝑓。说明每一正文文件有一个128字节的内部𝐼/𝑂缓冲区，用于缺省情况下𝑅𝑒𝑎𝑑和𝑊𝑟𝑖𝑡𝑒的存储。本过程可为指定大小为𝑆𝑖𝑧𝑒字节的𝐼/𝑂缓冲区。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆ℎ𝑜𝑟𝑡𝐶𝑢𝑡(𝐾𝑒𝑦:𝑊𝑜𝑟𝑑;𝑆ℎ𝑖𝑓𝑡:𝑇𝑆ℎ𝑖𝑓𝑡𝑆𝑡𝑎𝑡𝑒):𝑇𝑆ℎ𝑜𝑟𝑡𝐶𝑢𝑡;[Menus
功能 根据按键Key和组合键Shift返回一个快捷变量。
说明 type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
type TShortCut = Low(Word) .. High(Word);
## OpenCommand.ShortCut := ShortCut(Word('O'), [ssCtrl]);
首部 procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState); [Menus 功能 根据快捷变量ShortCut返回按键Key和组合键Shift的值。 说明 ## var ## TheKey: Word; ## TheShiftState: TShiftState; ## begin ## ShortCutToKey(CloseCommand.ShortCut, TheKey, TheShiftState); ## if TheShiftState = [ssCtrl] then ## CloseCommand.ShortCut := ShortCut(Word('C'), [ssShift]); ## end; 首部 function ShortCutToText(ShortCut: TShortCut): string;[Menus 功能 根据快捷变量ShortCut返回按键Key和组合键Shift的值。 说明 ## var ## TheKey: Word; ## TheShiftState: TShiftState; ## begin ## ShortCutToKey(CloseCommand.ShortCut, TheKey, TheShiftState); ## if TheShiftState = [ssCtrl] then ## CloseCommand.ShortCut := ShortCut(Word('C'), [ssShift]); ## end; 首部 function ShortCutToText(ShortCut: TShortCut): string;[Menus
功能 将快捷变量转换成字符串类型返回。
说明 ## ShortCutToText(ShortCut(Word('O'), [ssCtrl])) = ‘Ctrl+O’;
首部 procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer); [SysUtils功能显示意外消息与地址。说明首部procedureShowMessage(constMsg:string);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能显示意外消息与地址。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑆ℎ𝑜𝑤𝑀𝑒𝑠𝑠𝑎𝑔𝑒(𝑐𝑜𝑛𝑠𝑡𝑀𝑠𝑔:𝑠𝑡𝑟𝑖𝑛𝑔);[Dialogs
功能 用一个模态对话框来显示一个重要信息。
说明 Msg表示所要显示的信息。在模态对话框出现时不能产生其它操作。
首部 procedure ShowMessageFmt(const Msg: string; Params: array of const); [Dialogs功能将信息格式化后显示模态对话框中。说明参见ShowMessage。首部functionSin(X:Extended):Extended;[𝐷𝑖𝑎𝑙𝑜𝑔𝑠功能将信息格式化后显示模态对话框中。说明参见𝑆ℎ𝑜𝑤𝑀𝑒𝑠𝑠𝑎𝑔𝑒。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑖𝑛(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[System
功能 返回参数X的正弦值。
说明 参数X以弧度为单位。
首部 procedure SinCos(Theta: Extended; var Sin, Cos: Extended) register; [Math功能计算参数Theta的正弦值、余弦值，分别赋予变量Sin、Cos中。说明参数Theta以弧度为单位。首部functionSinh(X:Extended):Extended;[𝑀𝑎𝑡ℎ功能计算参数𝑇ℎ𝑒𝑡𝑎的正弦值、余弦值，分别赋予变量𝑆𝑖𝑛、𝐶𝑜𝑠中。说明参数𝑇ℎ𝑒𝑡𝑎以弧度为单位。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑖𝑛ℎ(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回参数X的双曲正弦值。
说明 参数X以弧度为单位。
首部 function SizeOf(X: <Type>|<File>): Integer; [System功能返回参数所占的字节数。说明在调用FillChar或Move时，利用SizeOf可访问意外地对超出变量所占地址之外的内存进行复写。首部functionSlice(varA:array;Count:Integer):array;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数所占的字节数。说明在调用𝐹𝑖𝑙𝑙𝐶ℎ𝑎𝑟或𝑀𝑜𝑣𝑒时，利用𝑆𝑖𝑧𝑒𝑂𝑓可访问意外地对超出变量所占地址之外的内存进行复写。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑙𝑖𝑐𝑒(𝑣𝑎𝑟𝐴:𝑎𝑟𝑟𝑎𝑦;𝐶𝑜𝑢𝑛𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑎𝑟𝑟𝑎𝑦;[System
功能 返回一个子数组。
说明
首部 function SLNDepreciation(Cost, Salvage: Extended; Life: Integer): Extended; [Math功能根据成本、折旧率、和周期计算折旧。说明∗∗Life>0首部functionSmallPointToPoint(constP:TSmallPoint):TPoint;[𝑀𝑎𝑡ℎ功能根据成本、折旧率、和周期计算折旧。说明∗∗𝐿𝑖𝑓𝑒>0首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑚𝑎𝑙𝑙𝑃𝑜𝑖𝑛𝑡𝑇𝑜𝑃𝑜𝑖𝑛𝑡(𝑐𝑜𝑛𝑠𝑡𝑃:𝑇𝑆𝑚𝑎𝑙𝑙𝑃𝑜𝑖𝑛𝑡):𝑇𝑃𝑜𝑖𝑛𝑡;[Windows
功能 将小型坐标类型转换成坐标类型返回。
说明 TSmallPoint = record
x: SHORT;
y: SHORT;
end;
首部 function Sqr(X: <Number>): <Number>; [System功能返回参数X的平方值。说明甚至是较小的整数的平方也可能会产生不可预测的结果。为防止此类情况发生，建议最好将其赋给一个如Word、Longint类型或Int64类型的大型变量。首部functionSqrt(X:Extended):Extended;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回参数𝑋的平方值。说明甚至是较小的整数的平方也可能会产生不可预测的结果。为防止此类情况发生，建议最好将其赋给一个如𝑊𝑜𝑟𝑑、𝐿𝑜𝑛𝑔𝑖𝑛𝑡类型或𝐼𝑛𝑡64类型的大型变量。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑞𝑟𝑡(𝑋:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[System
功能 返回参数X的平方根值。
说明 Sqrt返回一个实数类型的结果。
首部 function StatusString(StatusCode: Integer): string; [HTTPApp功能返回一个HTTP事先指定答应身份代码的含义。说明首部functionStdDev(constData:arrayofDouble):Extended;[𝐻𝑇𝑇𝑃𝐴𝑝𝑝功能返回一个𝐻𝑇𝑇𝑃事先指定答应身份代码的含义。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑑𝐷𝑒𝑣(𝑐𝑜𝑛𝑠𝑡𝐷𝑎𝑡𝑎:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐷𝑜𝑢𝑏𝑙𝑒):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 返回数组的标准偏差。
说明
首部 procedure Str(X [: Width [: Decimals ]]; var S: <String>); [System功能把参数X的数值转换成相应的字符串表示方式，置于S中。说明Width表示字串S的整个宽度，Decimals表示小数部份的宽度。注意：给整型数据指定小数宽度属于非法的调用。首部functionStrAlloc(Size:Cardinal):PChar;[𝑆𝑦𝑠𝑡𝑒𝑚功能把参数𝑋的数值转换成相应的字符串表示方式，置于𝑆中。说明𝑊𝑖𝑑𝑡ℎ表示字串𝑆的整个宽度，𝐷𝑒𝑐𝑖𝑚𝑎𝑙𝑠表示小数部份的宽度。注意：给整型数据指定小数宽度属于非法的调用。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐴𝑙𝑙𝑜𝑐(𝑆𝑖𝑧𝑒:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 给以null结束的字符串分配最大长度-1的缓冲区
说明
首部 function StrBufSize(Str: PChar): Cardinal; [SysUtils功能返回存储在由stralloc分配的字符缓冲区的最大字符数。说明首部functionStrByteType(Str:PChar;Index:Cardinal):TMbcsByteType;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回存储在由𝑠𝑡𝑟𝑎𝑙𝑙𝑜𝑐分配的字符缓冲区的最大字符数。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐵𝑦𝑡𝑒𝑇𝑦𝑝𝑒(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟;𝐼𝑛𝑑𝑒𝑥:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝑇𝑀𝑏𝑐𝑠𝐵𝑦𝑡𝑒𝑇𝑦𝑝𝑒;[SysUtils
功能 返回指定位置Index上的字符是何类型。
说明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
首部 function StrCat(Dest, Source: PChar): PChar; [SysUtils功能将一字符串附加到另一字符串尾并返回合并的字符串。说明首部functionStrComp(Str1,Str2:PChar):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将一字符串附加到另一字符串尾并返回合并的字符串。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐶𝑜𝑚𝑝(𝑆𝑡𝑟1,𝑆𝑡𝑟2:𝑃𝐶ℎ𝑎𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 比较两个字符串。
说明
首部 function StrCopy(Dest, Source: PChar): PChar; [SysUtils功能将一个字符串复制到另一个字符串中。说明首部procedureStrDispose(Str:PChar);[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将一个字符串复制到另一个字符串中。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑆𝑡𝑟𝐷𝑖𝑠𝑝𝑜𝑠𝑒(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟);[SysUtils
功能 释放堆栈上的字符串。
说明
首部 function StrECopy(Dest, Source: PChar): PChar; [SysUtils功能将一字符串复制到另一个字符串并返回结果字符串尾部的指针。说明首部functionStrEnd(Str:PChar):PChar;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将一字符串复制到另一个字符串并返回结果字符串尾部的指针。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐸𝑛𝑑(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 返回指向字符串尾部的指针。
说明
首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; [SysUtils功能格式化一系列的参数。说明首部functionStrIComp(Str1,Str2:PChar):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能格式化一系列的参数。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐼𝐶𝑜𝑚𝑝(𝑆𝑡𝑟1,𝑆𝑡𝑟2:𝑃𝐶ℎ𝑎𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 比较两个字符串。
说明
首部 function StringOfChar(Ch: Char; Count: Integer): string; [System 功能 将Ch复制Count资返回。 说明 ##StringOfChar('A', 10) = 'AAAAAAAAAA' 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;[System 功能 将Ch复制Count资返回。 说明 ##StringOfChar('A', 10) = 'AAAAAAAAAA' 首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;[SysUtils
功能 在字符串S将老字符串OldPattern用新字符NewPattern串取代返回。
说明 type TReplaceFlags = set of (rfReplaceAll, rfIgnore Case); Flags的值为rfReplaceAll则需要全字匹配，否则将忽略大
小写。
首部 function StringToColor(const S: string): TColor; [Graphics功能将字符串转换成颜色类型返回。说明首部functionStringToCursor(constS:string):TCursor;[𝐺𝑟𝑎𝑝ℎ𝑖𝑐𝑠功能将字符串转换成颜色类型返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑖𝑛𝑔𝑇𝑜𝐶𝑢𝑟𝑠𝑜𝑟(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐶𝑢𝑟𝑠𝑜𝑟;[controls
功能 将字符串转换成串行类型返回。
说明 type TCursor = -32768..32767;
首部 function StringToGUID(const S: string): TGUID; [ComObj功能将字符串转换成图形界面类型返回。说明首部functionStringToOleStr(constSource:string):PWideChar;[𝐶𝑜𝑚𝑂𝑏𝑗功能将字符串转换成图形界面类型返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑖𝑛𝑔𝑇𝑜𝑂𝑙𝑒𝑆𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝑆𝑜𝑢𝑟𝑐𝑒:𝑠𝑡𝑟𝑖𝑛𝑔):𝑃𝑊𝑖𝑑𝑒𝐶ℎ𝑎𝑟;[System
功能 将Delphi的字符串转换成OLE格式返回。
说明
首部 function StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar; [System功能将Delphi的字符串转换成扩充字符串返回说明首部functionStripHotKey(constText:string):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能将𝐷𝑒𝑙𝑝ℎ𝑖的字符串转换成扩充字符串返回说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑖𝑝𝐻𝑜𝑡𝐾𝑒𝑦(𝑐𝑜𝑛𝑠𝑡𝑇𝑒𝑥𝑡:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[Menus
功能 返回快捷键的标记。
说明 ## StripHotKey (‘&Close’) = ‘Close’;
首部 function StrLCat(Dest, Source: PChar; MaxLen: Cardinal): PChar; [SysUtils功能将一字符串中的字符附加到另一字符串尾并返回合并的字符串。说明首部functionStrLComp(Str1,Str2:PChar;MaxLen:Cardinal):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将一字符串中的字符附加到另一字符串尾并返回合并的字符串。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐿𝐶𝑜𝑚𝑝(𝑆𝑡𝑟1,𝑆𝑡𝑟2:𝑃𝐶ℎ𝑎𝑟;𝑀𝑎𝑥𝐿𝑒𝑛:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 返回以最大长度MaxLen比较字符串Str1和Str2的状态。
说明
首部 function StrLCopy(Dest, Source: PChar; MaxLen: Cardinal): PChar; [SysUtils功能将一个字符串中的字符复制到另一个字符串中。说明首部functionStrLen(Str:PChar):Cardinal;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将一个字符串中的字符复制到另一个字符串中。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐿𝑒𝑛(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟):𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙;[SysUnits
功能 返回字符串中的字符数。
说明
首部 function StrLFmt(Buffer: PChar; MaxLen: Cardinal; Format: PChar; const Args: array of const): PChar; [SysUtils功能格式化一系列的参数，其结果中包含有指向目标缓冲区的指针。说明首部functionStrLIComp(Str1,Str2:PChar;MaxLen:Cardinals):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能格式化一系列的参数，其结果中包含有指向目标缓冲区的指针。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝐿𝐼𝐶𝑜𝑚𝑝(𝑆𝑡𝑟1,𝑆𝑡𝑟2:𝑃𝐶ℎ𝑎𝑟;𝑀𝑎𝑥𝐿𝑒𝑛:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙𝑠):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 以最大长度比较两个字符串。
说明
首部 function StrLower(Str: PChar): PChar;uses SysUtils; [SysUtils功能将字符串中的字符转换为小写。说明首部functionStrMove(Dest,Source:PChar;Count:Cardinal):PChar;usesSysUtils;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串中的字符转换为小写。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑀𝑜𝑣𝑒(𝐷𝑒𝑠𝑡,𝑆𝑜𝑢𝑟𝑐𝑒:𝑃𝐶ℎ𝑎𝑟;𝐶𝑜𝑢𝑛𝑡:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝑃𝐶ℎ𝑎𝑟;𝑢𝑠𝑒𝑠𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠;[SysUtils
功能 将一个字符串中的字符复制到另一个字符串中。
说明
首部 function StrNew(Str: PChar): PChar; [SysUtils功能在堆栈上分配一个字符串。说明首部functionStrPas(Str:PChar):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能在堆栈上分配一个字符串。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑃𝑎𝑠(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将以null结束的字符串转换为pascal类的字符串。
说明
首部 function StrPCopy(Dest: PChar; const Source: string): PChar; [SysUtils功能将pascal类的字符串复制为以null结束的字符串。说明Dest表示源地址。首部functionStrPLCopy(Dest:PChar;constSource:string;MaxLen:Cardinal):PChar;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝑝𝑎𝑠𝑐𝑎𝑙类的字符串复制为以𝑛𝑢𝑙𝑙结束的字符串。说明𝐷𝑒𝑠𝑡表示源地址。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑃𝐿𝐶𝑜𝑝𝑦(𝐷𝑒𝑠𝑡:𝑃𝐶ℎ𝑎𝑟;𝑐𝑜𝑛𝑠𝑡𝑆𝑜𝑢𝑟𝑐𝑒:𝑠𝑡𝑟𝑖𝑛𝑔;𝑀𝑎𝑥𝐿𝑒𝑛:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 从pascal类的最大长度字符串复制为以null结束的字符串。
说明
首部 function StrPos(Str1, Str2: PChar): PChar; [SysUtils功能返回一个字符串在另一个字符串中首次出现指针。说明首部functionStrRScan(Str:PChar;Chr:Char):PChar;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回一个字符串在另一个字符串中首次出现指针。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑅𝑆𝑐𝑎𝑛(𝑆𝑡𝑟:𝑃𝐶ℎ𝑎𝑟;𝐶ℎ𝑟:𝐶ℎ𝑎𝑟):𝑃𝐶ℎ𝑎𝑟;[SysUtils
功能 返回字符串中最后出现字符的指针。
说明
首部 function StrScan(Str: PChar; Chr: Char): PChar; [SysUtils功能返回字符串中出现首字符的指针。说明首部functionStrToCurr(constS:string):Currency;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回字符串中出现首字符的指针。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑇𝑜𝐶𝑢𝑟𝑟(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦;[SysUtils
功能 将字符串转换成一个货币数值返回。
说明 如果不是正确的货币数值字符串将会引起异常。
首部 function StrToDate(const S: string): TDateTime; [SysUtils功能将字符串转换为日期格式。说明如果不是正确的日期字符串将会引起异常。首部functionStrToDateTime(constS:string):TDateTime;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串转换为日期格式。说明如果不是正确的日期字符串将会引起异常。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑇𝑜𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 将字符串转换为日期时间格式。
说明 如果不是正确的日期时间字符串将会引起异常。
首部 function StrToFloat(const S: string): Extended; [SysUtils功能将给定的字符串转换为浮点数。说明如果不是正确的浮点数字符串将会引起异常。首部functionStrToInt(constS:string):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将给定的字符串转换为浮点数。说明如果不是正确的浮点数字符串将会引起异常。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑇𝑜𝐼𝑛𝑡(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[SysUtils
功能 将字符串转换为整型。
说明 如果不是正确的整数字符串将会引起异常。
首部 function StrToInt64(const S: string): Int64; [SysUtils功能将字符串转换为64位整型。说明参见StrToInt。首部functionStrToInt64Def(constS:string;Default:Int64):Int64;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串转换为64位整型。说明参见𝑆𝑡𝑟𝑇𝑜𝐼𝑛𝑡。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑇𝑜𝐼𝑛𝑡64𝐷𝑒𝑓(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔;𝐷𝑒𝑓𝑎𝑢𝑙𝑡:𝐼𝑛𝑡64):𝐼𝑛𝑡64;[SysUtils
功能 将字符串转换为64位整型或默认值。
说明 参见StrToIntDef。
首部 function StrToIntDef(const S: string; Default: Integer): Integer; [SysUtils 功能 将字符串转换为整型或默认值。 [注]有安全性。 说明 ## StrToIntDef(‘1200’, 100) = 1200; StrToIntDef(‘[SysUtils 功能 将字符串转换为整型或默认值。 [注]有安全性。 说明 ## StrToIntDef(‘1200’, 100) = 1200; StrToIntDef(‘12’, 100) = 18; StrToIntDef(‘za12′,100)=100;首部functionStrToTime(constS:string):TDateTime;12′,100)=100;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑡𝑟𝑇𝑜𝑇𝑖𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 将字符串转换为日期时间格式。
说明 参见StrToDate。
首部 function StrUpper(Str: PChar): PChar; [SysUtils功能将字符串中的字符转换为大写。说明首部functionSucc(X:<Ordinal>):<Ordinal>;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串中的字符转换为大写。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑢𝑐𝑐(𝑋:<𝑂𝑟𝑑𝑖𝑛𝑎𝑙>):<𝑂𝑟𝑑𝑖𝑛𝑎𝑙>;[System
功能 返回X参数的后继值。
说明 参见Prad。 ##Succ(‘c’) = ‘d’; Succ(False) = True;
首部 function Sum(const Data: array of Double): Extended register; [Math 功能 返回实型数组Data所有元素之和。 说明 ##const a: array[1..6] of Double = (1.2, -3, 0.13, 54, 867.45, 3.141592654); var e: Extended; begin e := Sum (a); end;{e = 922.921592654} 首部 function SumInt(const Data: array of Integer): Integer register;[Math 功能 返回实型数组Data所有元素之和。 说明 ##const a: array[1..6] of Double = (1.2, -3, 0.13, 54, 867.45, 3.141592654); var e: Extended; begin e := Sum (a); end;{e = 922.921592654} 首部 function SumInt(const Data: array of Integer): Integer register;[Math
功能 返回整型数组Data所有元素之和。
说明 ##const a: array[1..6] of Integer = (2, 7, 89, -12, 5, 54); var i: Integer; begin i := SumInt(a); end;{i = 145}
首部 function SumOfSquares(const Data: array of Double): Extended; [Math 功能 返回实型数组Data所有元素平方之和。{即：返回Data[0] ** 2 + Data[1] ** 2 + Data[2] ** 2+...} 说明 ##const a: array[1..2] of Double = (2, 7); var e: Extended; begin e := SumOfSquares (a); end;{e = 53} 首部 procedure SumsAndSquares(const Data: array of Double; var Sum, SumOfSquares: Extended) register;[Math 功能 返回实型数组Data所有元素平方之和。{即：返回Data[0] ** 2 + Data[1] ** 2 + Data[2] ** 2+...} 说明 ##const a: array[1..2] of Double = (2, 7); var e: Extended; begin e := SumOfSquares (a); end;{e = 53} 首部 procedure SumsAndSquares(const Data: array of Double; var Sum, SumOfSquares: Extended) register;[Math
功能 计算实型数组Data所有元素之和、所有元素平方之和，将其值返回至Sum、SumOfSquares中。
说明 ##const a: array[1..2] of Double = (2, 7); var s, e: Extended; begin SumsAndSquares(a, s, e); end;{ s = 9, e =
53}
首部 function Swap(X); [System 功能 交换参数X的高位和低位字节。 说明 此函数一般用于16位Integer或Word数据类型。 ##Swan([System 功能 交换参数X的高位和低位字节。 说明 此函数一般用于16位Integer或Word数据类型。 ##Swan(1234) = 3412;首部functionSYDDepreciation(Cost,Salvage:Extended;Life,Period:Integer):Extended;3412;首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑌𝐷𝐷𝑒𝑝𝑟𝑒𝑐𝑖𝑎𝑡𝑖𝑜𝑛(𝐶𝑜𝑠𝑡,𝑆𝑎𝑙𝑣𝑎𝑔𝑒:𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;𝐿𝑖𝑓𝑒,𝑃𝑒𝑟𝑖𝑜𝑑:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝐸𝑥𝑡𝑒𝑛𝑑𝑒𝑑;[Math
功能 计算跌价后的资产。
说明
首部 function SysErrorMessage(ErrorCode: Integer): string; [SysUtils功能返回系统中错误代码所对应的API信息。说明此函可以有助于已习惯Windows编程的用户使用。首部functionSysFreeMem(P:Pointer):Integer;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回系统中错误代码所对应的𝐴𝑃𝐼信息。说明此函可以有助于已习惯𝑊𝑖𝑛𝑑𝑜𝑤𝑠编程的用户使用。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑦𝑠𝐹𝑟𝑒𝑒𝑀𝑒𝑚(𝑃:𝑃𝑜𝑖𝑛𝑡𝑒𝑟):𝐼𝑛𝑡𝑒𝑔𝑒𝑟;[System or ShareMem
功能 返回指针所指向系统内存地址的自由空间大小。
说明
首部 function SysGetMem(Size: Integer): Pointer; [SystemorShareMem功能返回指定字节数量分配后的指针。说明首部functionSysReallocMem(P:Pointer;Size:Integer):Pointer;[𝑆𝑦𝑠𝑡𝑒𝑚𝑜𝑟𝑆ℎ𝑎𝑟𝑒𝑀𝑒𝑚功能返回指定字节数量分配后的指针。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑆𝑦𝑠𝑅𝑒𝑎𝑙𝑙𝑜𝑐𝑀𝑒𝑚(𝑃:𝑃𝑜𝑖𝑛𝑡𝑒𝑟;𝑆𝑖𝑧𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑃𝑜𝑖𝑛𝑡𝑒𝑟;[System or ShareMem
功能 返回指定字节数量再分配后的指针。
说明
首部 function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; [SysUtils 功能 将Windows的时间转换成Delphi的格式返回。 说明 ## 参见DateTimeToSystemTime。 首部 function Tan(X: Extended): Extended;[SysUtils 功能 将Windows的时间转换成Delphi的格式返回。 说明 ## 参见DateTimeToSystemTime。 首部 function Tan(X: Extended): Extended;[Math
功能 返回参数X的正切值。
说明 参数X以弧度为单位。{ Tan(X) = Sin(X) / Cos(X) }
首部 function Tanh(X: Extended): Extended; [Math功能返回参数X的双曲正切值。说明参数X以弧度为单位。首部functionTerminateExtension(dwFlags:DWORD):Bool;[𝑀𝑎𝑡ℎ功能返回参数𝑋的双曲正切值。说明参数𝑋以弧度为单位。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑇𝑒𝑟𝑚𝑖𝑛𝑎𝑡𝑒𝐸𝑥𝑡𝑒𝑛𝑠𝑖𝑜𝑛(𝑑𝑤𝐹𝑙𝑎𝑔𝑠:𝐷𝑊𝑂𝑅𝐷):𝐵𝑜𝑜𝑙;[ISAPIApp
功能 返回HTTP的申请是否准备好。
说明
首部 function TextToFloat(Buffer: PChar; var Value; Value Type: TFloatValue): Boolean; [SysUtils功能将字符串转换为浮点数。说明以null结束的格式。首部functionTextToShortCut(Text:string):TShortCut;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将字符串转换为浮点数。说明以𝑛𝑢𝑙𝑙结束的格式。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑇𝑒𝑥𝑡𝑇𝑜𝑆ℎ𝑜𝑟𝑡𝐶𝑢𝑡(𝑇𝑒𝑥𝑡:𝑠𝑡𝑟𝑖𝑛𝑔):𝑇𝑆ℎ𝑜𝑟𝑡𝐶𝑢𝑡;[Menus
功能 根据文字Text返回一个快捷的值。
说明 type TShortCut = Low(Word) .. High(Word);
首部 function Time: TDateTime; [SysUtils功能返回当前的时间。说明首部functionTimeStampToDateTime(constTimeStamp:TTimeStamp):TDateTime;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能返回当前的时间。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝𝑇𝑜𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒(𝑐𝑜𝑛𝑠𝑡𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝:𝑇𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝):𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒;[SysUtils
功能 将TimeStamp转换成Delphi的时间格式返回。
说明 type
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
首部 function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp; [SysUtils功能将TimeStamp转换成Comp类型返回。说明首部functionTimeToStr(Time:TDateTime):string;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能将𝑇𝑖𝑚𝑒𝑆𝑡𝑎𝑚𝑝转换成𝐶𝑜𝑚𝑝类型返回。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑇𝑖𝑚𝑒𝑇𝑜𝑆𝑡𝑟(𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 将时间格式转换为字符串。
说明
首部 function TotalVariance(const Data: array of Double): Extended; [Math功能统计数组的差异值。说明TotalVariance:SUM(i=1,N)[(X(i)−Mean)∗∗2]首部functionTrim(constS:string):string;[𝑀𝑎𝑡ℎ功能统计数组的差异值。说明𝑇𝑜𝑡𝑎𝑙𝑉𝑎𝑟𝑖𝑎𝑛𝑐𝑒:𝑆𝑈𝑀(𝑖=1,𝑁)[(𝑋(𝑖)−𝑀𝑒𝑎𝑛)∗∗2]首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑇𝑟𝑖𝑚(𝑐𝑜𝑛𝑠𝑡𝑆:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[SysUtils
功能 从给定的字符串中删除前导和尾部的空格及控制字符。
说明 ##‘[’+Trim(‘ Sysoft ’)+‘]’ = ‘[Sysoft]’;
首部 function TrimLeft(const S: string): string; [SysUtils 功能 从给定的字符串中删除首部的空格及控制字符。 说明 ##‘[’+Trim(‘ Sysoft ’)+‘]’ = ‘[Sysoft ]’; 首部 function TrimRight(const S: string): string;[SysUtils 功能 从给定的字符串中删除首部的空格及控制字符。 说明 ##‘[’+Trim(‘ Sysoft ’)+‘]’ = ‘[Sysoft ]’; 首部 function TrimRight(const S: string): string;[SysUtils
功能 从给定的字符串中删除尾部的空格及控制字符。
说明 ##‘[’+Trim(‘ Sysoft ’)+‘]’ = ‘[ Sysoft]’;
首部 function Trunc(X: Extended): Int64; [System 功能 将参数截尾取整。{即：返回[X]} 说明 此函数操作与Int类似，但返回的是一个整型结果。 ##Trunc(12.901) = 12 ;Trunc(-12.901) = -12; 首部 procedure Truncate(var F: <File>);[System 功能 将参数截尾取整。{即：返回[X]} 说明 此函数操作与Int类似，但返回的是一个整型结果。 ##Trunc(12.901) = 12 ;Trunc(-12.901) = -12; 首部 procedure Truncate(var F: <File>);[System
功能 截去文件当前指针位置以后的所有元素。
说明 调用Truncate可将文件当前文件F指针位置文件尾之间的部份删除掉。当前文件指针指向新的文件尾。
首部 function TypeInfo(TypeIdent): Pointer; [System功能在程序运行中返回类型标识的指针。说明首部procedureUnassociateAttr(constFieldID:TFieldID);[𝑆𝑦𝑠𝑡𝑒𝑚功能在程序运行中返回类型标识的指针。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑈𝑛𝑎𝑠𝑠𝑜𝑐𝑖𝑎𝑡𝑒𝐴𝑡𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐼𝐷:𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷);[DRIntf
功能 将属性标识和字段标识移开。
说明 type
TID = record Reseved: array[1..6] of Byte; end;
TFieldID = type TID;
首部 procedure UniqueString(var S: string); [System功能创建一个唯一的字符串。说明首部functionUnixPathToDosPath(constPath:string):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能创建一个唯一的字符串。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑈𝑛𝑖𝑥𝑃𝑎𝑡ℎ𝑇𝑜𝐷𝑜𝑠𝑃𝑎𝑡ℎ(𝑐𝑜𝑛𝑠𝑡𝑃𝑎𝑡ℎ:𝑠𝑡𝑟𝑖𝑛𝑔):𝑠𝑡𝑟𝑖𝑛𝑔;[HTTPApp
功能 将Unix系统路径名转换成Dos系统路径名返回。
说明 ##UnixPathToDosPath(‘c:/pascal/zs.pas’) = ‘c:\pascal\zs.pas’;
首部 procedure UnloadPackage(Module: HMODULE); [SysUtils功能离开一个包。说明首部functionUnmarshalAny(InBuf:IMarshalInBuffer):Variant;[𝑆𝑦𝑠𝑈𝑡𝑖𝑙𝑠功能离开一个包。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑈𝑛𝑚𝑎𝑟𝑠ℎ𝑎𝑙𝐴𝑛𝑦(𝐼𝑛𝐵𝑢𝑓:𝐼𝑀𝑎𝑟𝑠ℎ𝑎𝑙𝐼𝑛𝐵𝑢𝑓𝑓𝑒𝑟):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[corbaobj
功能 将ImarshalInBuffer类型的变量汇集返回。
说明
首部 function UnmarshalObject(InBuf: IMarshalInBuffer; IIhttps://www.gofarlic.com TGUID): IObject; [corbaobj功能说明首部functionUnmarshalText(InBuf:IMarshalInBuffer):string;[𝑐𝑜𝑟𝑏𝑎𝑜𝑏𝑗功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑈𝑛𝑚𝑎𝑟𝑠ℎ𝑎𝑙𝑇𝑒𝑥𝑡(𝐼𝑛𝐵𝑢𝑓:𝐼𝑀𝑎𝑟𝑠ℎ𝑎𝑙𝐼𝑛𝐵𝑢𝑓𝑓𝑒𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[corbaobj
功能
说明
首部 function UnmarshalWideText(InBuf: IMarshalInBuffer): WideString; [corbaobj功能说明首部procedureUnRegisterActions(constAClasses:arrayofTBasicActionClass);[𝑐𝑜𝑟𝑏𝑎𝑜𝑏𝑗功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑈𝑛𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐴𝑐𝑡𝑖𝑜𝑛𝑠(𝑐𝑜𝑛𝑠𝑡𝐴𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝐵𝑎𝑠𝑖𝑐𝐴𝑐𝑡𝑖𝑜𝑛𝐶𝑙𝑎𝑠𝑠);[ActnList
功能
说明
首部 procedure UnRegisterClass(AClass: TPersistentClass); [Classes功能说明首部procedureUnRegisterClasses(AClasses:arrayofTPersistentClass);[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑈𝑛𝑅𝑒𝑔𝑖𝑠𝑡𝑒𝑟𝐶𝑙𝑎𝑠𝑠𝑒𝑠(𝐴𝐶𝑙𝑎𝑠𝑠𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑇𝑃𝑒𝑟𝑠𝑖𝑠𝑡𝑒𝑛𝑡𝐶𝑙𝑎𝑠𝑠);[Classes
功能
说明
首部 procedure UnRegisterModuleClasses(Module: HMODULE); [Classes功能说明首部functionUpCase(Ch:Char):Char;[𝐶𝑙𝑎𝑠𝑠𝑒𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑈𝑝𝐶𝑎𝑠𝑒(𝐶ℎ:𝐶ℎ𝑎𝑟):𝐶ℎ𝑎𝑟;[System
功能 返回字符Ch的大写形式。
说明 若Ch不在[‘a’..’z’]的范围中，则调用将返回原值。 ##UpCase(‘e’) = ‘E’; UpCase(‘H’) = ‘H’;
首部 procedure UpdateAttr(Field: TField; const FieldIhttps://www.gofarlic.com TFieldID; const AttrIhttps://www.gofarlic.com TAttrID); [DRIntf功能说明首部procedureUpdateConstraints(DataSet:TDBDataset;Constraints:TCheckConstraints);[𝐷𝑅𝐼𝑛𝑡𝑓功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑈𝑝𝑑𝑎𝑡𝑒𝐶𝑜𝑛𝑠𝑡𝑟𝑎𝑖𝑛𝑡𝑠(𝐷𝑎𝑡𝑎𝑆𝑒𝑡:𝑇𝐷𝐵𝐷𝑎𝑡𝑎𝑠𝑒𝑡;𝐶𝑜𝑛𝑠𝑡𝑟𝑎𝑖𝑛𝑡𝑠:𝑇𝐶ℎ𝑒𝑐𝑘𝐶𝑜𝑛𝑠𝑡𝑟𝑎𝑖𝑛𝑡𝑠);[DRIntf
功能
说明
首部 procedure UpdateDataset(Dataset: TDBDataset); [DRIntf功能说明首部procedureUpdateField(Field:TField;constFieldID:TFieldID;constAttrID:TAttrID);[𝐷𝑅𝐼𝑛𝑡𝑓功能说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑈𝑝𝑑𝑎𝑡𝑒𝐹𝑖𝑒𝑙𝑑(𝐹𝑖𝑒𝑙𝑑:𝑇𝐹𝑖𝑒𝑙𝑑;𝑐𝑜𝑛𝑠𝑡𝐹𝑖𝑒𝑙𝑑𝐼𝐷:𝑇𝐹𝑖𝑒𝑙𝑑𝐼𝐷;𝑐𝑜𝑛𝑠𝑡𝐴𝑡𝑡𝑟𝐼𝐷:𝑇𝐴𝑡𝑡𝑟𝐼𝐷);[DRIntf
功能
说明
首部 function UpperCase(const S: string): string; [SysUtils 功能 返回字符串S的大写形式。 说明 若S中的字符不在[‘a’..’z’]的范围，则不作改变。 ## UpperCase(‘Chinese’) = ‘CHINESE’; UppperCase (‘ZswangY37’) = ‘ZSWANGY37’; 首部 procedure Val(S: <String>; var V: <Integer>; var Code: Integer);[SysUtils 功能 返回字符串S的大写形式。 说明 若S中的字符不在[‘a’..’z’]的范围，则不作改变。 ## UpperCase(‘Chinese’) = ‘CHINESE’; UppperCase (‘ZswangY37’) = ‘ZSWANGY37’; 首部 procedure Val(S: <String>; var V: <Integer>; var Code: Integer);[System
功能 将字符串S转换成整型值。
说明 若字符串S中有非法字符，则将第一个出错的位置返回至Code中。如果Code的值为0则表示转换成功。
首部 function ValidParentForm(Control: TControl): TCustomForm; [Forms功能说明首部functionVarArrayCreate(constBounds:arrayofInteger;VarType:Integer):Variant;[𝐹𝑜𝑟𝑚𝑠功能说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑟𝑟𝑎𝑦𝐶𝑟𝑒𝑎𝑡𝑒(𝑐𝑜𝑛𝑠𝑡𝐵𝑜𝑢𝑛𝑑𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑉𝑎𝑟𝑇𝑦𝑝𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[System
功能 以给定的界限和维数建立变体数组
说明 ##var a: Variant; begin A := VarArrayCreate([0, 4], varVariant); end;
首部 function VarArrayDimCount(const A: Variant): Integer; [System功能返回给定变体的维数。说明首部functionVarArrayFromStrings(Strings:TStrings):Variant;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回给定变体的维数。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑟𝑟𝑎𝑦𝐹𝑟𝑜𝑚𝑆𝑡𝑟𝑖𝑛𝑔𝑠(𝑆𝑡𝑟𝑖𝑛𝑔𝑠:𝑇𝑆𝑡𝑟𝑖𝑛𝑔𝑠):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[databkr
功能
说明
首部 function VarArrayHighBound(const A: Variant; Dim: Integer): Integer; [System功能返回给定变体数组维数的上界。说明首部functionVarArrayLock(varA:Variant):Pointer;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回给定变体数组维数的上界。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑟𝑟𝑎𝑦𝐿𝑜𝑐𝑘(𝑣𝑎𝑟𝐴:𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝑃𝑜𝑖𝑛𝑡𝑒𝑟;[System
功能 锁定给定的变体数组。
说明
首部 function VarArrayLowBound(const A: Variant; Dim: Integer): Integer; [System功能返回给定变体数组维数的下界。说明首部functionVarArrayOf(constValues:arrayofVariant):Variant;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回给定变体数组维数的下界。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑟𝑟𝑎𝑦𝑂𝑓(𝑐𝑜𝑛𝑠𝑡𝑉𝑎𝑙𝑢𝑒𝑠:𝑎𝑟𝑟𝑎𝑦𝑜𝑓𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[ System
功能 返回指定变体的数组元素。
说明
首部 procedure VarArrayRedim(var A: Variant; HighBound: Integer); [System功能通过改变上限来调整变体的大小。说明首部functionVarArrayRef(constA:Variant):Variant;[𝑆𝑦𝑠𝑡𝑒𝑚功能通过改变上限来调整变体的大小。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑟𝑟𝑎𝑦𝑅𝑒𝑓(𝑐𝑜𝑛𝑠𝑡𝐴:𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[ System
功能
说明
首部 procedure VarArrayUnlock(var A: Variant); [System功能解锁指定的变体数组。说明首部functionVarAsType(constV:Variant;VarType:Integer):Variant;[𝑆𝑦𝑠𝑡𝑒𝑚功能解锁指定的变体数组。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐴𝑠𝑇𝑦𝑝𝑒(𝑐𝑜𝑛𝑠𝑡𝑉:𝑉𝑎𝑟𝑖𝑎𝑛𝑡;𝑉𝑎𝑟𝑇𝑦𝑝𝑒:𝐼𝑛𝑡𝑒𝑔𝑒𝑟):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[ System
功能 将变体转换为指定的类型。
说明 类型属性代码参见VarType。
首部 procedure VarCast(var Dest: Variant; const Source: Variant; VarType: Integer); [System功能将变体转换为指定的类型并保存。说明首部procedureVarClear(varV:Variant);[𝑆𝑦𝑠𝑡𝑒𝑚功能将变体转换为指定的类型并保存。说明首部𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝑉𝑎𝑟𝐶𝑙𝑒𝑎𝑟(𝑣𝑎𝑟𝑉:𝑉𝑎𝑟𝑖𝑎𝑛𝑡);[ System
功能 清除指定的变体。
说明
首部 procedure VarCopy(var Dest: Variant; const Source: Variant); [System功能将指定的变体复制为指定的变体。说明首部functionVarFromDateTime(DateTime:TDateTime):Variant;[𝑆𝑦𝑠𝑡𝑒𝑚功能将指定的变体复制为指定的变体。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐹𝑟𝑜𝑚𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒(𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒:𝑇𝐷𝑎𝑡𝑒𝑇𝑖𝑚𝑒):𝑉𝑎𝑟𝑖𝑎𝑛𝑡;[ System
功能 返回包含日期时间的变体。
说明
首部 function Variance(const Data: array of Double): Extended; [System功能返回实型数组元素的偏移量。说明统计学中所用。首部functionVarIsArray(constV:Variant):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能返回实型数组元素的偏移量。说明统计学中所用。首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐼𝑠𝐴𝑟𝑟𝑎𝑦(𝑐𝑜𝑛𝑠𝑡𝑉:𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[ System
功能 测试变体是否为数组变量。
说明
首部 function VarIsEmpty(const V: Variant): Boolean; [System功能测试变体是否为UnAssigned。说明首部functionVarIsNull(constV:Variant):Boolean;[𝑆𝑦𝑠𝑡𝑒𝑚功能测试变体是否为𝑈𝑛𝐴𝑠𝑠𝑖𝑔𝑛𝑒𝑑。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝐼𝑠𝑁𝑢𝑙𝑙(𝑐𝑜𝑛𝑠𝑡𝑉:𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[ System
功能 测试变体是否为null。
说明
首部 function VarToDateTime(const V: Variant): TDateTime; [System功能将给定的变体转换为日期时间。说明首部functionVarToStr(constV:Variant):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能将给定的变体转换为日期时间。说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑉𝑎𝑟𝑇𝑜𝑆𝑡𝑟(𝑐𝑜𝑛𝑠𝑡𝑉:𝑉𝑎𝑟𝑖𝑎𝑛𝑡):𝑠𝑡𝑟𝑖𝑛𝑔;[ System
功能 返回变体的字符串形式。
说明 ## VarToStr(3.14) = ‘3.14’; VarToStr(True) = ‘1’;
首部 function VarType(const V: Variant): Integer; [System功能返回变体类型属性代码值。说明具体类型属性代码如下：constvarEmpty=[𝑆𝑦𝑠𝑡𝑒𝑚功能返回变体类型属性代码值。说明具体类型属性代码如下：𝑐𝑜𝑛𝑠𝑡𝑣𝑎𝑟𝐸𝑚𝑝𝑡𝑦=0000;
varNull = 0001;varSmallint=0001;𝑣𝑎𝑟𝑆𝑚𝑎𝑙𝑙𝑖𝑛𝑡=0002;
varInteger = 0003;varSingle=0003;𝑣𝑎𝑟𝑆𝑖𝑛𝑔𝑙𝑒=0004;
varDouble = 0005;varCurrency=0005;𝑣𝑎𝑟𝐶𝑢𝑟𝑟𝑒𝑛𝑐𝑦=0006;
varDate = 0007;varOleStr=0007;𝑣𝑎𝑟𝑂𝑙𝑒𝑆𝑡𝑟=0008;
varDispatch = 0009;varError=0009;𝑣𝑎𝑟𝐸𝑟𝑟𝑜𝑟=000A;
varBoolean = 000B;varVariant=000𝐵;𝑣𝑎𝑟𝑉𝑎𝑟𝑖𝑎𝑛𝑡=000C;
varUnknown = 000D;varByte=000𝐷;𝑣𝑎𝑟𝐵𝑦𝑡𝑒=0011;
varString = 0100;varTypeMask=0100;𝑣𝑎𝑟𝑇𝑦𝑝𝑒𝑀𝑎𝑠𝑘=0FFF;
varArray = 2000;varByRef=2000;𝑣𝑎𝑟𝐵𝑦𝑅𝑒𝑓=4000;
首部 function WideCharLenToString(Source: PWideChar; SourceLen: Integer): string; [System功能将Ansi字符串转换为UniCode字符串说明首部functionWideCharToString(Source:PWideChar):string;[𝑆𝑦𝑠𝑡𝑒𝑚功能将𝐴𝑛𝑠𝑖字符串转换为𝑈𝑛𝑖𝐶𝑜𝑑𝑒字符串说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑊𝑖𝑑𝑒𝐶ℎ𝑎𝑟𝑇𝑜𝑆𝑡𝑟𝑖𝑛𝑔(𝑆𝑜𝑢𝑟𝑐𝑒:𝑃𝑊𝑖𝑑𝑒𝐶ℎ𝑎𝑟):𝑠𝑡𝑟𝑖𝑛𝑔;[System
功能 将UniCode字符串转换为Ansi字符串
说明
首部 procedure WideCharToStrVar(Source: PWideChar; var Dest: string); [System功能将UniCode字符串转换为Ansi字符串变量说明首部functionWin32Check(RetVal:Bool):Bool;[𝑆𝑦𝑠𝑡𝑒𝑚功能将𝑈𝑛𝑖𝐶𝑜𝑑𝑒字符串转换为𝐴𝑛𝑠𝑖字符串变量说明首部𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝑊𝑖𝑛32𝐶ℎ𝑒𝑐𝑘(𝑅𝑒𝑡𝑉𝑎𝑙:𝐵𝑜𝑜𝑙):𝐵𝑜𝑜𝑙;[SysUtils
功能
说明
首部 function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):string; [ 功能 将字符串Line用指定的字符串BreakStr分离并返回。[其中: nBreakChars为条件，Max为最长宽度] 说明 type TSysCharSet = set of Char; ##begin ## WrapText('The rain in Spain falls mainly on the plain.', #13#10, ['.',' ',#9,'-'], 42); ## {The rain in Spain falls mainly on the} ## {plain.} ##end. 首部 procedure Write(F: <File>, V1,...,Vn);[ 功能 将字符串Line用指定的字符串BreakStr分离并返回。[其中: nBreakChars为条件，Max为最长宽度] 说明 type TSysCharSet = set of Char; ##begin ## WrapText('The rain in Spain falls mainly on the plain.', #13#10, ['.',' ',#9,'-'], 42); ## {The rain in Spain falls mainly on the} ## {plain.} ##end. 首部 procedure Write(F: <File>, V1,...,Vn);[System
功能 将的值送到输出文件中。
说明
首部 procedure Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] ); [System功能执行write过程，然后输出一行结束标志说明[Api函数]原形BOOLBitBlt(HDChdcDest,//handletodestinationdevicecontextintnXDest,//x−coordinateofdestinationrectangle′supper−leftcornerintnYDest,//y−coordinateofdestinationrectangle′supper−leftcornerintnWidth,//widthofdestinationrectangleintnHeight,//heightofdestinationrectangleHDChdcSrc,//handletosourcedevicecontextintnXSrc,//x−coordinateofsourcerectangle′supper−leftcornerintnYSrc,//y−coordinateofsourcerectangle′supper−leftcornerDWORDdwRop//rasteroperationcode);注明functionBitBlt(DestDC:HDC;X,Y,Width,Height:Integer;SrcDC:HDC;XSrc,YSrc:Integer;Rop:DWORD):BOOL;stdcall;[𝑆𝑦𝑠𝑡𝑒𝑚功能执行𝑤𝑟𝑖𝑡𝑒过程，然后输出一行结束标志说明[𝐴𝑝𝑖函数]原形𝐵𝑂𝑂𝐿𝐵𝑖𝑡𝐵𝑙𝑡(𝐻𝐷𝐶ℎ𝑑𝑐𝐷𝑒𝑠𝑡,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑑𝑒𝑣𝑖𝑐𝑒𝑐𝑜𝑛𝑡𝑒𝑥𝑡𝑖𝑛𝑡𝑛𝑋𝐷𝑒𝑠𝑡,//𝑥−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑜𝑓𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒′𝑠𝑢𝑝𝑝𝑒𝑟−𝑙𝑒𝑓𝑡𝑐𝑜𝑟𝑛𝑒𝑟𝑖𝑛𝑡𝑛𝑌𝐷𝑒𝑠𝑡,//𝑦−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑜𝑓𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒′𝑠𝑢𝑝𝑝𝑒𝑟−𝑙𝑒𝑓𝑡𝑐𝑜𝑟𝑛𝑒𝑟𝑖𝑛𝑡𝑛𝑊𝑖𝑑𝑡ℎ,//𝑤𝑖𝑑𝑡ℎ𝑜𝑓𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒𝑖𝑛𝑡𝑛𝐻𝑒𝑖𝑔ℎ𝑡,//ℎ𝑒𝑖𝑔ℎ𝑡𝑜𝑓𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒𝐻𝐷𝐶ℎ𝑑𝑐𝑆𝑟𝑐,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑠𝑜𝑢𝑟𝑐𝑒𝑑𝑒𝑣𝑖𝑐𝑒𝑐𝑜𝑛𝑡𝑒𝑥𝑡𝑖𝑛𝑡𝑛𝑋𝑆𝑟𝑐,//𝑥−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑜𝑓𝑠𝑜𝑢𝑟𝑐𝑒𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒′𝑠𝑢𝑝𝑝𝑒𝑟−𝑙𝑒𝑓𝑡𝑐𝑜𝑟𝑛𝑒𝑟𝑖𝑛𝑡𝑛𝑌𝑆𝑟𝑐,//𝑦−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑜𝑓𝑠𝑜𝑢𝑟𝑐𝑒𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒′𝑠𝑢𝑝𝑝𝑒𝑟−𝑙𝑒𝑓𝑡𝑐𝑜𝑟𝑛𝑒𝑟𝐷𝑊𝑂𝑅𝐷𝑑𝑤𝑅𝑜𝑝//𝑟𝑎𝑠𝑡𝑒𝑟𝑜𝑝𝑒𝑟𝑎𝑡𝑖𝑜𝑛𝑐𝑜𝑑𝑒);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐵𝑖𝑡𝐵𝑙𝑡(𝐷𝑒𝑠𝑡𝐷𝐶:𝐻𝐷𝐶;𝑋,𝑌,𝑊𝑖𝑑𝑡ℎ,𝐻𝑒𝑖𝑔ℎ𝑡:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑆𝑟𝑐𝐷𝐶:𝐻𝐷𝐶;𝑋𝑆𝑟𝑐,𝑌𝑆𝑟𝑐:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝑅𝑜𝑝:𝐷𝑊𝑂𝑅𝐷):𝐵𝑂𝑂𝐿;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 在设备描述表间复制位图，并返回是否复制成功。
说明
原形 BOOL ClientToScreen(
HWND hWnd, // window handle for source coordinates
LPPOINT lpPoint // pointer to structure containing screen coordinates
);
注明 function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall; [Windows功能将客户点转换成屏幕坐标。说明原形HCURSORCopyCursor(HCURSORpcur//handletocursortocopy);注明功能说明原形BOOLCopyFile(LPCTSTRlpExistingFileName,//pointertonameofanexistingfileLPCTSTRlpNewFileName,//pointertofilenametocopytoBOOLbFailIfExists//flagforoperationiffileexists);注明functionCopyFile(lpExistingFileName,lpNewFileName:PChar;bFailIfExists:BOOL):BOOL;stdcall;功能复制文件。说明原形HICONCopyIcon(HICONhIcon//handletoicontocopy);注明functionCopyIcon(hIcon:HICON):HICON;stdcall;[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能将客户点转换成屏幕坐标。说明原形𝐻𝐶𝑈𝑅𝑆𝑂𝑅𝐶𝑜𝑝𝑦𝐶𝑢𝑟𝑠𝑜𝑟(𝐻𝐶𝑈𝑅𝑆𝑂𝑅𝑝𝑐𝑢𝑟//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑐𝑢𝑟𝑠𝑜𝑟𝑡𝑜𝑐𝑜𝑝𝑦);注明功能说明原形𝐵𝑂𝑂𝐿𝐶𝑜𝑝𝑦𝐹𝑖𝑙𝑒(𝐿𝑃𝐶𝑇𝑆𝑇𝑅𝑙𝑝𝐸𝑥𝑖𝑠𝑡𝑖𝑛𝑔𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒,//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑛𝑎𝑚𝑒𝑜𝑓𝑎𝑛𝑒𝑥𝑖𝑠𝑡𝑖𝑛𝑔𝑓𝑖𝑙𝑒𝐿𝑃𝐶𝑇𝑆𝑇𝑅𝑙𝑝𝑁𝑒𝑤𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒,//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑓𝑖𝑙𝑒𝑛𝑎𝑚𝑒𝑡𝑜𝑐𝑜𝑝𝑦𝑡𝑜𝐵𝑂𝑂𝐿𝑏𝐹𝑎𝑖𝑙𝐼𝑓𝐸𝑥𝑖𝑠𝑡𝑠//𝑓𝑙𝑎𝑔𝑓𝑜𝑟𝑜𝑝𝑒𝑟𝑎𝑡𝑖𝑜𝑛𝑖𝑓𝑓𝑖𝑙𝑒𝑒𝑥𝑖𝑠𝑡𝑠);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑝𝑦𝐹𝑖𝑙𝑒(𝑙𝑝𝐸𝑥𝑖𝑠𝑡𝑖𝑛𝑔𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒,𝑙𝑝𝑁𝑒𝑤𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒:𝑃𝐶ℎ𝑎𝑟;𝑏𝐹𝑎𝑖𝑙𝐼𝑓𝐸𝑥𝑖𝑠𝑡𝑠:𝐵𝑂𝑂𝐿):𝐵𝑂𝑂𝐿;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;功能复制文件。说明原形𝐻𝐼𝐶𝑂𝑁𝐶𝑜𝑝𝑦𝐼𝑐𝑜𝑛(𝐻𝐼𝐶𝑂𝑁ℎ𝐼𝑐𝑜𝑛//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑖𝑐𝑜𝑛𝑡𝑜𝑐𝑜𝑝𝑦);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐶𝑜𝑝𝑦𝐼𝑐𝑜𝑛(ℎ𝐼𝑐𝑜𝑛:𝐻𝐼𝐶𝑂𝑁):𝐻𝐼𝐶𝑂𝑁;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 复制图标。
说明
原形 BOOL DeleteFile(
LPCTSTR lpFileName // pointer to name of file to delete
);
注明 function DeleteFile(lpFileName: PChar): BOOL; stdcall; [Windows功能删除指定文件，返回是否删除成功。说明原形BOOLDrawEdge(HDChdc,//handletodevicecontextLPRECTqrc,//pointertorectanglecoordinatesUINTedge,//typeofinnerandouteredgetodrawUINTgrfFlags//typeofborder);注明functionDrawEdge(hdc:HDC;varqrc:TRect;edge:UINT;grfFlags:UINT):BOOL;stdcall;[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能删除指定文件，返回是否删除成功。说明原形𝐵𝑂𝑂𝐿𝐷𝑟𝑎𝑤𝐸𝑑𝑔𝑒(𝐻𝐷𝐶ℎ𝑑𝑐,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑑𝑒𝑣𝑖𝑐𝑒𝑐𝑜𝑛𝑡𝑒𝑥𝑡𝐿𝑃𝑅𝐸𝐶𝑇𝑞𝑟𝑐,//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑟𝑒𝑐𝑡𝑎𝑛𝑔𝑙𝑒𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑠𝑈𝐼𝑁𝑇𝑒𝑑𝑔𝑒,//𝑡𝑦𝑝𝑒𝑜𝑓𝑖𝑛𝑛𝑒𝑟𝑎𝑛𝑑𝑜𝑢𝑡𝑒𝑟𝑒𝑑𝑔𝑒𝑡𝑜𝑑𝑟𝑎𝑤𝑈𝐼𝑁𝑇𝑔𝑟𝑓𝐹𝑙𝑎𝑔𝑠//𝑡𝑦𝑝𝑒𝑜𝑓𝑏𝑜𝑟𝑑𝑒𝑟);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐷𝑟𝑎𝑤𝐸𝑑𝑔𝑒(ℎ𝑑𝑐:𝐻𝐷𝐶;𝑣𝑎𝑟𝑞𝑟𝑐:𝑇𝑅𝑒𝑐𝑡;𝑒𝑑𝑔𝑒:𝑈𝐼𝑁𝑇;𝑔𝑟𝑓𝐹𝑙𝑎𝑔𝑠:𝑈𝐼𝑁𝑇):𝐵𝑂𝑂𝐿;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 拖动一个矩形边缘。
说明
原形 int EnumFonts(
HDC hdc, // handle to device context
LPCTSTR lpFaceName, // pointer to font typeface name string
FONTENUMPROC lpFontFunc, // pointer to callback function
LPARAM lParam // address of application-supplied data
);
注明 function EnumFonts(DC: HDC; lpszFace: PChar; fntenmprc: TFNFontEnumProc; lpszData: PChar): Integer; stdcall;
[Windows 功能 取得系统的字体列表。 说明 如果失败则返回0。 ## function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric; ## FontType: Integer; Data: Pointer): Integer; stdcall; ## begin ## TStrings(Data).Add(LogFont.lfFaceName); ## Result := 1; ## end; ## 。。。 ## var DC: HDC; ## begin ## DC := GetDC(0); ## EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items)); ## ReleaseDC(0, DC); ## FontName.Sorted := True; ## end; //取得系统的字体列表到FontName.Items中。 原形 BOOL ExitWindowsEx( UINT uFlags, // shutdown operation DWORD dwReserved // reserved ); 注明 function ExitWindowsEx(uFlags: UINT; dwReserved: DWORD): BOOL; stdcall;[Windows 功能 取得系统的字体列表。 说明 如果失败则返回0。 ## function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric; ## FontType: Integer; Data: Pointer): Integer; stdcall; ## begin ## TStrings(Data).Add(LogFont.lfFaceName); ## Result := 1; ## end; ## 。。。 ## var DC: HDC; ## begin ## DC := GetDC(0); ## EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items)); ## ReleaseDC(0, DC); ## FontName.Sorted := True; ## end; //取得系统的字体列表到FontName.Items中。 原形 BOOL ExitWindowsEx( UINT uFlags, // shutdown operation DWORD dwReserved // reserved ); 注明 function ExitWindowsEx(uFlags: UINT; dwReserved: DWORD): BOOL; stdcall;[Windows
功能 以指定方式退出Windows。
说明 参数uFlags 功能
EWX_FORCE | 关闭所有程序并以其他用户身份登录
EWX_LOGOFF | 重新启动计算机并切换到MS-DOS方式
EWX_REBOOT | 重新启动计算机
EWX_SHUTDOWN | 关闭计算机
EWX_POWEROFF |
EWX_FORCEIFHUNG |
原形 HICON ExtractIcon(
HINSTANCE hInst, // instance handle
LPCTSTR lpszExeFileName, // filename of file with icon
UINT nIconIndex // index of icon to extract
);
注明 function ExtractIcon(hInst: HINST; lpszExeFileName: PChar; nIconIndex: UINT): HICON; stdcall; [ShellApi功能说明原形HRSRCFindResource(HMODULEhModule,//resource−modulehandleLPCTSTRlpName,//pointertoresourcenameLPCTSTRlpType//pointertoresourcetype);注明functionFindResource(hModule:HMODULE;lpName,lpType:PChar):HRSRC;stdcall;功能说明原形BOOLGetCursorPos(LPPOINTlpPoint//addressofstructureforcursorposition);注明functionGetCursorPos(varlpPoint:TPoint):BOOL;stdcall;功能返回鼠标的坐标位置说明全屏幕原形HDCGetDC(HWNDhWnd//handleofwindow);注明functionGetDC(hWnd:HWND):HDC;stdcall;[𝑆ℎ𝑒𝑙𝑙𝐴𝑝𝑖功能说明原形𝐻𝑅𝑆𝑅𝐶𝐹𝑖𝑛𝑑𝑅𝑒𝑠𝑜𝑢𝑟𝑐𝑒(𝐻𝑀𝑂𝐷𝑈𝐿𝐸ℎ𝑀𝑜𝑑𝑢𝑙𝑒,//𝑟𝑒𝑠𝑜𝑢𝑟𝑐𝑒−𝑚𝑜𝑑𝑢𝑙𝑒ℎ𝑎𝑛𝑑𝑙𝑒𝐿𝑃𝐶𝑇𝑆𝑇𝑅𝑙𝑝𝑁𝑎𝑚𝑒,//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑟𝑒𝑠𝑜𝑢𝑟𝑐𝑒𝑛𝑎𝑚𝑒𝐿𝑃𝐶𝑇𝑆𝑇𝑅𝑙𝑝𝑇𝑦𝑝𝑒//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑟𝑒𝑠𝑜𝑢𝑟𝑐𝑒𝑡𝑦𝑝𝑒);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐹𝑖𝑛𝑑𝑅𝑒𝑠𝑜𝑢𝑟𝑐𝑒(ℎ𝑀𝑜𝑑𝑢𝑙𝑒:𝐻𝑀𝑂𝐷𝑈𝐿𝐸;𝑙𝑝𝑁𝑎𝑚𝑒,𝑙𝑝𝑇𝑦𝑝𝑒:𝑃𝐶ℎ𝑎𝑟):𝐻𝑅𝑆𝑅𝐶;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;功能说明原形𝐵𝑂𝑂𝐿𝐺𝑒𝑡𝐶𝑢𝑟𝑠𝑜𝑟𝑃𝑜𝑠(𝐿𝑃𝑃𝑂𝐼𝑁𝑇𝑙𝑝𝑃𝑜𝑖𝑛𝑡//𝑎𝑑𝑑𝑟𝑒𝑠𝑠𝑜𝑓𝑠𝑡𝑟𝑢𝑐𝑡𝑢𝑟𝑒𝑓𝑜𝑟𝑐𝑢𝑟𝑠𝑜𝑟𝑝𝑜𝑠𝑖𝑡𝑖𝑜𝑛);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐶𝑢𝑟𝑠𝑜𝑟𝑃𝑜𝑠(𝑣𝑎𝑟𝑙𝑝𝑃𝑜𝑖𝑛𝑡:𝑇𝑃𝑜𝑖𝑛𝑡):𝐵𝑂𝑂𝐿;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;功能返回鼠标的坐标位置说明全屏幕原形𝐻𝐷𝐶𝐺𝑒𝑡𝐷𝐶(𝐻𝑊𝑁𝐷ℎ𝑊𝑛𝑑//ℎ𝑎𝑛𝑑𝑙𝑒𝑜𝑓𝑤𝑖𝑛𝑑𝑜𝑤);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝐷𝐶(ℎ𝑊𝑛𝑑:𝐻𝑊𝑁𝐷):𝐻𝐷𝐶;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 返回设备驱动程序。
说明
原形 int GetDeviceCaps(
HDC hdc, // device-context handle
int nIndex // index of capability to query
);
注明 function GetDeviceCaps(DC: HDC; Index: Integer): Integer; stdcall; [Windows 功能 返回设备的性能。 说明 ## var ## ScreenLogPixels: Integer; ## DC: HDC; ## begin ## CurrText.Name := DefFontData.Name; ## DC := GetDC(0); ## ScreenLogPixels := GetDeviceCaps(DC, LOGPIXELSY); ## CurrText.Size := -MulDiv(DefFontData.Height, 72, ScreenLogPixels); ## end; //取得当前的字体 原形 DWORD GetFileAttributes( LPCTSTR lpFileName // address of the name of a file or directory ); 注明 function GetFileAttributesW(lpFileName: PWideChar): DWORD; stdcall; 功能 返回文件的属性 说明 FILE_ATTRIBUTE_ARCHIVE | 存档文件 FILE_ATTRIBUTE_COMPRESSED | 压缩文件 FILE_ATTRIBUTE_DIRECTORY | 目录 FILE_ATTRIBUTE_HIDDEN | 隐含文件 FILE_ATTRIBUTE_NORMAL | 正常文件 FILE_ATTRIBUTE_OFFLINE | 脱机文件 FILE_ATTRIBUTE_READONLY | 只读文件 FILE_ATTRIBUTE_SYSTEM | 系统文件 FILE_ATTRIBUTE_TEMPORARY | 临时文件 -1 | 不存在 原形 DWORD GetLastError(VOID) 注明 function GetLastError: DWORD; stdcall;[Windows 功能 返回设备的性能。 说明 ## var ## ScreenLogPixels: Integer; ## DC: HDC; ## begin ## CurrText.Name := DefFontData.Name; ## DC := GetDC(0); ## ScreenLogPixels := GetDeviceCaps(DC, LOGPIXELSY); ## CurrText.Size := -MulDiv(DefFontData.Height, 72, ScreenLogPixels); ## end; //取得当前的字体 原形 DWORD GetFileAttributes( LPCTSTR lpFileName // address of the name of a file or directory ); 注明 function GetFileAttributesW(lpFileName: PWideChar): DWORD; stdcall; 功能 返回文件的属性 说明 FILE_ATTRIBUTE_ARCHIVE | 存档文件 FILE_ATTRIBUTE_COMPRESSED | 压缩文件 FILE_ATTRIBUTE_DIRECTORY | 目录 FILE_ATTRIBUTE_HIDDEN | 隐含文件 FILE_ATTRIBUTE_NORMAL | 正常文件 FILE_ATTRIBUTE_OFFLINE | 脱机文件 FILE_ATTRIBUTE_READONLY | 只读文件 FILE_ATTRIBUTE_SYSTEM | 系统文件 FILE_ATTRIBUTE_TEMPORARY | 临时文件 -1 | 不存在 原形 DWORD GetLastError(VOID) 注明 function GetLastError: DWORD; stdcall;[Windows
功能 返回线程的最后错误代码。
说明
原形 int GetLocaleInfo(
LCID Locale, // locale identifier
LCTYPE LCType, // type of information
LPTSTR lpLCData, // address of buffer for information
int cchData // size of buffer
);
注明 function GetLocaleInfo(Locale: LCID; LCType: LCTYPE; lpLCData: PChar; cchData: Integer): Integer; stdcall;
[Windows功能从记录中获取本机信息。说明原形DWORDGetModuleFileName(HMODULEhModule,//handletomoduletofindfilenameforLPTSTRlpFilename,//pointertobufferformodulepathDWORDnSize//sizeofbuffer,incharacters);注明functionGetModuleFileName(hModule:HINST;lpFilename:PChar;nSize:DWORD):DWORD;stdcall;[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能从记录中获取本机信息。说明原形𝐷𝑊𝑂𝑅𝐷𝐺𝑒𝑡𝑀𝑜𝑑𝑢𝑙𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(𝐻𝑀𝑂𝐷𝑈𝐿𝐸ℎ𝑀𝑜𝑑𝑢𝑙𝑒,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑚𝑜𝑑𝑢𝑙𝑒𝑡𝑜𝑓𝑖𝑛𝑑𝑓𝑖𝑙𝑒𝑛𝑎𝑚𝑒𝑓𝑜𝑟𝐿𝑃𝑇𝑆𝑇𝑅𝑙𝑝𝐹𝑖𝑙𝑒𝑛𝑎𝑚𝑒,//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑏𝑢𝑓𝑓𝑒𝑟𝑓𝑜𝑟𝑚𝑜𝑑𝑢𝑙𝑒𝑝𝑎𝑡ℎ𝐷𝑊𝑂𝑅𝐷𝑛𝑆𝑖𝑧𝑒//𝑠𝑖𝑧𝑒𝑜𝑓𝑏𝑢𝑓𝑓𝑒𝑟,𝑖𝑛𝑐ℎ𝑎𝑟𝑎𝑐𝑡𝑒𝑟𝑠);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝑀𝑜𝑑𝑢𝑙𝑒𝐹𝑖𝑙𝑒𝑁𝑎𝑚𝑒(ℎ𝑀𝑜𝑑𝑢𝑙𝑒:𝐻𝐼𝑁𝑆𝑇;𝑙𝑝𝐹𝑖𝑙𝑒𝑛𝑎𝑚𝑒:𝑃𝐶ℎ𝑎𝑟;𝑛𝑆𝑖𝑧𝑒:𝐷𝑊𝑂𝑅𝐷):𝐷𝑊𝑂𝑅𝐷;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 返回指定模块的路径。
说明
原形 DWORD GetPrivateProfileString(
LPCTSTR lpAppName, // points to section name
LPCTSTR lpKeyName, // points to key name
LPCTSTR lpDefault, // points to default string
LPTSTR lpReturnedString, // points to destination buffer
DWORD nSize, // size of destination buffer
LPCTSTR lpFileName // points to initialization filename
);
注明 function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar; lpReturnedString: PChar; nSize: DWORD;
lpFileName: PChar): DWORD; stdcall; [Windows功能从私有的INI文件中获取字符串。说明原形DWORDGetShortPathName(LPCTSTRlpszLongPath,//pointstoanull−terminatedpathstringLPTSTRlpszShortPath,//pointstoabuffertoreceivethenull−terminatedshortformofthepathDWORDcchBuffer//specifiesthesizeofthebufferpointedtobylpszShortPath);注明functionGetShortPathName(lpszLongPath:PChar;lpszShortPath:PChar;cchBuffer:DWORD):DWORD;stdcall;[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能从私有的𝐼𝑁𝐼文件中获取字符串。说明原形𝐷𝑊𝑂𝑅𝐷𝐺𝑒𝑡𝑆ℎ𝑜𝑟𝑡𝑃𝑎𝑡ℎ𝑁𝑎𝑚𝑒(𝐿𝑃𝐶𝑇𝑆𝑇𝑅𝑙𝑝𝑠𝑧𝐿𝑜𝑛𝑔𝑃𝑎𝑡ℎ,//𝑝𝑜𝑖𝑛𝑡𝑠𝑡𝑜𝑎𝑛𝑢𝑙𝑙−𝑡𝑒𝑟𝑚𝑖𝑛𝑎𝑡𝑒𝑑𝑝𝑎𝑡ℎ𝑠𝑡𝑟𝑖𝑛𝑔𝐿𝑃𝑇𝑆𝑇𝑅𝑙𝑝𝑠𝑧𝑆ℎ𝑜𝑟𝑡𝑃𝑎𝑡ℎ,//𝑝𝑜𝑖𝑛𝑡𝑠𝑡𝑜𝑎𝑏𝑢𝑓𝑓𝑒𝑟𝑡𝑜𝑟𝑒𝑐𝑒𝑖𝑣𝑒𝑡ℎ𝑒𝑛𝑢𝑙𝑙−𝑡𝑒𝑟𝑚𝑖𝑛𝑎𝑡𝑒𝑑𝑠ℎ𝑜𝑟𝑡𝑓𝑜𝑟𝑚𝑜𝑓𝑡ℎ𝑒𝑝𝑎𝑡ℎ𝐷𝑊𝑂𝑅𝐷𝑐𝑐ℎ𝐵𝑢𝑓𝑓𝑒𝑟//𝑠𝑝𝑒𝑐𝑖𝑓𝑖𝑒𝑠𝑡ℎ𝑒𝑠𝑖𝑧𝑒𝑜𝑓𝑡ℎ𝑒𝑏𝑢𝑓𝑓𝑒𝑟𝑝𝑜𝑖𝑛𝑡𝑒𝑑𝑡𝑜𝑏𝑦𝑙𝑝𝑠𝑧𝑆ℎ𝑜𝑟𝑡𝑃𝑎𝑡ℎ);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐺𝑒𝑡𝑆ℎ𝑜𝑟𝑡𝑃𝑎𝑡ℎ𝑁𝑎𝑚𝑒(𝑙𝑝𝑠𝑧𝐿𝑜𝑛𝑔𝑃𝑎𝑡ℎ:𝑃𝐶ℎ𝑎𝑟;𝑙𝑝𝑠𝑧𝑆ℎ𝑜𝑟𝑡𝑃𝑎𝑡ℎ:𝑃𝐶ℎ𝑎𝑟;𝑐𝑐ℎ𝐵𝑢𝑓𝑓𝑒𝑟:𝐷𝑊𝑂𝑅𝐷):𝐷𝑊𝑂𝑅𝐷;𝑠𝑡𝑑𝑐𝑎𝑙𝑙;[Windows
功能 返回长路径lpszLongPath的短路径到lpszShortPath中。CchBuffer指定了lpszShortPath的缓冲区大小。
说明 短路径[即: DOS标准"<FileName(8)>.<Extension(3)>"形式]
原形 UINT GetSystemDirectory(
LPTSTR lpBuffer, // address of buffer for system directory
UINT uSize // size of directory buffer
);
注明 GetSystemDirectory(lpBuffer: PChar; uSize: Cardinal): Integer; [Windows功能返回Windows的运行路径。uSize指定了lpBuffer的缓冲区大小。说明原形VOIDGetSystemTime(LPSYSTEMTIMElpSystemTime//addressofsystemtimestructure);注明procedureGetSystemTime(varlpSystemTime:SYSTEMTIME);[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能返回𝑊𝑖𝑛𝑑𝑜𝑤𝑠的运行路径。𝑢𝑆𝑖𝑧𝑒指定了𝑙𝑝𝐵𝑢𝑓𝑓𝑒𝑟的缓冲区大小。说明原形𝑉𝑂𝐼𝐷𝐺𝑒𝑡𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒(𝐿𝑃𝑆𝑌𝑆𝑇𝐸𝑀𝑇𝐼𝑀𝐸𝑙𝑝𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒//𝑎𝑑𝑑𝑟𝑒𝑠𝑠𝑜𝑓𝑠𝑦𝑠𝑡𝑒𝑚𝑡𝑖𝑚𝑒𝑠𝑡𝑟𝑢𝑐𝑡𝑢𝑟𝑒);注明𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑒𝑡𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒(𝑣𝑎𝑟𝑙𝑝𝑆𝑦𝑠𝑡𝑒𝑚𝑇𝑖𝑚𝑒:𝑆𝑌𝑆𝑇𝐸𝑀𝑇𝐼𝑀𝐸);[Windows
功能 取得系统时间。
说明 //不太稳定。
原形 DWORD GetTickCount(VOID)
注明 function GetTickCount: Integer; [Windows功能返回WINDOWS运行时间说明原形VOIDGlobalMemoryStatus(LPMEMORYSTATUSlpBuffer//pointertothememorystatusstructure);注明procedureGlobalMemoryStatus(varlpBuffer:TMemoryStatus);stdcall;功能检查内存的状态，返回到参数lpBuffer中。说明$EXTERNALSYMMEMORYSTATUSMEMORYSTATUS=recorddwLength:DWORD;dwMemoryLoad:DWORD;dwTotalPhys:DWORD;dwAvailPhys:DWORD;dwTotalPageFile:DWORD;dwAvailPageFile:DWORD;dwTotalVirtual:DWORD;dwAvailVirtual:DWORD;end;TMemoryStatus=MEMORYSTATUS;原形BOOLImageListDrawEx(HIMAGELISThiml,//handletotheimagelistinti,//indexoftheimagetodrawHDChdcDst,//handletothedestinationdevicecontextintx,//x−coordinatetodrawatinty,//y−coordinatetodrawatintdx,//widthofimageintdy,//heightofimageCOLORREFrgbBk,//backgroundcolorofimageCOLORREFrgbFg,//foregroundcolorofimageUINTfStyle//drawingstyle);注明functionImageListDrawEx(ImageList:THandle;Index:Integer;Dest:HDC;X,Y:Integer;DX,DY:Integer;BK,Fg:TColor;Style:Cardinal):Boolean;[𝑊𝑖𝑛𝑑𝑜𝑤𝑠功能返回𝑊𝐼𝑁𝐷𝑂𝑊𝑆运行时间说明原形𝑉𝑂𝐼𝐷𝐺𝑙𝑜𝑏𝑎𝑙𝑀𝑒𝑚𝑜𝑟𝑦𝑆𝑡𝑎𝑡𝑢𝑠(𝐿𝑃𝑀𝐸𝑀𝑂𝑅𝑌𝑆𝑇𝐴𝑇𝑈𝑆𝑙𝑝𝐵𝑢𝑓𝑓𝑒𝑟//𝑝𝑜𝑖𝑛𝑡𝑒𝑟𝑡𝑜𝑡ℎ𝑒𝑚𝑒𝑚𝑜𝑟𝑦𝑠𝑡𝑎𝑡𝑢𝑠𝑠𝑡𝑟𝑢𝑐𝑡𝑢𝑟𝑒);注明𝑝𝑟𝑜𝑐𝑒𝑑𝑢𝑟𝑒𝐺𝑙𝑜𝑏𝑎𝑙𝑀𝑒𝑚𝑜𝑟𝑦𝑆𝑡𝑎𝑡𝑢𝑠(𝑣𝑎𝑟𝑙𝑝𝐵𝑢𝑓𝑓𝑒𝑟:𝑇𝑀𝑒𝑚𝑜𝑟𝑦𝑆𝑡𝑎𝑡𝑢𝑠);𝑠𝑡𝑑𝑐𝑎𝑙𝑙;功能检查内存的状态，返回到参数𝑙𝑝𝐵𝑢𝑓𝑓𝑒𝑟中。说明$𝐸𝑋𝑇𝐸𝑅𝑁𝐴𝐿𝑆𝑌𝑀𝑀𝐸𝑀𝑂𝑅𝑌𝑆𝑇𝐴𝑇𝑈𝑆𝑀𝐸𝑀𝑂𝑅𝑌𝑆𝑇𝐴𝑇𝑈𝑆=𝑟𝑒𝑐𝑜𝑟𝑑𝑑𝑤𝐿𝑒𝑛𝑔𝑡ℎ:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝑀𝑒𝑚𝑜𝑟𝑦𝐿𝑜𝑎𝑑:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝑇𝑜𝑡𝑎𝑙𝑃ℎ𝑦𝑠:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝐴𝑣𝑎𝑖𝑙𝑃ℎ𝑦𝑠:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝑇𝑜𝑡𝑎𝑙𝑃𝑎𝑔𝑒𝐹𝑖𝑙𝑒:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝐴𝑣𝑎𝑖𝑙𝑃𝑎𝑔𝑒𝐹𝑖𝑙𝑒:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝑇𝑜𝑡𝑎𝑙𝑉𝑖𝑟𝑡𝑢𝑎𝑙:𝐷𝑊𝑂𝑅𝐷;𝑑𝑤𝐴𝑣𝑎𝑖𝑙𝑉𝑖𝑟𝑡𝑢𝑎𝑙:𝐷𝑊𝑂𝑅𝐷;𝑒𝑛𝑑;𝑇𝑀𝑒𝑚𝑜𝑟𝑦𝑆𝑡𝑎𝑡𝑢𝑠=𝑀𝐸𝑀𝑂𝑅𝑌𝑆𝑇𝐴𝑇𝑈𝑆;原形𝐵𝑂𝑂𝐿𝐼𝑚𝑎𝑔𝑒𝐿𝑖𝑠𝑡𝐷𝑟𝑎𝑤𝐸𝑥(𝐻𝐼𝑀𝐴𝐺𝐸𝐿𝐼𝑆𝑇ℎ𝑖𝑚𝑙,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑡ℎ𝑒𝑖𝑚𝑎𝑔𝑒𝑙𝑖𝑠𝑡𝑖𝑛𝑡𝑖,//𝑖𝑛𝑑𝑒𝑥𝑜𝑓𝑡ℎ𝑒𝑖𝑚𝑎𝑔𝑒𝑡𝑜𝑑𝑟𝑎𝑤𝐻𝐷𝐶ℎ𝑑𝑐𝐷𝑠𝑡,//ℎ𝑎𝑛𝑑𝑙𝑒𝑡𝑜𝑡ℎ𝑒𝑑𝑒𝑠𝑡𝑖𝑛𝑎𝑡𝑖𝑜𝑛𝑑𝑒𝑣𝑖𝑐𝑒𝑐𝑜𝑛𝑡𝑒𝑥𝑡𝑖𝑛𝑡𝑥,//𝑥−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑡𝑜𝑑𝑟𝑎𝑤𝑎𝑡𝑖𝑛𝑡𝑦,//𝑦−𝑐𝑜𝑜𝑟𝑑𝑖𝑛𝑎𝑡𝑒𝑡𝑜𝑑𝑟𝑎𝑤𝑎𝑡𝑖𝑛𝑡𝑑𝑥,//𝑤𝑖𝑑𝑡ℎ𝑜𝑓𝑖𝑚𝑎𝑔𝑒𝑖𝑛𝑡𝑑𝑦,//ℎ𝑒𝑖𝑔ℎ𝑡𝑜𝑓𝑖𝑚𝑎𝑔𝑒𝐶𝑂𝐿𝑂𝑅𝑅𝐸𝐹𝑟𝑔𝑏𝐵𝑘,//𝑏𝑎𝑐𝑘𝑔𝑟𝑜𝑢𝑛𝑑𝑐𝑜𝑙𝑜𝑟𝑜𝑓𝑖𝑚𝑎𝑔𝑒𝐶𝑂𝐿𝑂𝑅𝑅𝐸𝐹𝑟𝑔𝑏𝐹𝑔,//𝑓𝑜𝑟𝑒𝑔𝑟𝑜𝑢𝑛𝑑𝑐𝑜𝑙𝑜𝑟𝑜𝑓𝑖𝑚𝑎𝑔𝑒𝑈𝐼𝑁𝑇𝑓𝑆𝑡𝑦𝑙𝑒//𝑑𝑟𝑎𝑤𝑖𝑛𝑔𝑠𝑡𝑦𝑙𝑒);注明𝑓𝑢𝑛𝑐𝑡𝑖𝑜𝑛𝐼𝑚𝑎𝑔𝑒𝐿𝑖𝑠𝑡𝐷𝑟𝑎𝑤𝐸𝑥(𝐼𝑚𝑎𝑔𝑒𝐿𝑖𝑠𝑡:𝑇𝐻𝑎𝑛𝑑𝑙𝑒;𝐼𝑛𝑑𝑒𝑥:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝐷𝑒𝑠𝑡:𝐻𝐷𝐶;𝑋,𝑌:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝐷𝑋,𝐷𝑌:𝐼𝑛𝑡𝑒𝑔𝑒𝑟;𝐵𝐾,𝐹𝑔:𝑇𝐶𝑜𝑙𝑜𝑟;𝑆𝑡𝑦𝑙𝑒:𝐶𝑎𝑟𝑑𝑖𝑛𝑎𝑙):𝐵𝑜𝑜𝑙𝑒𝑎𝑛;[Commctrl
功能
说明
原形 BOOL InflateRect(
LPRECT lprc, // address of rectangle
int dx, // amount to increase or decrease width
int dy // amount to increase or decrease height
);
注明 function InflateRect(var Iprc: TRect; dx, dy: Integer): Boolean;
功能 改变矩形大小
说明
原形 HINSTANCE LoadLibraryEx(
LPCTSTR lpLibFileName, // points to name of executable module
HANDLE hFile, // reserved, must be NULL
DWORD dwFlags // entry-point execution flag
);
注明 function LoadLibraryEx(lpLibFileName: PChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
功能
说明
原形 LPTSTR lstrcpy(
LPTSTR lpString1, // address of buffer
LPCTSTR lpString2 // address of string to copy
);
首部 function lstrcpy; external kernel32 name 'lstrcpyA';
注明 function lstrcpy(lpString1, lpString2: PChar): PChar; stdcall; [Windows功能说明原形intMulDiv(intnNumber,//32−bitsignedmultiplicandintnNumerator,//32−bitsignedmultiplierintnDenominator//32−bitsigneddivisor);注明functionMulDiv(nNumber,nNumerator,nDenominator:Integer):Integer;stdcall;[Windows
功能 将两数相乘并除以结果。
说明
原形BOOL PostMessage(
HWND hWnd, // handle of destination window
UINT Msg, // message to post
WPARAM wParam, // first message parameter
LPARAM lParam // second message parameter
);
注明 function PostMessage(hWnd: HWND; Msg: Cardinal; wParam: Integer; lParam: Integer): Boolean;
功能 将消息加入线索消息队列。
说明
原形 int ReleaseDC(
HWND hWnd, // handle of window
HDC hDC // handle of device context
);
注明 function ReleaseDC(hWnd: HWND; hDC: HDC): Integer; [Windows功能释放设备描述表。说明原形BOOLSetCursorPos(intX,//horizontalpositionintY//verticalposition);注明functionSetCursorPos(X,Y:Integer):BOOL;stdcall;功能设置鼠标的坐标位置说明全屏幕原形COLORREFSetBkColor(HDChdc,//handleofdevicecontextCOLORREFcrColor//backgroundcolorvalue);注明functionSetBkColor(DC:HDC;Color:Cardinal):TColor;[Windows
功能 设置当前文本背景色。
说明 如果设置成功则返回之前的颜色，否则返回CLR_INVALID。
原形 BOOL SetSystemTime(
CONST SYSTEMTIME *lpSystemTime // address of system time to set
);
注明 function SetSystemTime(lpSystemTime: _SYSTEMTIME): Boolean; [Windows功能设置系统日期时间。说明//不太稳定。原形COLORREFSetTextColor(HDChdc,//handleofdevicecontextCOLORREFcrColor//textcolor);注明functionSetTextColor(DC:HDC;Color:Cardinal):TColor;[Windows
功能 设置当前文本前景色。
说明 如果设置成功则返回之前的颜色，否则返回CLR_INVALID。可以调用GetLastError检查。
原形 VOID Sleep(
DWORD dwMilliseconds // sleep time in milliseconds
);
注明 procedure Sleep(dwMilliseconds: DWORD); stdcall; [Windows功能在指定时间dwMilliseconds内暂停执行。说明以毫微秒为单位。原形LRESULTSendMessage(HWNDhWnd,//handleofdestinationwindowUINTMsg,//messagetosendWPARAMwParam,//firstmessageparameterLPARAMlParam//secondmessageparameter);注明SendMessage(hWnd:HWND;Msg:Cardinal;wParam:Integer;lparam:Integer):Integer;[Windows
功能 给指定元件(窗体)发送消息。
说明 ## SendMessage(Edit1.handle, WM_ACTIVATE, 1, 0); //设置焦点到Edit1上。
原形 UINT WinExec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);
注明 WinExec(var lpCmdLine: PChar; uCmdShow: Cardinal): Integer; [Windows功能执行Windows的命令。说明原形BOOLWritePrivateProfileString(LPCTSTRlpAppName,//pointertosectionnameLPCTSTRlpKeyName,//pointertokeynameLPCTSTRlpString,//pointertostringtoaddLPCTSTRlpFileName//pointertoinitializationfilename);注明functionWritePrivateProfileString(lpAppName,lpKeyName,lpString,lpFileName:PChar):BOOL;stdcall;[Windows
功能 向私有INI文件输出字符串。
说明
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删
技术文档
热门文章
155-2731-8020
