全部分类
搜索资料
    首页 Delphi函数介绍

    Delphi函数介绍

    举报
    开通vip

    Delphi函数介绍Delphi函数介绍 Delphi procedure and function [标准函数和过程] 首部 procedure Abort;$[SysUtils 功能 引起放弃的意外处理。 说明 不显示任何错误信息。 首部 function Abs(N: ): ;$[System 功能 返回参数N的绝对值。 说明 函数结果与参数有相同类型，参数可以是整型也可以是浮点型。 ## Abs(-12) = 12;Abs(-12.03) = 12.03 首部 procedure AddExitProc(Proc: TPr...

    Delphi函数介绍
    Delphi函数介绍 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 大小的空间。 说明 Cardinal 0..4294967295 32位无符号整数 首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils 功能 比较两个文件名的大小。不区分大小写。 说明 条件 返回值 | > 0 S1 > S2 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。 - 1 - Delphi procedure and function 首部 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参数的反双曲正弦值。 - 2 - Delphi procedure and function 说明 函数结果取弧度值。 首部 function ArcTan(X: Extended): Extended; $[System 功能 返回参数X的反正切函数值。 说明 函数结果取弧度值。 首部 function ArcTan2(Y, X: Extended): Extended; $[Math 功能 返回参数Y除于X参数的反正切函数值。{即:返回ArcTan(Y/X)} 说明 函数结果取弧度值。 首部 function ArcTanh(X: Extended): Extended; $[Math 返回参数X的反双曲正切函数值。 功能 说明 函数结果取弧度值。 首部 procedure Assert(expr : Boolean [; const msg: string]); $[System 功能 测试布尔表达式是否成功 说明 $ASSERTIONS ON/OFF | (long form) $C +/- | (short form) 首部 function Assigned(var P): Boolean; $[System 功能 返回变体是否非空。 说明 ## if Assigned(Edit1) then Edit1.Free; 首部 procedure AssignFile(var F; FileName: string); $[System 功能 给文件变量赋一外部文件名。 说明 用 F 文件变量打开 FileName 名字的文件 首部 procedure AssignPrn(var F: Text); $[Printers 功能 指定文本变量F的打印机 说明 首部 procedure AssignStr(var P: PString; const S: string); $[SysUtils 功能 将字符串列入指针 PString 是 AnsiString 指针 说明 首部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $[DRIntf 功能 将ID属性和事件关联 说明 type TID = record Reseved: array[1..6] of Byte; end; TFieldID = type TID; TAttrID = type TID; 首部 procedure Beep; $[SysUtils 功能 产生一个标准的电脑发声beep。 说明 这个Beep过程使用了Windows下的API函数MessageBeep。 首部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $[SysUtils 功能 以适当的方式建立用于内存管理的线程。 说明 首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean; out Stub: IStub); $[orbpas 功能 获得界面CORBA服务器的对象作为IStub界面 说明 [CORBA]:程序体系结构 首部 procedure BlockRead(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System 功能 从无类型文件F中读出Count个 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 赋予变量Buf。 说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改变从128到不同字节块大小。 首部 procedure BlockWrite(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System 功能 把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。 说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Rewrite来改变从128到不同字节块大小。 首部 function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect; $[Classes 功能 返回指定坐标和范围的TRect数据 说明 type TPoint = record X: Longint; Y: Longint; end; - 3 - Delphi procedure and function TRect = record case Integer of 0: (Left, Top, Right, Bottom: Integer); 1: (TopLeft, BottomRight: TPoint); end; 首部 procedure Break; $[System 功能 提前中止循环。 说明 用于for、while、repeat-until中。 首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils 返回索引Index的真实值 功能 说明 如果Index小于和大于S的长度则返回0 ## ByteToCharIndex(‘12345678’, 9) = 0; 首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils 功能 返回字符的编号 说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; ##ByteToCharLen(‘12345678’,9) = 9; 首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils 功能 返回字符串指定位置的字节类型 说明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); ## ByteType(‘国庆节12’,1) = mbLeadByte; 首部 procedure CancelDrag; $[Controls 功能 在程序运行中取消拖放操作 说明 首部 function Ceil(X: Extended):Integer; $[Math 功能 返回参数X的正取整值 说明 ##Ceil(-2.8) = -2; Ceil(2.8) = 3; Ceil(-1.0) = -1; 首部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils 功能 改变文件的后缀返回。 说明 ##ChangeFileExt(‘zs.txt’,’.ini’) = ‘zs.ini’; 首部 function CharsetToIdent(Charset: Longint; var Ident: string): Boolean; $[Graphics 功能 获得字符集的名称 说明 如果获得成功则返回True,否则返回False 首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils 功能 返回字符串基于索引Index的真实位置 说明 如果Index小于和大于S的长度则返回0 首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils 功能 返回字符串基于索引Index的编号 说明 如果Index小于S的长度则返回0; 如果Index大于S的长度则返回MaxLen; 首部 procedure ChDir(Path: ); $[System 功能 改变当前目录 说明 检查IOResult可确定此改变是否成功。IOResult的值非零时表示Path不存在。 首部 procedure Check(Status: Integer); $[DBTables 功能 以变量来确定BDE抗议错误状态 说明 [BDE(Borland Database Engine)]: 宝兰德数据库引擎 首部 function Chr(N: Byte): Char; $[System 功能 返回参数N的ASCII字符值。 说明 参数N表示某ASCII代码的序号数值(0-255)。 首部 function ClassIDToProgID(const ClassID: TGUID): string; $[ComObj 功能 返回标题音乐的ID所指定类字串 说明 type PGUID = ^TGUID; TGUID = record D1: Longword; D2: Word; D3: Word; D4: array[0..7] of Byte; end; 错误代码 含义 REGDB_E_CLASSNOTREG | Class not registered in the registry. REGDB_E_READREGDB | Error reading registry. 首部 function Clipboard: TClipboard; $[clipbrd 功能 返回当前剪贴板的数据 - 4 - Delphi procedure and function 说明 首部 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的双曲余弦值。 - 5 - Delphi procedure and function 说明 参数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 功能 说明 - 6 - Delphi procedure and function 首部 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; - 7 - Delphi procedure and function 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个字符位置开始、长度为len的子串。 说明 若串由位置到串尾不足个字符，则就删除至串尾为止。 ##s := 'Honest Abe Lincoln'; Delete(s, 8, 4);{ s = 'Honest Lincoln' } 首部 function DeleteFile(const FileName: string): Boolean; $[SysUtils 功能 返回删除文件是否成功 说明 首部 procedure DeleteRegKey(const Key: string); $[ComObj 功能 说明 首部 procedure DestroyMetaPict(MetaPict: HGlobal); $[OleCtnrs 功能 说明 首部 function DictionaryActive: Boolean; $[DRIntf 功能 说明 首部 procedure DictionaryDeactivate; $[DRIntf 功能 - 8 - Delphi procedure and function 说明 首部 function DirectoryExists(Name: string): Boolean; $[FileCtrl 功能 返回路径Name是否存在。 说明 ## DirectoryExists(‘c:’) = True; 首部 function DiskFree(Drive: Byte): Int64; $[SysUtils 功能 返回磁盘驱动器的空闲字节数。 说明 参数Drive的值代表驱动器号。0表示当前驱动器，1表示A驱动器，2表示B驱动器等等。若驱动器非法，则DiskFree返回-1。 首部 function DiskSize(Drive: Byte): Int64; $[SysUtils 返回磁盘驱动器Drive的总字节数。 功能 说明 参见DiskFree。 首部 procedure Dispose(var P: Pointer); $[System 功能 释放动态变量P所占的空间 说明 首部 procedure DisposeStr(P: PString); $[System 功能 释放字符串在堆栈中的内存空间 说明 首部 function DllCanUnloadNow: HResult; stdcall; $[Comserv 功能 说明 首部 function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult; stdcall; $[Comserv 功能 说明 首部 function DllRegisterServer: HResult; stdcall; $[Comserv 功能 说明 首部 function DllUnregisterServer: HResult; stdcall; $[Comserv 功能 说明 首部 function DosPathToUnixPath(const Path: string): string; $[HTTPApp 功能 将Dos系统路径名转换成Unix系统路径名返回。 说明 首部 function DoubleDecliningBalance(Cost, Salvage: Extended; Life, Period: Integer): Extended; $[Math 功能 用双斜平衡方法计算资产的折旧。 说明 首部 function EncodeDate(Year, Month, Day: Word): TDateTime; $[SysUtils 功能 返回年、月、日合成的日期时间格式 说明 首部 function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; $[SysUtils 功能 返回时、分、秒、毫秒合成的日期时间格式 说明 首部 function EndThread(ExitCode: Integer); $[SysUtils 功能 说明 首部 procedure EnumDispatchProperties(Dispatch: IDispatch; PropType: TGUID; VTCode: Integer; PropList: TStrings); $[AxCtrls 功能 说明 首部 procedure EnumRegisteredActions(Proc: TEnumActionProc; Info: Pointer); $[ActnList 功能 说明 type TEnumActionProc = procedure (const Category: string; ActionClass: TBasicActionClass; Info: Pointer) of object; 首部 procedure EnumResourceModules(Func: TEnumModuleFunc; Data: Pointer); $[System 功能 说明 type TEnumModuleFunc = function (HInstance: Longint; Data: Pointer): Boolean; 首部 function Eof [ (var F: ) ]: Boolean; $[System 功能 返回文件的结束状态值 说明 当F的文件指针到达文件尾时，Eof返回True，否则，返回False。若F是一文本文件，则Eof是在搜索到#26(Ctrl-Z)时返回True。 - 9 - Delphi procedure and function 首部 function Eoln [(var F: Text) ]: Boolean; $[System 功能 返回文本文件的行结束状态值 说明 当F的文件指针到达行尾或文件尾时，Eoln返回True，否则，返回False。行尾字符集为#13#10(Enter)。 首部 procedure Erase(var F: ); $[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 功能 说明 首部 function ExceptObject: TObject; $[SysUtils 功能 返回当前意外的索引 说明 首部 procedure Exclude(var S: set of T;I:T); $[System 功能 从集合中删除一部份元素。 说明 首部 procedure Exit; $[System 功能 退出当前的执行程序模块。 说明 若从主程序退出，则程序终止;若从函数、过程中退出，则程序从调用该模块处往下继续执行。若从嵌套的块中退出，则从外部块中激活含Exit有块的下一语句开始执行。 首部 function Exp(X: Real): Real; $[System 功能 返回参数X的指数值。 说明 e是自然对数底，值为2.7182818285。 首部 function ExpandFileName(const FileName: string): string; $[SysUtils 返回包含绝对路径的字符串。 功能 说明 如果字符串中没有路径名称则返回当前路径。 首部 function ExpandUNCFileName(const FileName: string): string; $[SysUtils 功能 以UNC格式返回包含绝对路径的字符串。 说明 UNC格式:\\\ 首部 function ExtractFileDir(const FileName: 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 功能 返回文件的扩展名。 说明 如果字符串中不含扩展名称则返回空串。 ## 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 功能 返回指定文件的路径。 说明 如果字符串中不含文件名称则返回空串。 ## 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 功能 返回真实文件名的DOS的路径形式。 说明 ## ExtractShortPathName(‘C:\Program Files’) = ‘C:\PROGRA~1’ 首部 function FileAge(const FileName: string): Integer; $[SysUtils 功能 返回文件已存在的时间。 说明 首部 procedure FileClose(Handle: Integer); $[SysUtils - 10 - Delphi procedure and function 功能 结束指定文件 说明 首部 function FileCreate(const FileName: string): Integer; $[SysUtils 功能 创建新文件 说明 创建成功则返回正数 首部 function FileDateToDateTime(FileDate: Integer): TdateTime; $[SysUtils 功能 将dos的日期格式转换为delphi的日期格式。 说明 首部 function FileExists(const FileName: string): Boolean; $[SysUtils 功能 返回文件是否存在。 说明 首部 function FileGetAttr(const FileName: string): Integer; $[SysUtils 功能 返回文件的属性 说明 首部 function FileGetDate(Handle: Integer): Integer; $[SysUtils 功能 返回文件的dos日期时间标记 说明 首部 function FileOpen(const FileName: string; Mode: Integer): Integer; $[SysUtils 功能 用指定的存取模式打开文件 说明 首部 function FilePos(var F): Longint; $[System 功能 返回F中文件指针当前位置的元素序号。 说明 重置一个文件后，FilePos总是返回0，这是所有文件第一个元素的序号。若文件指针当前位置在F的最末一个元素之后，即已达到文件尾，或者是个空文件，则此时的FilePos返回值等于FileSize(F)。函数FilePos的一个用途是可允许从文件指针当前位置搜索最后某一元素。 首部 function FileRead(Handle: Integer; var Buffer; Count: Integer): Integer; $[SysUtils 功能 从指定的文件读取 说明 首部 function FileSearch(const Name, DirList: string): string; $[SysUtils 功能 在目录中搜索指定的文件 说明 首部 function FileSeek(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 功能 设置文件属性 说明 首部 function FileSetDate(Handle: Integer; Age: Integer): Integer; $[SysUtils 功能 设置文件的dos日期时间标记。 说明 首部 function FileSize(var F): Integer; $[System 功能 返回文件F的当前长度，即元素个数。 说明 若F是空文件，则FileSize返回值0。使用FileSize可确定文件F有多少个元素。 首部 function FileWrite(Handle: Integer; const Buffer; Count: Integer): Integer; $[SysUtils 功能 对指定的文件做写操作 说明 首部 procedure FillChar(var X; Count: Integer; value: ); $[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 功能 说明 首部 function FindAttrID(const AttrName: string): TAttrID; $[DRIntf - 11 - Delphi procedure and function 功能 说明 type TID = record Reseved: array[1..6] of Byte; end; TAttrID = type TID; 首部 function FindClass(const ClassName: string): TPersistentClass; $[classes 功能 根据名称查找持久性的类，并返回。 说明 首部 function FindClassHInstance(ClassType: TClass): Longint; $[system 功能 返回模块实例的句柄。 说明 首部 procedure FindClose(var F: TSearchRec); $[SysUtils 功能 终止FindFirst/FindNext序列 说明 首部 function FindCmdLineSwitch(const Switch: string; SwitchChars: TSysCharSet; IgnoreCase: Boolean): Boolean; $[SysUtils 功能 说明 type TSysCharSet = set of Char; 首部 function FindControl(Handle: HWnd): TWinControl; $[Controls 功能 说明 首部 function FindDatabaseID(const Database: 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 功能 说明 首部 function FindFieldID(const Table: TTableID; const Field: 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 功能 对指定的文件名及属性搜索目录 说明 首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils 功能 返回与文件名及属性匹配的下一入口 说明 首部 function FindResourceHInstance(Instance: LongWord): Longint; $[system 功能 说明 首部 function FindTableID(const Database: TDatabaseID; const Table: string): TTableID; $[DRIntf 功能 说明 首部 function FindVCLWindow(const Pos: TPoint): TWinControl; $[Controls 功能 说明 type TPoint = record X: Longint; Y: Longint; end; 首部 procedure FloatToDecimal(var DecVal: TFloatRec; const Value; 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 - 12 - Delphi procedure and function 功能 将浮点数转换为字符串 说明 ## 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 功能 将给定的浮点数转换为十进制数。 说明 type TFloatValue = (fvExtended, fvCurrency); 首部 function FloatToTextFmt(Buffer: PChar; const Value; 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); $[System 功能 将文本文件F在内存缓冲区中的信息写入磁盘。 说明 调用Flush是把暂存在内存缓冲区中的所有字符写入磁盘，而不管缓冲区是否已满。 首部 function FMTBCDToCurr(const BCD: FMTBcd; var Curr: Currency): Boolean; $[DBCommon 功能 返回是否成功地将二进制BCD格式转换成浮点类型 说明 首部 function FmtLoadStr(Ident: Integer; const Args: array of const): string; $[SysUtils 功能 从程序的资源字符串表中装载字符串 说明 首部 procedure FmtStr(var StrResult: string; const Format: string; const Args: array of const); $[SysUtils 功能 格式化一系列的参数，其结果以参数StrResult返回 说明 首部 function FontToOleFont(Font: TFont): Variant; $[OleCtrls 功能 说明 首部 procedure ForceDirectories(Dir: string); $[FileCtrl 功能 创建一个完全路径。 说明 如果路径已存在则会引起异常。 首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils 功能 格式化一系列的参数并返回pascal字符串 说明 首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils 功能 格式化一系列的参数 说明 首部 function FormatCurr(const Format: 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) - 13 - Delphi procedure and function 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 功能 返回指定格式的字符串。 说明 首部 function Frac(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指定边宽。 首部 procedure FreeMem(var P: Pointer[; Size: Integer]); $[System 功能 按给定大小释放动态变量所占的空间。 说明 所释放的Size字节堆内存必须是先由GetMem分配的。 首部 procedure Frexp(X: Extended; var Mantissa: Extended; var Exponent: Integer) register; $[Math 功能 说明 首部 function FutureValue(Rate: Extended; NPeriods: Integer; Payment, PresentValue: Extended; PaymentTime: TPaymentTime): Extended; $[Math 功能 说明 首部 function GetActiveOleObject(const ClassName: string): IDispatch; $[ComObj 功能 说明 首部 function GetAttrID(const FieldID: TFieldID): TAttrID; $[DRIntf 功能 说明 type TID = record Reseved: array[1..6] of Byte; end; TFieldID = type TID; TAttrID = type TID; 首部 function GetAttrName(const AttrID: TAttrID): string; $[DRIntf 功能 说明 首部 procedure GetAttrNames(Proc: TGetStrProc): string; $[DRIntf 功能 说明 type TGetStrProc = procedure(const S: string) of Object; 首部 function GetCaptureControl: TControl; $[Controls 功能 说明 首部 procedure GetCharsetValues(Proc: TGetStrProc); $[Graphics 功能 说明 type TGetStrProc = procedure(const S: string) of Object; 首部 function GetClass(const ClassName: string): TPersistentClass; $[Classes 功能 说明 首部 procedure GetColorValues(Proc: TGetStrProc); $[Graphics - 14 - Delphi procedure and function 功能 说明 首部 function GetComCtlVersion: Integer; $[ComCtrls 功能 说明 首部 function GetControlClass(const AttrID: TAttrID): string; $[ DRIntf 功能 说明 首部 function GetCurrentDir: string; $[SysUtils 功能 返回当前路径 说明 首部 procedure GetCursorValues(Proc: TGetStrProc); $[controls 功能 说明 首部 function GetDefFontCharSet: TFontCharSet; $[Graphics 功能 说明 type TFontCharset = 0..255; 首部 function GetDIB(Bitmap: HBITMAP; Palette: HPALETTE; var BitmapInfo; var Bits): Boolean; $[Graphics 功能 说明 首部 procedure GetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: DWord; var ImageSize: DWORD); $[Graphics 功能 说明 首部 procedure GetDir(Drive: Byte; var Path: string); $[System 功能 将指定驱动器Driver的当前路径返回至字符串Path中。 说明 Drive为0表示当前驱动器，1表示当A驱动器，2为表示B驱动器等等。当系统没有找到所设驱动器时则默认为当前驱动器返回。 首部 function GetExtensionVersion(var Ver: THSE_VERSION_INFO): BOOL; $[ISAPIApp 功能 说明 type THSE_VERSION_INFO = packed record dwExtensionVersion: DWORD; lpszExtensionDesc: array [0..HSE_MAX_EXT_DLL_NAME_LEN-1] of Char; end; 首部 procedure GetFormatSettings; $[SysUtils 功能 重新调整数字和日期参数的格式。 说明 调整为系统默认值。 首部 function GetHeapStatus: THeapStatus; $[System or ShareMem 功能 返回内存管理器的当前状态 说明 type THeapStatus = record TotalAddrSpace: Cardinal; TotalUncommitted: Cardinal; TotalCommitted: Cardinal; TotalAllocated: Cardinal; TotalFree: Cardinal; FreeSmall: Cardinal; FreeBig: Cardinal; Unused: Cardinal; Overhead: Cardinal; HeapErrorCode: Cardinal; end; 首部 function GetLongHint(const Hint: string): string; $[Controls 功能 返回长型提示。 说明 首部 procedure GetMem(var P: ; Size: Integer); $[System 功能 建立一指定大小为Size的动态变量，并将指针P指向该处。 说明 GetMem类似于New，只是它需要说明要保留的字节数。调用FreeMem可释放GetMem保留在堆内存中的那些字节。 首部 procedure GetMemoryManager(var MemMgr: TMemoryManager); $[System 功能 以MemMgr返回内存管理器的入口点。 说明 - 15 - Delphi procedure and function 首部 procedure GetOleFont(Font: TFont; var OleFont: IFontDisp); $[AXCtrls 功能 说明 首部 procedure GetOlePicture(Picture: TPicture; var OlePicture: IPicture); $[AXCtrls 功能 说明 首部 procedure GetOleStrings(Strings: TStrings; var OleStrings: IStrings); $[AXCtrls 功能 说明 首部 function GetPackageDescription(ModuleName: PChar): string; $[SysUtils 功能 说明 首部 procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc); $[SysUtils 功能 说明 首部 function GetParentForm(Control: TControl): TCustomForm; $[Forms 功能 说明 首部 function GetShortHint(const Hint: string): string; $[Controls 功能 说明 首部 function GradToRad(Grads: Extended): Extended; $[Math 功能 将参数Grads转换成弧度返回。 说明 radians = grads(pi/200)。 首部 function GraphicExtension(GraphicClass: TGraphicClass): string; $[Graphics 返回图象的扩展名。 功能 说明 Graphic class File extension returned Tbitmap | bmp Ticon | ico Tmetafile | emf TJPEGImage | jpg 首部 function GraphicFilter(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 功能 说明 Graphic class Filter string returned Tbitmap | Bitmaps (*.bmp),*.bmp Ticon | Icons (*.ico),*.ico Tmetafile | All(*.emf;*.wmf),*.emf;*.wmf,Enhanced Metafiles (*.emf),*.emf,Metafiles(*.wmf),*.wmf TJPEGImage | All(*.jpeg;*.jpg),*.jpeg;*.jpg,JPEG Image File (*.jpeg),*.jpeg,JPEG Image File (*.jpg),*.jpg TGraphic | 以上全部 首部 function GUIDToString(const ClassID: TGUID): string; $[ComObj 功能 说明 首部 procedure Halt [ ( Exitcode: Integer) ]; $[System 功能 立即终止程序的执行，返回操作系统。 说明 有两种形式调用Halt。第一种是无参数，第二种是有参数，为传送一个Integer的类型出口码。不带参数的Halt相当于Halt(0)。 首部 function HasConstraints(Dataset: TDBDataset): Boolean; $[DRIntf 功能 说明 首部 function Hi(X: ): Byte; $[System 功能 返回参数X的高位字节。 说明 函数Hi把X看作一个无符号数组，返回其市位字节。 ##Hi($1234) = $12 - 16 - Delphi procedure and function 首部 function High(X); $[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 功能 说明 首部 function HttpExtensionProc(var ECB: TEXTENSION_CONTROL_BLOCK): DWORD; $[ISAPIApp 功能 说明 type DWORD = Longword; type TEXTENSION_CONTROL_BLOCK = packed record cbSize: DWORD; // size of this struct. dwVersion: DWORD; // version info of this spec ConnID: 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)。 首部 function IdentToCharset(const Ident: string; var Charset: Longint): Boolean; $[Graphics 功能 返回将名称转换成字符集是否成功。 说明 首部 function IdentToColor(const Ident: string; var Color: Longint): Boolean; $[Graphics 功能 返回将名称转换成颜色是否成功。 说明 首部 function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean; $[controls 功能 返回将名称转换成鼠标指针是否成功。 说明 首部 procedure Inc(var X [ ; N: Longint ] ); $[System 功能 取有序变量X的第N个后继。相当于for i := 1 to N do X := Succ(X); 说明 当不带参数N时，则N默认为1。用Inc比用与之等价的赋值语句执行得快。 首部 procedure Include(var S: set of T; I:T); $[System 功能 将新的元素I, 添加到集合S中。{等价于S := S + [I]} 说明 用Include比用与之等价的赋值语句执行得快。 首部 function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime; $[SysUtils 功能 返回delphi的日期时间类型参数Date向后NumberOfMonths个月的值。 说明 首部 function InitCommonControl(CC: Integer): Boolean; $[ComCtrls 功能 说明 首部 procedure Initialize(var V [ ; Count: Integer ] ); $[System 功能 初始化变量。 说明 首部 procedure InitializePackage(Module: HMODULE); $[SysUtils 功能 说明 - 17 - Delphi procedure and function 首部 function InputBox(const ACaption, APrompt, ADefault: string): string; $[Dialogs 功能 返回用户在输入框中输入的字符串。 说明 Acaption表示标题， APrompt表示提示，ADefault表示默认值。 首部 function InputQuery(const ACaption, APrompt: string; var Value: 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 功能 返回参数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 功能 说明 首部 function InterestRate(NPeriods: Integer; Payment, PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime): Extended; $[Math 功能 说明 首部 procedure InterfaceConnect(const Source: IUnknown; const IID: TIID; const Sink: IUnknown; var Connection: Longint); $[ComObj 功能 说明 首部 procedure InterfaceDisconnect(const Source: IUnknown; const IID: TIID; $[ComObj 功能 说明 首部 function InternalRateOfReturn(Guess: Extended; const CashFlows: array of Double): Extended; $[Math 功能 说明 首部 function IntPower(Base: Extended; Exponent: Integer): Extended register; $[Math 功能 返回幂指函数的值。 说明 Result = Base^Exponent 首部 function IntToHex(Value: Integer; Digits: Integer): string; $[SysUtils function IntToHex(Value: Int64; Digits: Integer): string; overload; 功能 将整型数转换为十六进制数返回。 说明 首部 function IntToStr(Value: Integer): string; overload; $[SysUtils function IntToStr(Value: Int64): string; overload; 功能 将整型数转换为字符串返回。 说明 首部 function IOResult: Integer; $[System 功能 返回最新的I/O操作完成状态。 说明 如果编译开关{$I}的状态是{$I+}，则IOResult不为0时表示I/O操作出现非法操作。 首部 function IsAccel(VK: Word; const Str: string): Boolean; $[Forms 功能 说明 首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; $[SysUtils 功能 说明 首部 function IsDragObject(Sender: TObject): Boolean; $[Controls 功能 说明 首部 function IsLeapYear(Year: Word): Boolean; $[SysUtils 功能 返回参数Year是否为闰年。 说明 首部 function IsNullID(const ID): Boolean; $[DRIntf - 18 - Delphi procedure and function 功能 是否是一个没有定义的标识。 说明 首部 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 功能 测试字符串是否为有效的标识符。 说明 ##IsValidIdent(‘FileName1’) = true; IsValidIdent(‘2X’) = False; 首部 function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils 功能 返回字符串Delimiters中的所有字符在S中出现的最大位置。 说明 LastDelimiter('\.:','c:\filename.ext') = 12。 首部 function Ldexp(X: Extended; P: Integer): Extended register; $[Math 功能 返回参数X的P次积平方值。 说明 X*(2**P) 首部 function Length(S: ): Integer; $[System 功能 返回字符串的动态长度 说明 所返回的是字符串S所含的字符数，而不是其声明的长度。 首部 function LineStart(Buffer, BufPos: PChar): PChar; $[classes 功能 说明 首部 function Ln(X: Real): Real; $[System 功能 返回参数X的自然对数函数值。 说明 若在运行时X的为0或负数，则产生运行错，程序会终止运行。 首部 function LnXP1(X: Extended): Extended; $[Math 功能 返回ln(x + 1)。 说明 首部 function Lo(X): Byte; $[System 功能 返回参数X的低位字节。 说明 参见Hi ##Lo($1234) = $34 首部 function LoadPackage(const Name: string): HMODULE; $[SysUtils 功能 说明 首部 function LoadStr(Ident: Integer): string; $[SysUtils 功能 从应用程序的可执行文件中装载字符资源 说明 首部 function Log10(X: Extended): Extended; $[Math 功能 返回参数X以10为低的对数值。 说明 {LogX} 10 首部 function Log2(X: Extended): Extended; $[Math 功能 返回参数X以2为低的对数值。 说明 {LogX} 2 首部 function LoginDialog(const ADatabaseName: string; var AUserName, APassword: string): Boolean; $[DBLogDlg 功能 说明 首部 function LoginDialogEx(const ADatabaseName: string; var AUserName, APassword: string; NameReadOnly: Boolean): Boolean; $[DBLogDlg 功能 说明 首部 function LogN(Base, X: Extended): Extended; $[Math 功能 返回参数X以Base为低的对数值。 说明 LogX Base 首部 function IOResult: Integer; $[System 功能 返回最近一次I/O操作的状态值。 说明 需要编译指示{$I-}以便IOResult捕获I/O错误。返回值为表示I/O操作成功。 首部 function Low(X); $[System 功能 返回参数的下限值 说明 Type Low returns - 19 - Delphi procedure and function 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; $[corbaobj 功能 说明 type TCorbaPrincipal = array of Byte; 首部 procedure MarshalAny(const OutBuf: IMarshalOutBuffer; const OV: Variant); $[corbaobj 功能 说明 首部 procedure MarshalObject(OutBuf: IMarshalOutBuffer; IID: TGUID; const Intf: IObject); $[corbaobj 功能 说明 首部 function MatchesMask(const FileName, Mask: string): Boolean; $[Masks 功能 说明 首部 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 功能 返回整型数组Data元素中最大的一个值。 说明 首部 function MaxValue(const Data: array of Double): Double; $[Math 功能 返回实型数组Data元素中最大的一个值。 说明 首部 function Mean(const Data: array of Double): 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。 说明 首部 function MessageDlg(const Msg: 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 功能 在指定位置显示对话筐并返回用户选项。 说明 const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; mrNo = idNo; mrAll = mrNo + 1; mrNoToAll = mrAll + 1; mrYesToAll = mrNoToAll + 1; 首部 function MessageDlgPosHelp(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer, const HelpFileName: string): Word; $[Dialogs - 20 - Delphi procedure and function 功能 从指定的帮助文件中取得数据，来显示一个帮助对话筐，并返回用户选项。 说明 首部 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; $[filectrl 功能 说明 type TFileName = type string; 首部 function MinIntValue(const Data: array of Integer): Integer; $[Math 功能 返回整型数组Data元素中最小的一个值。 说明 首部 function MinValue(const Data: array of Double): Double; $[Math 功能 返回实型数组Data元素中最小的一个值。 说明 首部 procedure MkDir(Path: string); $[System 功能 建立一由子目录Path串命名的新子目录。 说明 检查IOResult可以确定建立新子目录是否成功。 首部 procedure MomentSkewKurtosis(const Data: array of Double; var M1, M2, M3, M4, Skew, Kurtosis: Extended); $[Math 功能 对数组Data进行统计 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 。 说明 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); $[Controls 功能 说明 首部 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils 功能 说明 首部 function NativeCompareStr(Locale: TLocale; const S1, S2: string; Len: Integer): Integer; $[DBTables 功能 说明 首部 function NativeCompareStrBuf(Locale: TLocale; const S1, S2: PChar; Len: Integer): Integer; $[DBTables 功能 说明 首部 function NativeCompareText(Locale: TLocale; const S1, S2: string; Len: Integer): Integer; $[DBTables 功能 说明 首部 function NativeCompareTextBuf(Locale: TLocale; const S1, S2: PChar; Len: Integer): Integer; $[DBTables 功能 说明 首部 procedure NativeToAnsi(Locale: TLocale; NativeStr: PChar; var AnsiStr: string); $[DBTables 功能 说明 首部 procedure NativeToAnsiBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $[DBTables 功能 说明 首部 function NetPresentValue(Rate: Extended; const CashFlows: array of Double; PaymentTime: TPaymentTime): Extended; $[Math 功能 说明 首部 procedure New(var P: Pointer); $[System 功能 建立新的动态变量,并将该变量的首地址赋值给P。 说明 - 21 - Delphi procedure and function 首部 function NewAttr(Field: TField; const FieldID: TFieldID; const AttrName: string; const Parent: TAttrID): TAttrID; $[DRIntf 功能 说明 首部 function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: Word; const AName: string): TMenuItem; $[Menus 功能 说明 type TShortCut = Low(Word) .. High(Word); type TNotifyEvent = procedure (Sender: TObject) of object; 首部 function NewLine: TMenuItem; $[Menus 功能 说明 首部 function NewMenu(Owner: TComponent; const AName: string; Items: array of TMenuItem): TMainMenu; $[Menus 功能 说明 首部 function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; Items: array of TMenuitem): TPopupMenu; $[Menus 功能 说明 首部 function NewStr(const S: string): PString; $[SysUtils 功能 在堆栈上分配新的字符串 说明 首部 function NewSubMenu(const ACaption: string; hCtx: Word; const AName: string; Items: array of TMenuItem; AEnabled: Boolean): TMenuItem; $[Menus 功能 说明 首部 function Norm(const Data: array of Double): Extended; $[Math 功能 说明 首部 function Now: TDateTime; $[SysUtils 功能 返回当前的日期和时间 说明 首部 function NumberOfPeriods(Rate, Payment, PresentValue, FutureValue: Extended; PaymentTime: TPaymentTime): Extended; $[Math 功能 说明 首部 procedure ObjectTextToBinary(Input, Output: TStream); $[Classes 功能 说明 首部 procedure ObjectTextToResource(Input, Output: TStream); $[Classes 功能 说明 首部 function Odd(X: Longint): Boolean; $[System 功能 测试参数X是否为奇数。 说明 X为奇数时，Odd返回值True，否则返回值False。 首部 procedure OleCheck(ECode: HResult); $[ComObj 功能 说明 首部 procedure OleError(ErrorCode: HResult); $[ComObj 功能 说明 首部 procedure OleFontToFont(const OleFont: Variant; Font: TFont); $[OleCtrlsj 功能 说明 首部 function OleStrToString(Source: PWideChar): string; $[System 功能 说明 首部 procedure OleStrToStrVar(Source: PWideChar; var Dest: string); $[System - 22 - Delphi procedure and function 功能 说明 首部 function Ord(X: ): Longint; $[System 功能 返回参数X所对应的序号。 说明 第一个元素的序号为0，其余类推。 ##Ord(‘a’) = 97; Ord(False) = 0; 首部 procedure OutOfMemoryError; $[SysUtils 功能 引起outofmemory意外 说明 首部 function ParamCount: Integer; $[System 功能 返回在命令行上传递给程序的参数数量 说明 如命令行中不包含输入参数，ParamCount则返回值0。 首部 function ParamStr(Index: Integer): string; $[System 功能 返回当前运行的程序路径和名称，并以字符串形式返回第Index个命令参数。 说明 ParamStr(0)返回当前程序名。 首部 function ParseDate(const DateStr: string): TDateTime; $[HTTPApp 功能 说明 首部 function PasswordDialog(ASession: TComponent): Boolean; $[DBPWDlg 功能 返回用户输入的口今是否正确。 说明 首部 function Payment(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 功能 说明 首部 function Pi: 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; $[Math 功能 {即:返回Coefficients[0] + Coefficients[1] * X + ... + Coefficients[N] * (X ** N)} 说明 首部 function PopnStdDev(const Data: array of Double): Extended; $[Math 功能 返回标准偏差入口值。 说明 此函数一般使用在商业和金融方面的计算。 首部 function PopnVariance(const Data: array of Double): Extended; $[Math 功能 返回数组的平均值。{即:返回TotalVariance/N} 说明 参见TotalVariance。 首部 function Pos(Substr, S: ): Integer; $[System 功能 返回子串Substr在主串S中的起始位置 。 说明 若S中不存在所述子串，则Pos返回值0。 首部 function Power(Base, Exponent: Extended): Extended; $[Math 功能 返回参数Base的Exponent次方。{即:返回Base**Exponent} 说明 指数函数。 首部 function Pred(X: ): ; $[System 功能 返回参数的前趋值。 说明 参数X可以是任何预定义的有序类型，也可为是用户构造的枚举类型。如果X已经是序列中的第一个数，并且进行范围检查的编译开关{$R}在开的位置，系统将触发一个导常。 ##Pred(‘c’) = ‘b’; Pred(True) = False; 首部 function PresentValue(Rate: Extended; NPeriods: Integer; Payment, FutureValue: Extended; PaymentTime: TPaymentTime): Extended; $[System - 23 - Delphi procedure and function 功能 说明 首部 function Printer: TPrinter; $[Printers 功能 返回当前操作的打印机。 说明 可以直接操作打印机。 首部 procedure ProcessPath(const EditText: string; var Drive: Char; var DirPart: string; var FilePart: string); $[filectrl 功能 将参数分解为驱动器名、路径名和文件名，分别赋给Drive、DirPart和FilePart。 说明 注意:文件必须实际存在。如果没有真实的文件，系统将引起异常。 首部 function Ptr(Address: Integer): Pointer; $[System 功能 返回一个指定内存地址的指针值。 说明 使用Ptr可建立指向内存已知位置的指针。 首部 function QualifyTableName(Database: TDatabase; const TableName: string): string; $[DRIntf 功能 说明 首部 function QualifyTableNameByName(const SessionName, DatabaseName, TableName: string): string; $[DRIntf 功能 说明 首部 function QuotedStr(const S: string): string; $[SysUtils 功能 返回字符串S在Deiphi中的表示形式; 说明 ##QuotedStr(‘Zswang’) = ‘‘Zswang’’; QuotedStr(‘Zswang’) 首部 function RadToCycle(Radians: Extended): Extended; $[Math 功能 将参数Radians转换成周度返回。 说明 cycles = radians/(2pi)。 首部 function RadToDeg(Radians: Extended): Extended; $[Math 功能 将参数Radians转换成度返回。 说明 degrees = radians(180/pi)。 首部 function RadToGrad(Radians: Extended): Extended; $[Math 功能 将参数Radians转换成梯度返回。 说明 grads = radians(200/pi)。 首部 procedure RaiseLastWin32Error; $[SysUtils 功能 说明 首部 function RandG(Mean, StdDev: Extended): Extended; $[Math 功能 产生一个高斯随机分布数。 说明 首部 function Random: Extended; ; $[System function Random(Range: Integer): Integer; 功能 返回随机数序列的下一个值。 说明 随机数序列可以选择性地由Randomize进行初始化。Random的第一种形式返回介于[0,1)的一个Extended类型随机数;的第一种形式返回介于[0, Range]的一个Integer类型随机数。 首部 procedure Randomize; $[System 功能 初始化随机数产生器。 说明 调用Randomize使得每次运行程序时都产生一个新的随机数序列。若不调用Randomize，则程序将重复同一随机数序列。 首部 procedure Read(F , V1 [, V2,...,Vn ] ); $[System 功能 从文件中读数据 说明 Read一次可读取多个变量。 首部 function ReadComponentRes(const ResName: string; Instance: TComponent): TComponent; $[Classes 功能 说明 首部 function ReadComponentResEx(HInstance: THandle; const ResName: string): TComponent; $[Classes 功能 说明 首部 function ReadComponentResFile(const FileName: string; Instance: TComponent): TComponent; $[Classes 功能 说明 首部 procedure Readln([ var F: Text; ] V1 [, V2, ...,Vn ]); $[System - 24 - Delphi procedure and function 功能 执行read过程，然后跳到文件下一行。 说明 首部 procedure ReallocMem(var P: Pointer; Size: Integer); $[System 功能 分配一动态变量。 说明 首部 function Rect(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 功能 说明 首部 procedure RegisterClass(AClass: TPersistentClass); $[Classes 功能 说明 首部 procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string); $[Classes 功能 说明 首部 procedure RegisterClasses(AClasses: array of TPersistentClass); $[Classes 功能 说明 首部 procedure RegisterComponentEditor(ComponentClass: TComponentClass; ComponentEditor: TComponentEditorClass); $[DsgnIntf 功能 说明 首部 procedure RegisterComponents(const Page: string; ComponentClasses: array of TComponentClass); $[Classes 功能 把新元件放入指定页中。 说明 ##RegisterComponents(‘Samples’, [MyPageUn]) 首部 procedure RegisterComServer(const DLLName: string); $[ComObj 功能 说明 首部 procedure RegisterFields(const FieldClasses: array of TFieldClass); $[Db 功能 说明 首部 procedure RegisterIntegerConsts(IntegerType: Pointer; IdentToInt: TIdentToInt; IntToIdent: TIntToIdent); $[Classes 功能 说明 type TIdentToInt = function(const Ident: string; var Int: Longint): Boolean; type TIntToIdent = function(Int: Longint; var Ident: string): Boolean; 首部 procedure RegisterLibraryExpert(Expert: TIExpert); $[ExptIntf 功能 说明 首部 procedure RegisterNoIcon(ComponentClasses: array of TComponentClass); $[Classes 功能 说明 首部 procedure RegisterNonActiveX(ComponentClasses: array of TComponentClass; AxRegType: TActiveXRegType); $[Classes 功能 说明 type TActiveXRegType = (axrComponentOnly, axrIncludeDescendants); 首部 procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string; EditorClass: TPropertyEditorClass); $[DsgnIntf 功能 说明 - 25 - Delphi procedure and function 首部 function RemoveDir(const Dir: string): Boolean; $[SysUtils 功能 返回转移目录是否成功。 说明 如果转移成功则返回True，否则返回False。 首部 procedure Rename(var F: ; Newname: string); $[System 功能 将与文件变量相联系的外部文件名更改为Newname 说明 在调用Rename之前，文件变量F应已与一当前外部文件名相联系。注意:在同一目录下要避免Newname与其它文件不同名。 首部 function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils 功能 对外部文件重命名，并返回改名是否成功。 说明 ## RenameFile(‘c:\pascal\zs.pas’, ‘c:\pascal\zs1.pas’); 首部 procedure Reset(var F: File [; RecSize: Word ] ); $[System 功能 打开一个已存在的文件。 说明 实现读取的准备，将文件指针指向文件头。记录大小RecSize默认为128。 首部 procedure Rewrite(var F: File [; Recsize: Word ] ); $[System 功能 建立并打开一新的文件 说明 实现写入的准备，将文件指针指向文件头。记录大小RecSize默认为128。 首部 procedure RmDir(S: string); $[System 功能 删除由参数S给定的子目录。 说明 所删除的子目录必须是一个空目录。可由IOReult 检测 工程第三方检测合同工程防雷检测合同植筋拉拔检测方案传感器技术课后答案检测机构通用要求培训 调用RmDir是否成功。 首部 function Round(X: Extended): Int64; $[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将模拟程序对该错误的响应。 首部 function SafeRef(vRefIn: OleVariant): OleVariant; safecall; $[Mtx 功能 返回一个可靠的对象变体。 Mtx: 多任务执行程序。 说明 首部 procedure Seek(var F; N: Longint); $[System 功能 将文件指针定位至文件F中序号为N的元素处。 说明 规定 关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定 文件的第一个元素其序号为0。 首部 function SeekEof [ (var F: Text) ]: Boolean; $[System 功能 返回正文文件F的文件结束状态值。 说明 SeekEof与Eof功能 类似，但前者在返回文件结束状态值前将跳略所有空格符、制表符种行结束标志。这在从一正文文件中读取数字值时是非常有用。它也有助于避免读取正文末行之后的额外空白行。 首部 function SeekEoln [ (var F: Text) ]: Boolean; $[System 功能 返回正文文件F的行结束状态值。 说明 SeekEoln与Eoln功能 类似，但前者在返回行结束状态值前将跳略所有空格符和制表符。这在从一正文文件中读取数字值时是非常有用。它也有助于避免读取每最后一个字符之后的额外空格符。 首部 function SelectDirectory(var Directory: 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; - 26 - Delphi procedure and function ## Set8087CW($133f); { Disable all fpu exceptions } ## ThirdPartyRoutine; ## Set8087CW(Saved8087CW); ## end; 首部 procedure SetCaptureControl(Control: TControl); $[Controls 功能 指定元件获得全部鼠标的消息。 说明 ## SetCaptureControl(Form1); 首部 function SetClipboard(NewClipboard: TClipboard): TClipboard; $[ clipbrd 功能 返回一个被替换的面版。 说明 首部 function SetCurrentDir(const Dir: string): Boolean; $[ SysUtils 功能 返回设置当前路径是否成功。 说明 首部 function SetErrorProc(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 功能 设置内存管理器的入口点。 说明 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 功能 设置对象链接的字体。 说明 首部 procedure SetOlePicture(Picture: TPicture; OlePicture: IPictureDisp); $[AXCtrls 功能 设置对象链接的图形。 说明 首部 procedure SetOleStrings(Strings: TStrings; OleStrings: IStrings); $[AXCtrls 功能 设置对象链接的字符串列表。 说明 首部 procedure SetString(var s: 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缓冲区。 首部 function ShortCut(Key: Word; Shift: TShiftState): TShortCut; $[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 功能 将快捷变量转换成字符串类型返回。 - 27 - Delphi procedure and function 说明 ## ShortCutToText(ShortCut(Word('O'), [ssCtrl])) = ‘Ctrl+O’; 首部 procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer); $[SysUtils 功能 显示意外消息与地址。 说明 首部 procedure ShowMessage(const Msg: string); $[Dialogs 功能 用一个模态对话框来显示一个重要信息。 说明 Msg表示所要显示的信息。在模态对话框出现时不能产生其它操作。 首部 procedure ShowMessageFmt(const Msg: string; Params: array of const); $[Dialogs 将信息格式化后显示模态对话框中。 功能 说明 参见ShowMessage。 首部 function Sin(X: Extended): Extended; $[System 功能 返回参数X的正弦值。 说明 参数X以弧度为单位。 首部 procedure SinCos(Theta: Extended; var Sin, Cos: Extended) register; $[Math 功能 计算参数Theta的正弦值、余弦值，分别赋予变量Sin、Cos中。 说明 参数Theta以弧度为单位。 首部 function Sinh(X: Extended): Extended; $[Math 功能 返回参数X的双曲正弦值。 说明 参数X以弧度为单位。 首部 function SizeOf(X: |): Integer; $[System 功能 返回参数所占的字节数。 说明 在调用FillChar或Move时，利用SizeOf可访问意外地对超出变量所占地址之外的内存进行复写。 首部 function Slice(var A: array; Count: Integer): array; $[System 功能 返回一个子数组。 说明 首部 function SLNDepreciation(Cost, Salvage: Extended; Life: Integer): Extended; $[Math 功能 根据成本、折旧率、和周期计算折旧。 说明 ** Life > 0 首部 function SmallPointToPoint(const P: TSmallPoint): TPoint; $[Windows 功能 将小型坐标类型转换成坐标类型返回。 说明 TSmallPoint = record x: SHORT; y: SHORT; end; 首部 function Sqr(X: ): ; $[System 功能 返回参数X的平方值。 说明 甚至是较小的整数的平方也可能会产生不可预测的结果。为防止此类情况发生，建议最好将其赋给一个如Word、Longint类型或Int64类型的大型变量。 首部 function Sqrt(X: Extended): Extended; $[System 功能 返回参数X的平方根值。 说明 Sqrt返回一个实数类型的结果。 首部 function StatusString(StatusCode: Integer): string; $[HTTPApp 功能 返回一个HTTP事先指定答应身份代码的含义。 说明 首部 function StdDev(const Data: array of Double): Extended; $[Math 功能 返回数组的标准偏差。 说明 首部 procedure Str(X [: Width [: Decimals ]]; var S: ); $[System 功能 把参数X的数值转换成相应的字符串表示方式，置于S中。 说明 Width表示字串S的整个宽度，Decimals表示小数部份的宽度。注意:给整型数据指定小数宽度属于非法的调用。 首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils 功能 给以null结束的字符串分配最大长度-1的缓冲区 说明 首部 function StrBufSize(Str: PChar): Cardinal; $[SysUtils 功能 返回存储在由stralloc分配的字符缓冲区的最大字符数。 说明 首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; $[SysUtils - 28 - Delphi procedure and function 功能 返回指定位置Index上的字符是何类型。 说明 type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); 首部 function StrCat(Dest, Source: PChar): PChar; $[SysUtils 功能 将一字符串附加到另一字符串尾并返回合并的字符串。 说明 首部 function StrComp(Str1, Str2 : PChar): Integer; $[SysUtils 功能 比较两个字符串。 说明 首部 function StrCopy(Dest, Source: PChar): PChar; $[SysUtils 功能 将一个字符串复制到另一个字符串中。 说明 首部 procedure StrDispose(Str: PChar); $[SysUtils 功能 释放堆栈上的字符串。 说明 首部 function StrECopy(Dest, Source: PChar): PChar; $[SysUtils 功能 将一字符串复制到另一个字符串并返回结果字符串尾部的指针。 说明 首部 function StrEnd(Str: PChar): PChar; $[SysUtils 功能 返回指向字符串尾部的指针。 说明 首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils 功能 格式化一系列的参数。 说明 首部 function StrIComp(Str1, Str2:PChar): Integer; $[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; $[SysUtils 功能 在字符串S将老字符串OldPattern用新字符NewPattern串取代返回。 说明 type TReplaceFlags = set of (rfReplaceAll, rfIgnore Case); Flags的值为rfReplaceAll则需要全字匹配，否则将忽略大小写。 首部 function StringToColor(const S: string): TColor; $[Graphics 功能 将字符串转换成颜色类型返回。 说明 首部 function StringToCursor(const S: string): TCursor; $[controls 功能 将字符串转换成串行类型返回。 说明 type TCursor = -32768..32767; 首部 function StringToGUID(const S: string): TGUID; $[ComObj 功能 将字符串转换成图形界面类型返回。 说明 首部 function StringToOleStr(const Source: string): PWideChar; $[System 功能 将Delphi的字符串转换成OLE格式返回。 说明 首部 function StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar; $[System 功能 将Delphi的字符串转换成扩充字符串返回 说明 首部 function StripHotKey(const Text: string): string; $[Menus 功能 返回快捷键的标记。 说明 ## StripHotKey (‘&Close’) = ‘Close’; 首部 function StrLCat(Dest, Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils 功能 将一字符串中的字符附加到另一字符串尾并返回合并的字符串。 说明 首部 function StrLComp(Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils 功能 返回以最大长度MaxLen比较字符串Str1和Str2的状态。 说明 - 29 - Delphi procedure and function 首部 function StrLCopy(Dest, Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils 功能 将一个字符串中的字符复制到另一个字符串中。 说明 首部 function StrLen(Str: PChar): Cardinal; $[SysUnits 功能 返回字符串中的字符数。 说明 首部 function StrLFmt(Buffer: PChar; MaxLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils 功能 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针。 说明 首部 function StrLIComp(Str1, Str2: PChar; MaxLen: Cardinals): Integer; $[SysUtils 功能 以最大长度比较两个字符串。 说明 首部 function StrLower(Str: PChar): PChar;uses SysUtils; $[SysUtils 功能 将字符串中的字符转换为小写。 说明 首部 function StrMove(Dest, Source: PChar; Count: Cardinal): PChar;uses SysUtils; $[SysUtils 功能 将一个字符串中的字符复制到另一个字符串中。 说明 首部 function StrNew(Str: PChar): PChar; $[SysUtils 功能 在堆栈上分配一个字符串。 说明 首部 function StrPas(Str: PChar): string; $[SysUtils 功能 将以null结束的字符串转换为pascal类的字符串。 说明 首部 function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils 将pascal类的字符串复制为以null结束的字符串。 功能 说明 Dest表示源地址。 首部 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $[SysUtils 功能 从pascal类的最大长度字符串复制为以null结束的字符串。 说明 首部 function StrPos(Str1, Str2: PChar): PChar; $[SysUtils 功能 返回一个字符串在另一个字符串中首次出现指针。 说明 首部 function StrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils 功能 返回字符串中最后出现字符的指针。 说明 首部 function StrScan(Str: PChar; Chr: Char): PChar; $[SysUtils 功能 返回字符串中出现首字符的指针。 说明 首部 function StrToCurr(const S: string): Currency; $[SysUtils 功能 将字符串转换成一个货币数值返回。 说明 如果不是正确的货币数值字符串将会引起异常。 首部 function StrToDate(const S: string): TDateTime; $[SysUtils 功能 将字符串转换为日期格式。 说明 如果不是正确的日期字符串将会引起异常。 首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils 功能 将字符串转换为日期时间格式。 说明 如果不是正确的日期时间字符串将会引起异常。 首部 function StrToFloat(const S: string): Extended; $[SysUtils 功能 将给定的字符串转换为浮点数。 说明 如果不是正确的浮点数字符串将会引起异常。 首部 function StrToInt(const S: string): Integer; $[SysUtils 功能 将字符串转换为整型。 说明 如果不是正确的整数字符串将会引起异常。 首部 function StrToInt64(const S: string): Int64; $[SysUtils - 30 - Delphi procedure and function 功能 将字符串转换为64位整型。 说明 参见StrToInt。 首部 function StrToInt64Def(const S: string; Default: Int64): Int64; $[SysUtils 功能 将字符串转换为64位整型或默认值。 说明 参见StrToIntDef。 首部 function StrToIntDef(const S: string; Default: Integer): Integer; $[SysUtils 功能 将字符串转换为整型或默认值。 [注]有安全性。 说明 ## StrToIntDef(‘1200’, 100) = 1200; StrToIntDef(‘$12’, 100) = 18; StrToIntDef(‘za$12’, 100) = 100; 首部 function StrToTime(const S: string): TDateTime; $[SysUtils 功能 将字符串转换为日期时间格式。 说明 参见StrToDate。 首部 function StrUpper(Str: PChar): PChar; $[SysUtils 功能 将字符串中的字符转换为大写。 说明 首部 function Succ(X: ): ; $[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 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所有元素之和、所有元素平方之和，将其值返回至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($1234) = $3412; 首部 function SYDDepreciation(Cost, Salvage: Extended; Life, Period: Integer): Extended; $[Math 功能 计算跌价后的资产。 说明 首部 function SysErrorMessage(ErrorCode: Integer): string; $[SysUtils 功能 返回系统中错误代码所对应的API信息。 说明 此函可以有助于已习惯Windows编程的用户使用。 首部 function SysFreeMem(P: Pointer): Integer; $[System or ShareMem 功能 返回指针所指向系统内存地址的自由空间大小。 说明 首部 function SysGetMem(Size: Integer): Pointer; $[System or ShareMem 功能 返回指定字节数量分配后的指针。 说明 首部 function SysReallocMem(P: Pointer; Size: Integer): Pointer; $[System or ShareMem 功能 返回指定字节数量再分配后的指针。 说明 首部 function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; $[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以弧度为单位。 - 31 - Delphi procedure and function 首部 function TerminateExtension(dwFlags: DWORD): Bool; $[ISAPIApp 功能 返回HTTP的申请是否准备好。 说明 首部 function TextToFloat(Buffer: PChar; var Value; Value Type: TFloatValue): Boolean; $[SysUtils 功能 将字符串转换为浮点数。 说明 以null结束的格式。 首部 function TextToShortCut(Text: string): TShortCut; $[Menus 功能 根据文字Text返回一个快捷的值。 type TShortCut = Low(Word) .. High(Word); 说明 首部 function Time: TDateTime; $[SysUtils 功能 返回当前的时间。 说明 首部 function TimeStampToDateTime(const TimeStamp: 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类型返回。 说明 首部 function TimeToStr(Time: TDateTime): string; $[SysUtils 功能 将时间格式转换为字符串。 说明 首部 function TotalVariance(const Data: array of Double): Extended; $[Math 统计数组的差异值。 功能 说明 Total Variance: SUM(i=1,N)[(X(i) - Mean)**2] 首部 function Trim(const S: string): string; $[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 Trunc(X: Extended): Int64; $[System 功能 将参数截尾取整。{即:返回[X]} 说明 此函数操作与Int类似，但返回的是一个整型结果。 ##Trunc(12.901) = 12 ;Trunc(-12.901) = -12; 首部 procedure Truncate(var F: ); $[System 功能 截去文件当前指针位置以后的所有元素。 说明 调用Truncate可将文件当前文件F指针位置文件尾之间的部份删除掉。当前文件指针指向新的文件尾。 首部 function TypeInfo(TypeIdent): Pointer; $[System 功能 在程序运行中返回类型标识的指针。 说明 首部 procedure UnassociateAttr(const FieldID: TFieldID); $[DRIntf 功能 将属性标识和字段标识移开。 说明 type TID = record Reseved: array[1..6] of Byte; end; TFieldID = type TID; 首部 procedure UniqueString(var S: string); $[System 功能 创建一个唯一的字符串。 说明 首部 function UnixPathToDosPath(const Path: string): string; $[HTTPApp 功能 将Unix系统路径名转换成Dos系统路径名返回。 说明 ##UnixPathToDosPath(‘c:/pascal/zs.pas’) = ‘c:\pascal\zs.pas’; - 32 - Delphi procedure and function 首部 procedure UnloadPackage(Module: HMODULE); $[SysUtils 功能 离开一个包。 说明 首部 function UnmarshalAny(InBuf: IMarshalInBuffer): Variant; $[corbaobj 功能 将ImarshalInBuffer类型的变量汇集返回。 说明 首部 function UnmarshalObject(InBuf: IMarshalInBuffer; IID: TGUID): IObject; $[corbaobj 功能 说明 首部 function UnmarshalText(InBuf: IMarshalInBuffer): string; $[corbaobj 功能 说明 首部 function UnmarshalWideText(InBuf: IMarshalInBuffer): WideString; $[corbaobj 功能 说明 首部 procedure UnRegisterActions(const AClasses: array of TBasicActionClass); $[ActnList 功能 说明 首部 procedure UnRegisterClass(AClass: TPersistentClass); $[Classes 功能 说明 首部 procedure UnRegisterClasses(AClasses: array of TPersistentClass); $[Classes 功能 说明 首部 procedure UnRegisterModuleClasses(Module: HMODULE); $[Classes 功能 说明 首部 function UpCase(Ch: Char): Char; $[System 功能 返回字符Ch的大写形式。 说明 若Ch不在[‘a’..’z’]的范围中，则调用将返回原值。 ##UpCase(‘e’) = ‘E’; UpCase(‘H’) = ‘H’; 首部 procedure UpdateAttr(Field: TField; const FieldID: TFieldID; const AttrID: TAttrID); $[DRIntf 功能 说明 首部 procedure UpdateConstraints(DataSet: TDBDataset; Constraints: TCheckConstraints); $[DRIntf 功能 说明 首部 procedure UpdateDataset(Dataset: TDBDataset); $[DRIntf 功能 说明 首部 procedure UpdateField(Field: TField; const FieldID: TFieldID; const AttrID: TAttrID); $[DRIntf 功能 说明 首部 function UpperCase(const S: string): string; $[SysUtils 功能 返回字符串S的大写形式。 说明 若S中的字符不在[‘a’..’z’]的范围，则不作改变。 ## UpperCase(‘Chinese’) = ‘CHINESE’; UppperCase(‘ZswangY37’) = ‘ZSWANGY37’; 首部 procedure Val(S: ; var V: ; var Code: Integer); $[System 功能 将字符串S转换成整型值。 说明 若字符串S中有非法字符，则将第一个出错的位置返回至Code中。如果Code的值为0则表示转换成功。 首部 function ValidParentForm(Control: TControl): TCustomForm; $[Forms 功能 说明 首部 function VarArrayCreate(const Bounds: array of Integer; VarType: Integer): Variant; $[System 功能 以给定的界限和维数建立变体数组 说明 ##var a: Variant; begin A := VarArrayCreate([0, 4], varVariant); end; 首部 function VarArrayDimCount(const A: Variant): Integer; $[System - 33 - Delphi procedure and function 功能 返回给定变体的维数。 说明 首部 function VarArrayFromStrings(Strings: TStrings): Variant; $[databkr 功能 说明 首部 function VarArrayHighBound(const A: Variant; Dim: Integer): Integer; $[System 功能 返回给定变体数组维数的上界。 说明 首部 function VarArrayLock(var A: Variant): Pointer; $[System 功能 锁定给定的变体数组。 说明 首部 function VarArrayLowBound(const A: Variant; Dim: Integer): Integer; $[System 功能 返回给定变体数组维数的下界。 说明 首部 function VarArrayOf(const Values: array of Variant): Variant; $[ System 功能 返回指定变体的数组元素。 说明 首部 procedure VarArrayRedim(var A: Variant; HighBound: Integer); $[ System 功能 通过改变上限来调整变体的大小。 说明 首部 function VarArrayRef(const A: Variant): Variant; $[ System 功能 说明 首部 procedure VarArrayUnlock(var A: Variant); $[ System 功能 解锁指定的变体数组。 说明 首部 function VarAsType(const V: Variant; VarType: Integer): Variant; $[ System 功能 将变体转换为指定的类型。 说明 类型属性代码参见VarType。 首部 procedure VarCast(var Dest: Variant; const Source: Variant; VarType: Integer); $[ System 功能 将变体转换为指定的类型并保存。 说明 首部 procedure VarClear(var V: Variant); $[ System 功能 清除指定的变体。 说明 首部 procedure VarCopy(var Dest: Variant; const Source: Variant); $[ System 功能 将指定的变体复制为指定的变体。 说明 首部 function VarFromDateTime(DateTime: TDateTime): Variant; $[ System 功能 返回包含日期时间的变体。 说明 首部 function Variance(const Data: array of Double): Extended; $[ System 功能 返回实型数组元素的偏移量。 说明 统计学中所用。 首部 function VarIsArray(const V: Variant): Boolean; $[ System 功能 测试变体是否为数组变量。 说明 首部 function VarIsEmpty(const V: Variant): Boolean; $[ System 功能 测试变体是否为UnAssigned。 说明 首部 function VarIsNull(const V: Variant): Boolean; $[ System 功能 测试变体是否为null。 说明 首部 function VarToDateTime(const V: Variant): TDateTime; $[ System 功能 将给定的变体转换为日期时间。 说明 - 34 - Delphi procedure and function 首部 function VarToStr(const V: Variant): string; $[ System 功能 返回变体的字符串形式。 说明 ## VarToStr(3.14) = ‘3.14’; VarToStr(True) = ‘1’; 首部 function VarType(const V: Variant): Integer; $[System 功能 返回变体类型属性代码值。 说明 具体类型属性代码如下: const varEmpty = $0000; varNull = $0001; varSmallint = $0002; varInteger = $0003; varSingle = $0004; varDouble = $0005; varCurrency = $0006; varDate = $0007; varOleStr = $0008; varDispatch = $0009; varError = $000A; varBoolean = $000B; varVariant = $000C; varUnknown = $000D; varByte = $0011; varString = $0100; varTypeMask = $0FFF; varArray = $2000; varByRef = $4000; 首部 function WideCharLenToString(Source: PWideChar; SourceLen: Integer): string; $[System 功能 将Ansi字符串转换为UniCode字符串 说明 首部 function WideCharToString(Source: PWideChar): string; $[System 将UniCode字符串转换为Ansi字符串 功能 说明 首部 procedure WideCharToStrVar(Source: PWideChar; var Dest: string); $[System 功能 将UniCode字符串转换为Ansi字符串变量 说明 首部 function Win32Check(RetVal: Bool): Bool; $[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: , V1,...,Vn); $[System 功能 将的值送到输出文件中。 说明 首部 procedure Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] ); $[System 功能 执行write过程，然后输出一行结束标志 说明 [Api 函数] 原形 BOOL BitBlt( HDC hdcDest, // handle to destination device context int nXDest, // x-coordinate of destination rectangle's upper-left corner int nYDest, // y-coordinate of destination rectangle's upper-left corner int nWidth, // width of destination rectangle int nHeight, // height of destination rectangle HDC hdcSrc, // handle to source device context int nXSrc, // x-coordinate of source rectangle's upper-left corner int nYSrc, // y-coordinate of source rectangle's upper-left corner DWORD dwRop // raster operation code ); - 35 - Delphi procedure and function 注明 function BitBlt(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 功能 将客户点转换成屏幕坐标。 说明 原形 HCURSOR CopyCursor( HCURSOR pcur // handle to cursor to copy ); 注明 功能 说明 原形 BOOL CopyFile( LPCTSTR lpExistingFileName, // pointer to name of an existing file LPCTSTR lpNewFileName, // pointer to filename to copy to BOOL bFailIfExists // flag for operation if file exists ); 注明 function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall; 功能 复制文件。 说明 原形 HICON CopyIcon( HICON hIcon // handle to icon to copy ); 注明 function CopyIcon(hIcon: HICON): HICON; stdcall; $[Windows 功能 复制图标。 说明 原形 BOOL DeleteFile( LPCTSTR lpFileName // pointer to name of file to delete ); 注明 function DeleteFile(lpFileName: PChar): BOOL; stdcall; $[Windows 功能 删除指定文件，返回是否删除成功。 说明 原形 BOOL DrawEdge( HDC hdc, // handle to device context LPRECT qrc, // pointer to rectangle coordinates UINT edge, // type of inner and outer edge to draw UINT grfFlags // type of border ); 注明 function DrawEdge(hdc: HDC; var qrc: 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; - 36 - Delphi procedure and function ## 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 功能 说明 原形 HRSRC FindResource( HMODULE hModule, // resource-module handle LPCTSTR lpName, // pointer to resource name LPCTSTR lpType // pointer to resource type ); 注明 function FindResource(hModule: HMODULE; lpName, lpType: PChar): HRSRC; stdcall; 功能 说明 原形 BOOL GetCursorPos( LPPOINT lpPoint // address of structure for cursor position ); 注明 function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall; 功能 返回鼠标的坐标位置 说明 全屏幕 原形 HDC GetDC( HWND hWnd // handle of window ); 注明 function GetDC(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 | 正常文件 - 37 - Delphi procedure and function 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 功能 从记录中获取本机信息。 说明 原形 DWORD GetModuleFileName( HMODULE hModule, // handle to module to find filename for LPTSTR lpFilename, // pointer to buffer for module path DWORD nSize // size of buffer, in characters ); 注明 function GetModuleFileName(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 // points to destination buffer LPTSTR lpReturnedString, 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文件中获取字符串。 说明 原形 DWORD GetShortPathName( LPCTSTR lpszLongPath, // points to a null-terminated path string LPTSTR lpszShortPath, // points to a buffer to receive the null-terminated short form of the path DWORD cchBuffer // specifies the size of the buffer pointed to by lpszShortPath ); 注明 function GetShortPathName(lpszLongPath: PChar; lpszShortPath: PChar; cchBuffer: DWORD): DWORD; stdcall; $[Windows 功能 返回长路径lpszLongPath的短路径到lpszShortPath中。CchBuffer指定了lpszShortPath的缓冲区大小。 说明 短路径[即: DOS标准"."形式] 原形 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的缓冲区大小。 说明 原形 VOID GetSystemTime( LPSYSTEMTIME lpSystemTime // address of system time structure ); 注明 procedure GetSystemTime(var lpSystemTime: _SYSTEMTIME); $[Windows 功能 取得系统时间。 说明 //不太稳定。 原形 DWORD GetTickCount(VOID) 注明 function GetTickCount: Integer; $[Windows 功能 返回WINDOWS运行时间 说明 原形 VOID GlobalMemoryStatus( LPMEMORYSTATUS lpBuffer // pointer to the memory status structure - 38 - Delphi procedure and function ); 注明 procedure GlobalMemoryStatus(var lpBuffer: TMemoryStatus); stdcall; 功能 检查内存的状态，返回到参数lpBuffer中。 说明 {$EXTERNALSYM _MEMORYSTATUS} _MEMORYSTATUS = record dwLength: DWORD; dwMemoryLoad: DWORD; dwTotalPhys: DWORD; dwAvailPhys: DWORD; dwTotalPageFile: DWORD; dwAvailPageFile: DWORD; dwTotalVirtual: DWORD; dwAvailVirtual: DWORD; end; TMemoryStatus = _MEMORYSTATUS; 原形 BOOL ImageList_DrawEx( HIMAGELIST himl, // handle to the image list int i, // index of the image to draw HDC hdcDst, // handle to the destination device context int x, // x-coordinate to draw at int y, // y-coordinate to draw at int dx, // width of image int dy, // height of image COLORREF rgbBk, // background color of image COLORREF rgbFg, // foreground color of image UINT fStyle // drawing style ); 注明 function ImageList_DrawEx(ImageList: THandle; Index: Integer; Dest: HDC; X, Y: Integer; DX, DY: Integer; BK, Fg: TColor; Style: Cardinal): Boolean; $[Commctrl 功能 说明 原形 BOOL InflateRect( // address of rectangle LPRECT lprc, 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 功能 说明 原形 int MulDiv( int nNumber, // 32-bit signed multiplicand int nNumerator, // 32-bit signed multiplier int nDenominator // 32-bit signed divisor ); 注明 function MulDiv(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 - 39 - Delphi procedure and function ); 注明 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 功能 释放设备描述表。 说明 原形 BOOL SetCursorPos( int X, // horizontal position int Y // vertical position ); 注明 function SetCursorPos(X, Y: Integer): BOOL; stdcall; 功能 设置鼠标的坐标位置 说明 全屏幕 原形 COLORREF SetBkColor( HDC hdc, // handle of device context COLORREF crColor // background color value ); 注明 function SetBkColor(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 功能 设置系统日期时间。 //不太稳定。 说明 原形 COLORREF SetTextColor( HDC hdc, // handle of device context COLORREF crColor // text color ); 注明 function SetTextColor(DC: HDC; Color: Cardinal): TColor; $[Windows 功能 设置当前文本前景色。 说明 如果设置成功则返回之前的颜色，否则返回CLR_INVALID。可以调用GetLastError检查。 原形 VOID Sleep( DWORD dwMilliseconds // sleep time in milliseconds ); 注明 procedure Sleep(dwMilliseconds: DWORD); stdcall; $[Windows 功能 在指定时间dwMilliseconds内暂停执行。 说明 以毫微秒为单位。 原形 LRESULT SendMessage( HWND hWnd, // handle of destination window UINT Msg, // message to send WPARAM wParam,// first message parameter LPARAM lParam // second message parameter ); 注明 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的命令。 说明 原形 BOOL WritePrivateProfileString( LPCTSTR lpAppName, // pointer to section name LPCTSTR lpKeyName, // pointer to key name LPCTSTR lpString, // pointer to string to add LPCTSTR lpFileName // pointer to initialization filename - 40 - Delphi procedure and function ); 注明 function WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName: PChar): BOOL; stdcall; $[Windows 功能 向私有INI文件输出字符串。 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 原形 注明 功能 说明 ------------------------------------------------------------------------------------------------------------------------------------------- [标准变量] 首部 var Default8087CW: Word; $[System 功能 默认的8087操作命令。 说明 首部 var AllocMemCount: Integer; $[System 功能 系统分配的内存块个数。 说明 首部 var AllocMemSize: Integer; 功能 系统分配的内存块大小。 说明 首部 var Application: TServiceApplication; $[SvcMgr 功能 说明 首部 var Application: TApplication; $[Forms 功能 说明 首部 var Application: TWebApplication; $[HTTPApp 功能 说明 首部 var Automation: Tautomation; $[OleAuto 功能 说明 - 41 - Delphi procedure and function 首部 var BOA: TBOA; $[CorbaObj 功能 说明 首部 var HInstance: Longint; $[SysUnit 功能 说明 首部 功能 说明 首部 功能 说明 首部 功能 说明 首部 功能 说明 首部 功能 说明 首部 功能 说明 - 42 -
    本文档为【Delphi函数介绍】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑， 图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
    该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
    下载需要： 免费 已有0 人下载
    立即下载

    你可能还喜欢

    最新资料
    资料动态
    专题动态
    is_447713
    暂无简介~
    格式：doc
    大小：181KB
    软件：Word
    页数：64
    分类：
    上传时间：2018-04-30
    浏览量：33
    相关资料
    热点搜索
    小学教师“双减”之下如何提高教学质量心得体会 期刊稿件审查意见书 基于JAVA的学生成绩管理系统源代码_Java程序设计 售后服务人员业务考试试卷 袁书堂中学婚假产假规定办法 112手工试卷13-6 乡镇扶贫项目固定资产管理协议书 付进口海运费需要准备的材料(整理后)及外汇收付汇需要的材料 注射泵输液泵出现故障应急演练记录 北师大版初中七年级英语下册PPT课件：An Animal Story_课件1 泰安众诚移变开关资料2009版低压说明书 人生需要梦想 完美国际高级易容卷教程 华工网教项目管理平时作业 小学教师“双减”之下如何提高教学质量心得体会 期刊稿件审查意见书 基于JAVA的学生成绩管理系统源代码_Java程序设计 售后服务人员业务考试试卷 袁书堂中学婚假产假规定办法 112手工试卷13-6 乡镇扶贫项目固定资产管理协议书 付进口海运费需要准备的材料(整理后)及外汇收付汇需要的材料 注射泵输液泵出现故障应急演练记录 北师大版初中七年级英语下册PPT课件：An Animal Story_课件1 泰安众诚移变开关资料2009版低压说明书 人生需要梦想 完美国际高级易容卷教程 华工网教项目管理平时作业
    资料大全 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9
    专题大全 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0-9

    网站声明 | 侵权处理 | 投诉反馈 | 帮助中心 | 网站地图 | 爱问办公

    京ICP证000007-6 爱问文库-Copyright © 2024 版权所有

    浙公网安备 33021202002483

    客服热线：0755-26904047

    工作日：9:00-18:00

    在线客服