Delphi标准函数.docx

1、Delphi标准函数标准函数和过程首部 procedure Abort;$SysUtils功能 引起放弃的意外处理。说明 不显示任何错误信息。首部 function Abs(N: ): ;$System功能 返回参数N的绝对值。说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。 # Abs(-12) = 12；Abs(-12.03) = 12.03首部 procedure AddExitProc(Proc: TProcedure);$SysUtils功能 将旧版本某一过程添加到当前版本运行的库的结束过程表中。说明 只能向下兼容，不能用在当前使用版本的首部 function Addr

2、(X): Pointer;$System 功能 返回指定对象的内存地址。说明 地址运算符 可以产生与Addr相同的结果。首部 procedure AddTerminateProc(TermProc: TTerminateProc);$SysUtils功能 将一过程添加到运行时库的终止过程表中。说明 Delphi 在程序结束时将终止该程序的全部进程，可以终止的进程都放在终止过程表中， 程序通过结束终止过程表所有的进程来实现终止全部进程的目的。首部 function AdjustLineBreaks(const S: string): string;$SysUtils功能 将给定字符串的行分隔符调

3、整为Cr/Lf序列。说明 首部 function AllocMem(Size: Cardinal): Pointer;$SysUtils功能 在堆栈上分配给定大小为 Size字节的块，即在内存里开辟Size 大小的空间。说明 Cardinal 0.4294967295 32位无符号整数首部 function AnsiCompareFileName(const S1, S2: string): Integer;$SysUtils功能 比较两个文件名的大小。不区分大小写。说明 条件 返回值 S1 S2 | 0 S1 S2 | 0 S1 = S2 | = 0首部 function AnsiCompa

4、reStr(const S1, S2: string): Integer;$SysUtils功能 比较两个字符串的大小。要区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiCompareText(const S1, S2: string): Integer;$SysUtils功能 返回两个字符串是否相同的状态。不区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$SysUtils功能 将引用字串转换成结

5、束引语返回。说明 函数支持多字节字符系统MBCS。首部 function AnsiLastChar(const S: string): PChar;$SysUtils功能 取参数S的最后一个字符，并转换成以null结束的字符串指针返回。说明 #AnsiLastChar(Sysoft) = t0;首部 function AnsiLowerCase(const S: string): string;$SysUtils功能 将字符串S转换为小写返回。说明 函数支持多字节字符系统MBCS。首部 function AnsiLowerCaseFileName(const S: string): strin

6、g;$SysUtils功能 将文件名S转换成小写返回说明 函数支持多字节字符系统MBCS。首部 function AnsiPos(const Substr, S: string): Integer; $SysUtils功能 返回子串Substr出现在主串S中的第一个位置。说明 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $SysUtils功能 返回引用字串的译文说明 首部 function AnsiStrComp(S1, S2: PChar): Integer; $SysUtils功能 比较两个指针字符串的大

7、小。要区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiStrIComp(S1, S2: PChar): Integer; $SysUtils功能 比较两个指针字符串的大小。不区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiStrLastChar(P: PChar): PChar; $SysUtils功能 返回字符串指针气所指向的最后一个字符位置说明 首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $SysUtils功

8、能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $SysUnits功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。说明 参见AnsiCompareFileName。首部 function AnsiStrLower(Str: PChar): PChar; $SysUtils功能 将指针字符串S转换为小写返回。说明 首部 function AnsiStrPos

9、(Str, SubStr: PChar): PChar; $SysUtils功能 在指针字符串中返回子串Substr出现在主串S中的第一个位置。说明 首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $SysUtils功能 返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串说明 # AnsiStrRScan(Zswangs1234567, s) = s1234567;首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $SysUtils功能 返回以字符C

10、hr在指针字符串Str中的第一个位置为起始位置的指针字符串说明 # AnsiStrScan(Zswangs1234567, s) = swangs1234567;首部 function AnsiStrUpper(Str: PChar): PChar; $SysUtils功能 将指针字符串S转换成大写返回。说明 首部 function AnsiToNative(Locale: TLocale; const AnsiStr: string; NativeStr: PChar; MaxLen: Integer): PChar; $SysUtils功能 将字符串集转换成现场数据返回说明 type TL

11、ocale = Pointer;首部 procedure AnsiToNativeBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $SysUtils功能 将字符串集转换成现场数据说明 首部 function AnsiUpperCase(const S: string): string; $SysUtils功能 将字符转换为大写返回。说明 首部 function AnsiUpperCaseFileName(const S: string): string; $SysUtils功能 将文件名转换为大写返回。说明 首部 procedu

12、re Append(var F: Text); $System功能 以附加的方式打开已有的文件。说明 调用Append前，F必须已与一个外部文件相联系。对用Append打开的文件，仅有合法操作是调用Write或Writeln。首部 procedure AppendStr(var Dest: string; const S: string); $SysUtils功能 将字串S添加到字串Dest中。即运行: Dest := Dest + s;说明 # AppendStr(Sysoft, 1999) = Sysoft1999;首部 function ArcCos(X: Extended): Exte

13、nded; $Math功能 返回X参数的反余弦值。说明 函数结果取弧度值。首部 function ArcCosh(X: Extended): Extended; $Math功能 返回X参数的反双曲余弦值。说明 函数结果取弧度值。首部 function ArcSin(X: Extended): Extended; $Math功能 返回X参数的反正弦值。说明 函数结果取弧度值。首部 function ArcSinh(X: Extended): Extended; $Math功能 返回X参数的反双曲正弦值。说明 函数结果取弧度值。首部 function ArcTan(X: Extended): Ex

14、tended; $System功能 返回参数X的反正切函数值。说明 函数结果取弧度值。首部 function ArcTan2(Y, X: Extended): Extended; $Math功能 返回参数Y除于X参数的反正切函数值。即：返回ArcTan(Y/X)说明 函数结果取弧度值。首部 function ArcTanh(X: Extended): Extended; $Math功能 返回参数X的反双曲正切函数值。说明 函数结果取弧度值。首部 procedure Assert(expr : Boolean ; const msg: string); $System功能 测试布尔表达式是否成功

15、说明 $ASSERTIONS ON/OFF | (long form) $C +/- | (short form)首部 function Assigned(var P): Boolean; $System功能 返回变体是否非空。说明 # if Assigned(Edit1) then Edit1.Free;首部 procedure AssignFile(var F; FileName: string); $System功能 给文件变量赋一外部文件名。说明 用 F 文件变量打开 FileName 名字的文件首部 procedure AssignPrn(var F: Text); $Printer

16、s功能 指定文本变量F的打印机说明 首部 procedure AssignStr(var P: PString; const S: string); $SysUtils功能 将字符串列入指针说明 PString 是 AnsiString 指针首部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $DRIntf功能 将ID属性和事件关联说明 type TID = record Reseved: array1.6 of Byte; end; TFieldID = type TID; TAttrID =

17、 type TID;首部 procedure Beep; $SysUtils功能 产生一个标准的电脑发声beep。说明 这个Beep过程使用了Windows下的API函数MessageBeep。首部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $SysUtils功能 以适当的方式建立用于内存管

18、理的线程。说明 首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean; out Stub: IStub); $orbpas功能 获得界面CORBA服务器的对象作为IStub界面说明 CORBA:程序体系结构首部 procedure BlockRead(var F: File; var Buf: ; Count: Integer ; var AmtTransferred: Integer); $System功能 从无类型文件F

19、中读出Count个记录赋予变量Buf。说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改变从128到不同字节块大小。首部 procedure BlockWrite(var F: File; var Buf: ; Count: Integer ; var AmtTransferred: Integer); $System功能 把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参

20、数的Rewrite来改变从128到不同字节块大小。首部 function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect; $Classes功能 返回指定坐标和范围的TRect数据说明 type TPoint = record X: Longint; Y: Longint; end; TRect = record case Integer of 0: (Left, Top, Right, Bottom: Integer); 1: (TopLeft, BottomRight: TPoint); end;首部 procedure Break

21、; $System功能 提前中止循环。说明 用于for、while、repeat-until中。首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $SysUtils功能 返回索引Index的真实值说明 如果Index小于和大于S的长度则返回0 # ByteToCharIndex(12345678, 9) = 0;首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $SysUtils功能 返回字符的编号说明 如果Ind

22、ex小于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功能

23、在程序运行中取消拖放操作说明 首部 function Ceil(X: Extended):Integer; $Math功能 返回参数X的正取整值说明 #Ceil(-2.8) = -2; Ceil(2.8) = 3; Ceil(-1.0) = -1;首部 function ChangeFileExt(const FileName, Extension: string): string; $SysUtils功能 改变文件的后缀返回。说明 #ChangeFileExt(zs.txt,.ini) = zs.ini;首部 function CharsetToIdent(Charset: Longint;

24、 var Ident: string): Boolean; $Graphics功能 获得字符集的名称说明 如果获得成功则返回True,否则返回False首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $SysUtils功能 返回字符串基于索引Index的真实位置说明 如果Index小于和大于S的长度则返回0首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $SysUtils功能 返回字符串基于索引Index的编号

25、说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen;首部 procedure ChDir(Path: ); $System功能 改变当前目录说明 检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。首部 procedure Check(Status: Integer); $DBTables功能 以变量来确定BDE抗议错误状态说明 BDE(Borland Database Engine): 宝兰德数据库引擎首部 function Chr(N: Byte): Char; $System功能 返回参数N的ASCII字符值。说明

26、 参数N表示某ASCII代码的序号数值(0-255)。首部 function ClassIDToProgID(const ClassID: TGUID): string; $ComObj功能 返回标题音乐的ID所指定类字串说明 type PGUID = TGUID; TGUID = record D1: Longword; D2: Word; D3: Word; D4: array0.7 of Byte; end; 错误代码 含义 REGDB_E_CLASSNOTREG | Class not registered in the registry. REGDB_E_READREGDB | Er

27、ror reading registry.首部 function Clipboard: TClipboard; $clipbrd功能 返回当前剪贴板的数据说明 首部 procedure Close(var F: ); $System功能 关闭文件F。说明 文件F必须已被Reset、Rewrite或Append打开，且没有关闭。欲关闭一个未打开的文件或已关闭的文件都是错误的。首部 procedure CloseFile(var F: ); $System功能 终止文件变量F与外部文件的联系说明 当编译指令$I打开的时候,可用IOResult来检查终止是否成功首部 function Collect

28、ionsEqual(C1, C2: TCollection): Boolean; $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): Longi

29、nt; $Graphics功能 将颜色类型转换成RGB格式返回说明 type TColor = -(COLOR_ENDCOLORS + 1).$02FFFFFF; 便于Windows API函数调用首部 function ColorToString(Color: TColor): string; $Graphics功能 将颜色参数Color转换成字符串类型返回说明 如果Color有系统设定的颜色则返回该名称, 否则返回其16进制形式 # ColorToString(clBlack) = clBlak; ColorToString(12) = $0000000C;首部 function ComC

30、lassManager: TComClassManager; $ComObj功能 返回一个TComClassManager类说明 首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $SysUtils功能 在指定内存范围Length比较两个指镇的内容是否相同。说明 范围以二进制为单位。首部 function CompareStr(const S1, S2: string): Integer; $SysUtils功能 比较两个字符串的大小。要区分大小写。说明 首部 function CompareText(const S1, S2: string): Integer; $SysUtils功能 比较两个字符串的大小。不区分大小写。说明 首部 function Concat(S1 ， S2，.， Sn: ): string; $System1功能 把字串S1 ， S2，.，Sn连接成一个单一的字串。说明 除此之外，还可以用运算符+来连接。首部 procedure Continue; $System功能 离开本次循环, 转到下一次循环说明 首部 f