Borland Delphi 标准函数和过程集
转自：http://www.sikeu.com/user1/yesu/archives/2007/200757231058.html
首部 procedure Abort;$[SysUtils
功能 引起放弃的意外处理。
说明 不显示任何错误信息。
首部 function Abs(N:
功能 返回参数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:
功能 从无类型文件F中读出Count个记录赋予变量Buf。
说明 可选参数AmtTransferred表示实际读取的记录个数。一般一个记录系指包含128字节的块，但可使用带有可选参数的Reset来改
变从128到不同字节块大小。
首部 procedure BlockWrite(var F: File; var Buf:
功能 把从变量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:
功能 改变当前目录
说明 检查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:
功能 关闭文件F。
说明 文件F必须已被Reset、Rewrite或Append打开，且没有关闭。欲关闭一个未打开的文件或已关闭的文件都是错误的。
首部 procedure CloseFile(var F:
功能 终止文件变量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]:
功能 把字串S1 [， S2，...，Sn]连接成一个单一的字串。
说明 除此之外，还可以用运算符+来连接。
首部 procedure Continue; $[System
功能 离开本次循环, 转到下一次循环
说明
首部 function Copy(S:
功能 返回字符串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:
功能 取有序变量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:
功能 返回文件的结束状态值
说明 当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:
功能 从磁盘目录中删除与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:
功能 以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的动态变量，并将指针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:
功能 返回参数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:
功能 返回字符串的动态长度
说明 所返回的是字符串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:
功能 返回参数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:
功能 返回子串Substr在主串S中的起始位置 。
说明 若S中不存在所述子串，则Pos返回值0。
首部 function Power(Base, Exponent: Extended): Extended; $[Math
功能 返回参数Base的Exponent次方。{即：返回Base**Exponent}
说明 指数函数。
首部 function Pred(X:
功能 返回参数的前趋值。
说明 参数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
说明 在调用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:
功能 返回参数所占的字节数。
说明 在调用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:
功能 返回参数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:
功能 把参数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:
功能 返回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:
功能 截去文件当前指针位置以后的所有元素。
说明 调用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:
功能 将字符串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:
功能 将的值送到输出文件中。
说明
首部 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文件输出字符串。
说明