delphi函数表

首部 function Abs(N: ): ;$[System 功能 返回参数N的绝对值。

说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。 ## Abs(-12) = 12；Abs(-12.03) = 12.03 &_

首部 procedure AddExitProc(Proc: TProcedure);$[SysUtils

功能 将旧版本某一过程添加到当前版本运行的库的结束过程表中。 说明 只能向下兼容，不能用在当前使用版本的 &_

首部 function Addr(X): Pointer;$[System 功能 返回指定对象的内存地址。

说明 地址运算符 @ 可以产生与Addr相同的结果。 &_

首部 procedure AddTerminateProc(TermProc: TTerminateProc);$[SysUtils 功能 将一过程添加到运行时库的终止过程表中。

说明 Delphi 在程序结束时将终止该程序的全部进程，可以终止的进程都放在终止过程表中，

程序通过结束终止过程表所有的进程来实现终止全部进程的目的。 &_

首部 function AdjustLineBreaks(const S: string): string;$[SysUtils 功能 将给定字符串的行分隔符调整为Cr/Lf序列。 说明 &_

首部 function AllocMem(Size: Cardinal): Pointer;$[SysUtils

功能 在堆栈上分配给定大小为 Size字节的块，即在内存里开辟Size 大小的空间。 说明 Cardinal 0..4294967295 32位无符号整数 &_

首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils 功能 比较两个文件名的大小。不区分大小写。 说明 条件 返回值 S1 > S2 | > 0 S1 < S2 | < 0 S1 = S2 | = 0 &_

首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils 功能 比较两个字符串的大小。要区分大小写。 说明 参见AnsiCompareFileName。 &_

首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils 功能 返回两个字符串是否相同的状态。不区分大小写。

说明 参见AnsiCompareFileName。 &_ 首

部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils

功能 将引用字串转换成结束引语返回。 说明 函数支持多字节字符系统[MBCS]。 &_

首部 function AnsiLastChar(const S: string): PChar;$[SysUtils

功能 取参数S的最后一个字符，并转换成以null结束的字符串指针返回。 说明 ##AnsiLastChar(‘Sysoft’) = {‘t\\0’}; &_

首部 function AnsiLowerCase(const S: string): string;$[SysUtils 功能 将字符串S转换为小写返回。

说明 函数支持多字节字符系统[MBCS]。 &_

首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils 功能 将文件名S转换成小写返回

说明 函数支持多字节字符系统[MBCS]。 &_

首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils 功能 返回子串Substr出现在主串S中的第一个位置。 说明 &_ 首

部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils 功能 返回引用字串的译文 说明 &_

首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils 功能 比较两个指针字符串的大小。要区分大小写。 说明 参见AnsiCompareFileName。 &_

首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils 功能 比较两个指针字符串的大小。不区分大小写。 说明 参见AnsiCompareFileName。 &_

首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils 功能 返回字符串指针气所指向的最后一个字符位置 说明 &_ 首

部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils

功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。 说明 参见AnsiCompareFileName。 &_ 首

部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUnits

功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。 说明 参见AnsiCompareFileName。 &_

首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils 功能 将指针字符串S转换为小写返回。 说明 &_

首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils 功能 在指针字符串中返回子串Substr出现在主串S中的第一个位置。 说明 &_

首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils 功能 返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串 说明 ## AnsiStrRScan(‘Zswangs1234567’, ‘s’) = ‘s1234567’; &_

首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils 功能 返回以字符Chr在指针字符串Str中的第一个位置为起始位置的指针字符串 说明 ## AnsiStrScan(‘Zswangs1234567’, ‘s’) = ‘swangs1234567’; &_

首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils 功能 将指针字符串S转换成大写返回。 说明 &_ 首

部 function AnsiToNative(Locale: TLocale; const AnsiStr: string; NativeStr: PChar; MaxLen: Integer): PChar; $[SysUtils 功能 将字符串集转换成现场数据返回 说明 type TLocale = Pointer; &_ 首

部 procedure AnsiToNativeBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $[SysUtils

功能 将字符串集转换成现场数据 说明 &_

首部 function AnsiUpperCase(const S: string): string; $[SysUtils 功能 将字符转换为大写返回。 说明

&_

首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils 功能 将文件名转换为大写返回。 说明 &_

首部 procedure Append(var F: Text); $[System 功能 以附加的方式打开已有的文件。

说明 调用Append前，F必须已与一个外部文件相联系。对用Append打开的文件，仅有合法操作是调用Write或Writeln。 &_

首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils 功能 将字串S添加到字串Dest中。[即运行: Dest := Dest + s;] 说明 ## AppendStr(‘Sysoft’, ‘1999’) = ‘Sysoft1999’; &_

首部 function ArcCos(X: Extended): Extended; $[Math 功能 返回X参数的反余弦值。 说明 函数结果取弧度值。 &_

首部 function ArcCosh(X: Extended): Extended; $[Math 功能 返回X参数的反双曲余弦值。 说明 函数结果取弧度值。 &_

首部 function ArcSin(X: Extended): Extended; $[Math 功能 返回X参数的反正弦值。 说明 函数结果取弧度值。 &_

首部 function ArcSinh(X: Extended): Extended; $[Math 功能 返回X参数的反双曲正弦值。 说明 函数结果取弧度值。 &_

首部 function ArcTan(X: Extended): Extended; $[System 功能 返回参数X的反正切函数值。 说明 函数结果取弧度值。 &_

首部 function ArcTan2(Y, X: Extended): Extended; $[Math

功能 返回参数Y除于X参数的反正切函数值。{即：返回ArcTan(Y/X)} 说明 函数结果取弧度值。 &_

首部 function ArcTanh(X: Extended): Extended; $[Math 功能 返回参数X的反双曲正切函数值。 说明 函数结果取弧度值。 &_

首部 procedure Assert(expr : Boolean [; const msg: string]); $[System 功能 测试布尔表达式是否成功

说明 $ASSERTIONS ON/OFF | (long form) $C +/- | (short form) &_

首部 function Assigned(var P): Boolean; $[System 功能 返回变体是否非空。

说明 ## if Assigned(Edit1) then Edit1.Free; &_

首部 procedure AssignFile(var F; FileName: string); $[System 功能 给文件变量赋一外部文件名。

说明 用 F 文件变量打开 FileName 名字的文件 &_

首部 procedure AssignPrn(var F: Text); $[Printers 功能 指定文本变量F的打印机 说明 &_

首部 procedure AssignStr(var P: PString; const S: string); $[SysUtils 功能 将字符串列入指针

说明 PString 是 AnsiString 指针 &_ 首

部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $[DRIntf

功能 将ID属性和事件关联 说明 type

TID = record Reseved: array[1..6] of Byte; end; TFieldID = type TID; TAttrID = type TID; &_

首部 procedure Beep; $[SysUtils 功能 产生一个标准的电脑发声beep。

说明 这个Beep过程使用了Windows下的API函数MessageBeep。 &_ 首

部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $[SysUtils

功能 以适当的方式建立用于内存管理的线程。 说明 &_ 首

部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean; out Stub: IStub); $[orbpas 功能 获得界面CORBA服务器的对象作为IStub界面

说明 [CORBA]:程序体系结构 &_ 首

部 procedure BlockRead(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System

功能 从无类型文件F中读出Count个记录赋予变量Buf。 说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改变从128到不同字节块大小。 &_ 首

部 procedure BlockWrite(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System

功能 把从变量Buf第一个字节开始的Count个记录写入

首部 procedure Break; $[System 功能 提前中止循环。

说明 用于for、while、repeat-until中。 &_ 首

部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils

功能 返回索引Index的真实值

说明 如果Index小于和大于S的长度则返回0 ## ByteToCharIndex(‘12345678’, 9) = 0; &_ 首

部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils

功能 返回字符的编号

说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; ##ByteToCharLen(‘12345678’,9) = 9; &_ 首

部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils

功能 返回字符串指定位置的字节类型 说

明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); ## ByteType(‘国庆节12’,1) = mbLeadByte; &_

首部 procedure CancelDrag; $[Controls 功能 在程序运行中取消拖放操作 说明 &_

首部 function Ceil(X: Extended):Integer; $[Math 功能 返回参数X的正取整值

说明 ##Ceil(-2.8) = -2; Ceil(2.8) = 3; Ceil(-1.0) = -1; &_ 首

部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils

功能 改变文件的后缀返回。

说明 ##ChangeFileExt(‘zs.txt’,’.ini’) = ‘zs.ini’; &_ 首

部 function CharsetToIdent(Charset: Longint; var Ident: string): Boolean; $[Graphics

功能 获得字符集的名称

说明 如果获得成功则返回True,否则返回False &_ 首

部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils

功能 返回字符串基于索引Index的真实位置 说明 如果Index小于和大于S的长度则返回0 &_ 首

部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils

功能 返回字符串基于索引Index的编号

说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; &_

首部 procedure ChDir(Path: ); $[System 功能 改变当前目录

说明 检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。 &_

首部 procedure Check(Status: Integer); $[DBTables 功能 以变量来确定BDE错误状态

说明 [BDE(Borland Database Engine)]: 宝兰德数据库引擎 &_

首部 function Chr(N: Byte): Char; $[System 功能 返回参数N的ASCII字符值。

说明 参数N表示某ASCII代码的序号数值(0-255)。 &_

首部 function ClassIDToProgID(const ClassID: TGUID): string; $[ComObj 功能 返回标题音乐的ID所指定类字串 说明 type

PGUID = ^TGUID;

TGUID = record D1: Longword; D2: Word; D3: Word;

D4: array[0..7] of Byte; end;

错误代码 含义

REGDB_E_CLASSNOTREG | Class not registered in the registry. REGDB_E_READREGDB | Error 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 CollectionsEqual(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): Longint; $[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 ComClassManager: 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 功能 离开本次循环, 转到下一次循环 说明 &_

首部 function Copy(S: ; Index, Len: Integer): string; $[System 功能 返回字符串S中由第Index个字符开始、Len个字符长的一个子串。

说明 若从S[Index]到结尾的长度小于len的值，则返回串S中由Index开始到串尾的那一子串。 &_

首部 function CopyPalette(Category: HPALETTE): HPALETTE; $[Graphics 功能 复制一个新的调色板返回

说明 HPALETTE[Windows 调色板数据] &_ 首

部 function CorbaBind(const RepositoryID: string; const ObjectName: string = ' '; const HostName: string = ' '): IObject; $[corbaobj

function CorbaBind(const InterfaceID: TGUID; const ObjectName: string = ' '; const HostName: string = ' '): IObject; $[corbaobj 功能 返回用户反馈信息和CORBA服务器对象接口 说明 &_

首

部 function CorbaFactoryCreateStub(const RepId, FactoryId, InstanceName, HostName: string; IID: TGUID): IObject; $[corbaobj 功能 返回用户反馈信息和CORBA服务器对象接口 说明 &_

首部 function Cos(X: Extended): Extended; $[System 功能 返回参数X的余弦值。 说明 参数X以弧度为单位。 &_

首部 function Cosh(X: Extended): Extended; $[Math 功能 返回参数X的双曲余弦值。 说明 参数X以弧度为单位。 &_

首部 function Cotan(X: Extended): Extended; $[Math 功能 返回参数正切值的倒数 说明 1 / Tan(X) &_ 首

部 function CreateAction(AOwner: TComponent; ActionClass: TBasicActionClass): TBasicAction; $[ActnList

功能 实现一个操作,指定类型,返回其列表编辑器 说明 TbasicAction[是所操作对象的父类] &_

首部 function CreateClassID: string; $[ComObj 功能 产生一个新的GUIID,将其作为字符串返回

说明 GUIID[用户图形界面标识] 格式:[ '{xxxxxxxx-xxx-xxx-xxx-xxxxxxxxxxx} '] &_

首部 function CreateComObject(const ClassID: 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 &_ 首

部 function CreateField(Owner: TComponent; Dataset: TDataset); const Fieldname, Origin: string; const FieldID: TFieldID; const AttrID: 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 功能 重新将位图的系统灰色标准化 说明 此函数返回原有的位图 &_ 首

部 function CreateGrayMappedRes(Instance: THandle; ResName: PChar): HBITMAP; $[Graphics

功能 重新将位图的系统灰色资源标准化 说明 此函数返回调整后的位图 &_ 首

部 function CreateMappedBmp(Handle: HBITMAP; const OldColors, NewColors: array of TColor): HBITMAP; $[Graphics 功能 在位图中改变色表 说明 此函数返回原有的位图 &_ 首

部 function CreateMappedRes(Instance: THandle; ResName: PChar; const OldColors, NewColors: array of TColor): HBITMAP; $[ Graphics 功能 在位图中改变色表资源 说明 此函数返回调整后的位图 &_ 首

部 function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm; $[dialogs 功能 返回所创建的指定消息对话匡。 说

明 type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);

mtWarning | 黄色感叹号 MtError | 红色禁止符号 MtInformation | 蓝色 \"i \" MtConfirmation | 绿色问号

MtCustom | 运用程序名

[The caption of the message box is the name of the application 's executable file.] &_

首部 function CreateOleObject(const ClassName: string): IDispatch; $[ComObj 功能 产生一个名为ClassName的Ole自动操作类 说明 &_ 首

部 procedure CreateRegKey(const Key, ValueName, Value: string); $[ComObj

功能 创建注册键

说明 如关键字已经注册,则调用该过种无效 &_ 首

部 function CreateRemoteComObject(const MachineName: WideString; const ClassID: TGUID): IUnknown; $[ComObj 功能 说明 &_ 首

部 function CreateSharedPropertyGroup(const Name: WideString): ISharedPropertyGroup; $[Mtx 功能 说明 &_ 首

部 function CreateSharedPropertyGroupManager: ISharedPropertyGroupManager; $[Mtx 功能 说明 &_

首部 function CreateTransactionContext: ITransactionContext; $[Mtx 功能 说明 &_

首部 function CreateTransactionContextEx: ITransactionContextEx; $[ Mtx 功能 说明 &_ 首

部 function CurrToFMTBCD(Curr: Currency; var BCD: FMTBcd; Precision, Decimals: Integer): Boolean; $[DBCommon 功能 说明

&_

首部 function CurrToStr(Value: Currency): string; $[SysUtils 功能 将浮点类型参数Value转换成字符串返回 说明 &_ 首

部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils

功能 将浮点类型参数Value按指定格式转换成字符串返回 说

明 type TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency); &_ 首

部 function CursorToIdent(Cursor: Longint; var Ident: 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; $[Math 功能 将参数Cycles转换成弧度返回。 说明 radians = 2pi*cycles。 &_ 首

部 procedure DatabaseError(const Message: string; Component: TComponent = nil); $[DB 功能 说明 &_ 首

部 procedure DatabaseErrorFmt(const Message: string; const Args: array of const; Component: TComponent = nil); $[DB 功能 说明 &_

首部 function Date: TDateTime; $[SysUtils

功能 返回当前的日期。

说明 type TDateTime = type Double; &_

首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils 功能 将Delphi的日期时间类型参数DateTime转换为文件日期格式返回。 说明 &_

首部 function DateTimeToStr(DateTime: TDateTime): string; $[SysUtils 功能 将Delphi的日期时间类型参数DateTime转换为字符串返回。 说明 &_ 首

部 procedure DateTimeToString(var NewString: string; const Format: string; DateTime: TDateTime); $[SysUtils

功能 将Delphir的日期时间类型参数DateTime转换为以格式Formatr的字符串。 说明 &_ 首

部 procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils

功能 将Delphi的日期时间类型参数DateTime转换为Windows的日期时间格式，返回至SystemTime。 说明 Unit

Windows type

PSystemTime = ^TSystemTime; TSystemTime = record wYear: Word; wMonth: Word;