本文介绍了Delphi中一系列标准函数和过程的功能与用法，包括系统管理、字符串处理、数学运算等多个方面，为开发者提供了实用的参考指南。
[标准函数和过程]
首部 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
功能 将Delphir的日期时间类型参数DateTime转换为以格式Formatr的字符串。
说明
首部 procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为Windows的日期时间格式，返回至SystemTime。
说明 Unit
Windows
type
PSystemTime = ^TSystemTime;
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
首部 function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; $[SysUtils
功能 将Delphi的日期时间类型参数DateTime转换为Dos的日期时间格式返回。
说明 type
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
首部 function DateToStr(Date: TDateTime): string; $[SysUtils
功能 将Delphi的日期时间类型参数Date的日期部份转换为字符串返回。
说明
首部 function DayOfWeek(Date: TDateTime): Integer; $[SysUtils
功能 返回参数Date星期的数值。
说明
首部 procedure DBError(Ident: Word); $[DB
功能
说明
首部 procedure DBErrorFmt(Ident: Word; const Args: array of const); $[DB
功能
说明
首部 procedure DBIError(ErrorCode: DBIResult); $[DBTables
功能
说明
首部 procedure Dec(var X: [ ; N: Longint]); $[System
功能 取有序变量X的第N个前趋。相当于for i := 1 to N do X := Rred(X);
说明 当不带参数N时，则N默认为1。用Dec比用与之等价的赋值语句执行得快。
首部 procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); $[SysUtils
功能 将Delphir的日期时间类型参数DateTime分解为年、月、日返回至Year、 Month、 Day中。
说明
首部 procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); $[SysUtils
功能 将Delphir的日期时间类型参数DateTime分解为时、分、秒、毫秒返回至Hour、 Min、 Sec、 Msec中。
说明
首部 function DegToRad(Degrees: Extended): Extended; $[Math
功能 将参数Degrees转换成弧度返回。
说明 radians = degrees(pi/180)。
首部 procedure Delete(var S: string; Index, Len:Integer); $[System
功能 从字串S中删除由第Index个字符位置开始、长度为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 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
功能 从指定的帮助文件中取得数据，来显示一个帮助对话筐，并返回用户选项。
说明
首部 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文件输出字符串。
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
原形
注明
功能
说明
-------------------------------------------------------------------------------------------------------------------------------------------
[标准变量]
首部 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
功能
说明
首部 var BOA: TBOA; $[CorbaObj
功能
说明
首部 var HInstance: Longint; $[SysUnit
功能
说明
首部
功能
说明
首部
功能
说明
首部
功能
说明
首部
功能
说明
首部
功能
说明
首部
功能
说明
扫一扫
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
