Delphi函数大全.doc

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