Borland Delphi 标准函数和过程集

 

转自:http://www.sikeu.com/user1/yesu/archives/2007/200757231058.html

首部 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
功能 比较两个文件名的大小。不区分大小写。
说明 条件     返回值
      S1 > S2 | > 0
      S1 < S2 | < 0
      S1 = S2 | = 0
 
首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils
功能 比较两个字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils
功能 返回两个字符串是否相同的状态。不区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils
功能 将引用字串转换成结束引语返回。
说明 函数支持多字节字符系统[MBCS]。
 
首部 function AnsiLastChar(const S: string): PChar;$[SysUtils
功能 取参数S的最后一个字符,并转换成以null结束的字符串指针返回。
说明 ##AnsiLastChar(‘Sysoft’) = {‘t\0’};
 
首部 function AnsiLowerCase(const S: string): string;$[SysUtils
功能 将字符串S转换为小写返回。
说明 函数支持多字节字符系统[MBCS]。
 
首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils
功能 将文件名S转换成小写返回
说明 函数支持多字节字符系统[MBCS]。
 
首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils
功能 返回子串Substr出现在主串S中的第一个位置。
说明
 
首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils
功能 返回引用字串的译文
说明
 
首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils
功能 比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils
功能 返回字符串指针气所指向的最后一个字符位置
说明
 
首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。要区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUnits
功能 在最大长度MaxLen的范围内比较两个指针字符串的大小。不区分大小写。
说明 参见AnsiCompareFileName。
 
首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换为小写返回。
说明
 
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils
功能 在指针字符串中返回子串Substr出现在主串S中的第一个位置。
说明
 
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串
说明 ## AnsiStrRScan(‘Zswangs1234567’, ‘s’) = ‘s1234567’;
 
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils
功能 返回以字符Chr在指针字符串Str中的第一个位置为起始位置的指针字符串
说明 ## AnsiStrScan(‘Zswangs1234567’, ‘s’) = ‘swangs1234567’;
 
首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils
功能 将指针字符串S转换成大写返回。
说明
 
首部 function AnsiToNative(Locale: TLocale; const AnsiStr: string; NativeStr: PChar; MaxLen: Integer): PChar;

$[SysUtils
功能 将字符串集转换成现场数据返回
说明 type TLocale = Pointer;
 
首部 procedure AnsiToNativeBuf(Locale: TLocale; Source, Dest: PChar; Len: Integer); $[SysUtils
功能 将字符串集转换成现场数据
说明
 
首部 function AnsiUpperCase(const S: string): string; $[SysUtils
功能 将字符转换为大写返回。
说明
 
首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils
功能 将文件名转换为大写返回。
说明
 
首部 procedure Append(var F: Text); $[System
功能 以附加的方式打开已有的文件。
说明 调用Append前,F必须已与一个外部文件相联系。对用Append打开的文件,仅有合法操作是调用Write或Writeln。
 
首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils
功能 将字串S添加到字串Dest中。[即运行: Dest := Dest + s;]
说明 ## AppendStr(‘Sysoft’, ‘1999’) = ‘Sysoft1999’;
 
首部 function ArcCos(X: Extended): Extended; $[Math
功能 返回X参数的反余弦值。
说明 函数结果取弧度值。
 
首部 function ArcCosh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲余弦值。
说明 函数结果取弧度值。
 
首部 function ArcSin(X: Extended): Extended; $[Math
功能 返回X参数的反正弦值。
说明 函数结果取弧度值。
 
首部 function ArcSinh(X: Extended): Extended; $[Math
功能 返回X参数的反双曲正弦值。
说明 函数结果取弧度值。
 
首部 function ArcTan(X: Extended): Extended; $[System
功能 返回参数X的反正切函数值。
说明 函数结果取弧度值。
 
首部 function ArcTan2(Y, X: Extended): Extended; $[Math
功能 返回参数Y除于X参数的反正切函数值。{即:返回ArcTan(Y/X)}
说明 函数结果取弧度值。
 
首部 function ArcTanh(X: Extended): Extended; $[Math
功能 返回参数X的反双曲正切函数值。
说明 函数结果取弧度值。
 
首部 procedure Assert(expr : Boolean [; const msg: string]); $[System
功能 测试布尔表达式是否成功
说明 $ASSERTIONS ON/OFF | (long form)
      $C +/-             | (short form)
 
 
首部 function Assigned(var P): Boolean; $[System
功能 返回变体是否非空。
说明 ## if Assigned(Edit1) then Edit1.Free;
 
首部 procedure AssignFile(var F; FileName: string); $[System
功能 给文件变量赋一外部文件名。
说明 用 F 文件变量打开 FileName 名字的文件
 
首部 procedure AssignPrn(var F: Text); $[Printers
功能 指定文本变量F的打印机
说明
 
首部 procedure AssignStr(var P: PString; const S: string); $[SysUtils
功能 将字符串列入指针
说明 PString 是 AnsiString 指针
 
首部 procedure AssociateAttr(const AttrID: TAttrID; const FieldID: TFieldID); $[DRIntf
功能 将ID属性和事件关联
说明 type
        TID = record Reseved: array[1..6] of Byte; end;
        TFieldID = type TID;
        TAttrID = type TID;
 
首部 procedure Beep; $[SysUtils
功能 产生一个标准的电脑发声beep。
说明 这个Beep过程使用了Windows下的API函数MessageBeep。
 
首部 function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord; ThreadFunc: TThreadFunc; Parameter:

Pointer; CreationFlags: LongWord; var ThreadId: LongWord): Integer; $[SysUtils
功能 以适当的方式建立用于内存管理的线程。
说明
 
首部 procedure BindStub(RepositoryID, InstanceName, HostName: PChar; const Orb: IORB; RefCountServer: CorbaBoolean;

out Stub: IStub); $[orbpas
功能 获得界面CORBA服务器的对象作为IStub界面
说明 [CORBA]:程序体系结构
 
首部 procedure BlockRead(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System
功能 从无类型文件F中读出Count个记录赋予变量Buf。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块,但可使用带有可选参数的Reset来改

变从128到不同字节块大小。
 
首部 procedure BlockWrite(var F: File; var Buf: ; Count: Integer [; var AmtTransferred: Integer]); $[System
功能 把从变量Buf第一个字节开始的Count个记录写入无类型文件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: array[0..7] of Byte;
        end;
            错误代码   含义
 REGDB_E_CLASSNOTREG | Class not registered in the registry.
 REGDB_E_READREGDB   | Error reading registry.
 
首部 function Clipboard: TClipboard; $[clipbrd
功能 返回当前剪贴板的数据
说明
 
首部 procedure Close(var F: ); $[System
功能 关闭文件F。
说明 文件F必须已被Reset、Rewrite或Append打开,且没有关闭。欲关闭一个未打开的文件或已关闭的文件都是错误的。
 
首部 procedure CloseFile(var F: ); $[System
功能 终止文件变量F与外部文件的联系
说明 当编译指令{$I}打开的时候,可用IOResult来检查终止是否成功
 
首部 function CollectionsEqual(C1, C2: TCollection): Boolean; $[Classes
功能 比较两个收集变量是否相同
说明
 
首部 function ColorToIdent(Color: Longint; var Ident: string): Boolean; $[Graphics
功能 返回是否成功的获取了颜色的名称
说明 ##var s, Ident: string; begin s := ‘Nose’; if ColorToIdent(clBlack, Ident) then s := Ident;
 
首部 function ColorToRGB(Color: TColor): Longint; $[Graphics
功能 将颜色类型转换成RGB格式返回
说明 type TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFFF;
      便于Windows API函数调用
 
首部 function ColorToString(Color: TColor): string; $[Graphics
功能 将颜色参数Color转换成字符串类型返回
说明 如果Color有系统设定的颜色则返回该名称, 否则返回其16进制形式 ## ColorToString(clBlack) = ‘clBlak’;

ColorToString(12) = ‘$0000000C’;
 
首部 function ComClassManager: TComClassManager; $[ComObj
功能 返回一个TComClassManager类
说明
 
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils
功能 在指定内存范围Length比较两个指镇的内容是否相同。
说明 范围以二进制为单位。
 
首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils
功能 比较两个字符串的大小。要区分大小写。
说明
 
首部 function CompareText(const S1, S2: string): Integer; $[SysUtils
功能 比较两个字符串的大小。不区分大小写。
说明
 
首部 function Concat(S1 [, S2,..., Sn]: ): string; $[System1
功能 把字串S1 [, S2,...,Sn]连接成一个单一的字串。
说明 除此之外,还可以用运算符+来连接。
 
首部 procedure Continue; $[System
功能 离开本次循环, 转到下一次循环
说明
 
首部 function Copy(S: ; Index, Len: Integer): string; $[System
功能 返回字符串S中由第Index个字符开始、Len个字符长的一个子串。
说明 若从S[Index]到结尾的长度小于len的值,则返回串S中由Index开始到串尾的那一子串。
 
首部 function CopyPalette(Category: HPALETTE): HPALETTE; $[Graphics
功能 复制一个新的调色板返回
说明 HPALETTE[Windows 调色板数据]
 
首部 function CorbaBind(const RepositoryID: string; const ObjectName: string = ''; const HostName: string = ''):

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

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

$[corbaobj
功能 返回用户反馈信息和CORBA服务器对象接口
说明
 
首部 function Cos(X: Extended): Extended; $[System
功能 返回参数X的余弦值。
说明 参数X以弧度为单位。
 
首部 function Cosh(X: Extended): Extended; $[Math
功能 返回参数X的双曲余弦值。
说明 参数X以弧度为单位。
 
首部 function Cotan(X: Extended): Extended; $[Math
功能 返回参数正切值的倒数
说明 1 / Tan(X)
 
首部 function CreateAction(AOwner: TComponent; ActionClass: TBasicActionClass): TBasicAction; $[ActnList
功能 实现一个操作,指定类型,返回其列表编辑器
说明 TbasicAction[是所操作对象的父类]
 
首部 function CreateClassID: string; $[ComObj
功能 产生一个新的GUIID,将其作为字符串返回
说明 GUIID[用户图形界面标识]   格式:['{xxxxxxxx-xxx-xxx-xxx-xxxxxxxxxxx}']
 
首部 function CreateComObject(const ClassID: TGUID): IUnknown; $[ComObj
功能 例示COM单个例子的对象
说明 type
        PGUID = ^TGUID;
        TGUID = record
          D1: Longword;
          D2: Word;
          D3: Word;
          D4: array[0..7] of Byte;
        end;
 
首部 function CreateDir(const Dir: string): Boolean; $[SysUtils
功能 创建一个新的目录
说明 如果创建成功返回True,否则返回False
 
首部 function CreateField(Owner: TComponent; Dataset: TDataset); const Fieldname, Origin: string; const FieldID:

TFieldID; const AttrID: TAttrID): TField; $[DRIntf
功能 在数据词典中创建一个信息存储的新空间
说明 type
        TID = record Reseved: array[1..6] of Byte; end;
        TFieldID = type TID;
        TAttrID = type TID;
 
首部 function CreateGrayMappedBmp(Handle: HBITMAP): HBITMAP; $[Graphics
功能 重新将位图的系统灰色标准化
说明 此函数返回原有的位图
 
首部 function CreateGrayMappedRes(Instance: THandle; ResName: PChar): HBITMAP; $[Graphics
功能 重新将位图的系统灰色资源标准化
说明 此函数返回调整后的位图
 
首部 function CreateMappedBmp(Handle: HBITMAP; const OldColors, NewColors: array of TColor): HBITMAP; $[Graphics
功能 在位图中改变色表
说明 此函数返回原有的位图
 
首部 function CreateMappedRes(Instance: THandle; ResName: PChar; const OldColors, NewColors: array of TColor):

HBITMAP; $[ Graphics
功能 在位图中改变色表资源
说明 此函数返回调整后的位图
 
首部 function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

$[dialogs
功能 返回所创建的指定消息对话匡。
说明 type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
          mtWarning | 黄色感叹号
            MtError | 红色禁止符号
      MtInformation | 蓝色"i"
     MtConfirmation | 绿色问号
           MtCustom | 运用程序名[The caption of the message box is the name of the application's executable file.]
 
首部 function CreateOleObject(const ClassName: string): IDispatch; $[ComObj
功能 产生一个名为ClassName的Ole自动操作类
说明
 
首部 procedure CreateRegKey(const Key, ValueName, Value: string); $[ComObj
功能 创建注册键
说明 如关键字已经注册,则调用该过种无效
 
首部 function CreateRemoteComObject(const MachineName: WideString; const ClassID: TGUID): IUnknown; $[ComObj
功能
说明
 
首部 function CreateSharedPropertyGroup(const Name: WideString): ISharedPropertyGroup; $[Mtx
功能
说明
 
首部 function CreateSharedPropertyGroupManager: ISharedPropertyGroupManager; $[Mtx
功能
说明
 
首部 function CreateTransactionContext: ITransactionContext; $[Mtx
功能
说明
 
首部 function CreateTransactionContextEx: ITransactionContextEx; $[ Mtx
功能
说明
 
首部 function CurrToFMTBCD(Curr: Currency; var BCD: FMTBcd; Precision, Decimals: Integer): Boolean; $[DBCommon
功能
说明
 
首部 function CurrToStr(Value: Currency): string; $[SysUtils
功能 将浮点类型参数Value转换成字符串返回
说明
 
首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils
功能 将浮点类型参数Value按指定格式转换成字符串返回
说明 type TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);
 
首部 function CursorToIdent(Cursor: Longint; var Ident: string): Boolean; $[controls
功能 返回是否成功地将鼠标指针类型转换成字符串类型
说明 type TCursor = -32768..32767;
      ##var s: string; b1, b2: boolean; begin b1 := CursorToIdent(crDefault, s); b2 := CursorToIdent(100, s); end;

{b1 = True; b2 = False}
 
首部 function CursorToString(Cursor: TCursor): string; $[controls
功能 将鼠标指针类型转换成字符串返回
说明 如果参数不在系统常量定义中则返回原数字值方式 ## CursorToString(crDefault) = ‘crDefault’; CursorToString(100)

= ‘100’
 
首部 function CycleToRad(Cycles: Extended): Extended; $[Math
功能 将参数Cycles转换成弧度返回。
说明 radians = 2pi*cycles。
 
首部 procedure DatabaseError(const Message: string; Component: TComponent = nil); $[DB
功能
说明
 
首部 procedure DatabaseErrorFmt(const Message: string; const Args: array of const; Component: TComponent = nil);

$[DB
功能
说明
 
首部 function Date: TDateTime; $[SysUtils
功能 返回当前的日期。
说明 type TDateTime = type Double;
 
首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为文件日期格式返回。
说明
 
首部 function DateTimeToStr(DateTime: TDateTime): string; $[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为字符串返回。
说明
 
首部 procedure DateTimeToString(var NewString: string; const Format: string; DateTime: TDateTime); $[SysUtils
功能 将Delphi的日期时间类型参数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个字符位置开始、长度为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
功能
说明
 
首部 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


 
首部 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
功能 结束指定文件
说明
 
首部 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
功能
说明 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
功能 将浮点数转换为字符串
说明 ## 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)
      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
功能
说明
 
首部 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返回内存管理器的入口点。
说明 
 
首部 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
 
首部 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
功能
说明
 
首部 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
功能 是否是一个没有定义的标识。
说明
 
首部 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为低的对数值。
说明 {Log10X}
 
首部 function Log2(X: Extended): Extended; $[Math
功能 返回参数X以2为低的对数值。
说明 {Log2X}
 
首部 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为低的对数值。
说明 LogBaseX
 
首部 function IOResult: Integer; $[System
功能 返回最近一次I/O操作的状态值。
说明 需要编译指示{$I-}以便IOResult捕获I/O错误。返回值为表示I/O操作成功。
 
首部 function Low(X); $[System
功能 返回参数的下限值
说明                               Type   Low returns
             Ordinal type (includes Int64) | The lowest value in the range of the type
                                Array type | The lowest value within the range of the index type of the array
                               String type | Returns 0 only on shortstrings
                                Open array | Returns 0
                          String parameter | Returns 0
 
首部 function LowerCase(const S: string): string; $[SysUtils
功能 返回字符串S的小写形式;
说明 若S中的字符不在[‘A’..’Z’]的范围,则不作改变。 ## LowerCase(‘Chinese’) = ‘chinese’; LowerCase

(‘ZswangY37’) = ‘zswangy37’;
 
首部 function MakePrincipal(const Bytes: array of Byte): TCorbaPrincipal; $[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 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
功能 从指定的帮助文件中取得数据,来显示一个帮助对话筐,并返回用户选项。
说明
 
首部 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进行统计分析。
说明 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。
说明
 
首部 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
功能
说明
 
首部 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
功能
说明
 
首部 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
功能 执行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
功能
说明
 
首部 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;
      ##   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
功能 将快捷变量转换成字符串类型返回。
说明 ## 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
功能 返回指定位置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的状态。
说明
 
首部 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
功能 将字符串转换为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以弧度为单位。
 
首部 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’;
 
首部 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
功能 返回给定变体的维数。
说明
 
首部 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
功能 将给定的变体转换为日期时间。
说明
 
首部 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
           );
注明 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;
      ## 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     | 正常文件
      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
            LPTSTR lpReturnedString, // points to destination buffer
            DWORD nSize,             // size of destination buffer
            LPCTSTR lpFileName       // points to initialization filename
            );
注明 function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar; lpReturnedString: PChar; nSize: DWORD;

lpFileName: PChar): DWORD; stdcall; $[Windows
功能 从私有的INI文件中获取字符串。
说明
 
原形 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
          );
注明 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(
           LPRECT lprc, // address of rectangle
           int dx,      // amount to increase or decrease width
           int dy       // amount to increase or decrease height
           );
注明 function InflateRect(var Iprc: TRect; dx, dy: Integer): Boolean;
功能 改变矩形大小
说明
 
原形 HINSTANCE LoadLibraryEx(
                LPCTSTR lpLibFileName, // points to name of executable module
                HANDLE hFile,          // reserved, must be NULL
               DWORD dwFlags          // entry-point execution flag
                );
注明 function LoadLibraryEx(lpLibFileName: PChar; hFile: THandle; dwFlags: DWORD): HMODULE; stdcall;
功能
说明
 
原形 LPTSTR lstrcpy(
             LPTSTR lpString1, // address of buffer
             LPCTSTR lpString2 // address of string to copy
             );
首部 function lstrcpy; external kernel32 name 'lstrcpyA';
注明 function lstrcpy(lpString1, lpString2: PChar): PChar; stdcall; $[Windows
功能
说明
 
原形 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
        );
注明 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
   );
注明 function WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName: PChar): BOOL; stdcall; $[Windows
功能 向私有INI文件输出字符串。
说明

你可能感兴趣的:(Delphi)