S1=S2|=0
首部functionAnsiCompareStr(constS1,S2:
string):
Integer;$[SysUtils
功能比较两个字符串的大小。
要区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiCompareText(constS1,S2:
string):
Integer;$[SysUtils
功能返回两个字符串是否相同的状态。
不区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiExtractQuotedStr(varSrc:
PChar;Quote:
Char):
string;$[SysUtils
功能将引用字串转换成结束引语返回。
说明函数支持多字节字符系统[MBCS]。
首部functionAnsiLastChar(constS:
string):
PChar;$[SysUtils
功能取参数S的最后一个字符,并转换成以null结束的字符串指针返回。
说明##AnsiLastChar(‘Sysoft’)={‘t\0’};
首部functionAnsiLowerCase(constS:
string):
string;$[SysUtils
功能将字符串S转换为小写返回。
说明函数支持多字节字符系统[MBCS]。
首部functionAnsiLowerCaseFileName(constS:
string):
string;$[SysUtils
功能将文件名S转换成小写返回
说明函数支持多字节字符系统[MBCS]。
首部functionAnsiPos(constSubstr,S:
string):
Integer;$[SysUtils
功能返回子串Substr出现在主串S中的第一个位置。
说明
首部functionAnsiQuotedStr(constS:
string;Quote:
Char):
string;$[SysUtils
功能返回引用字串的译文
说明
首部functionAnsiStrComp(S1,S2:
PChar):
Integer;$[SysUtils
功能比较两个指针字符串的大小。
要区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiStrIComp(S1,S2:
PChar):
Integer;$[SysUtils
功能比较两个指针字符串的大小。
不区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiStrLastChar(P:
PChar):
PChar;$[SysUtils
功能返回字符串指针气所指向的最后一个字符位置
说明
首部functionAnsiStrLComp(S1,S2:
PChar;MaxLen:
Cardinal):
Integer;$[SysUtils
功能在最大长度MaxLen的范围内比较两个指针字符串的大小。
要区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiStrLIComp(S1,S2:
PChar;MaxLen:
Cardinal):
Integer;$[SysUnits
功能在最大长度MaxLen的范围内比较两个指针字符串的大小。
不区分大小写。
说明参见AnsiCompareFileName。
首部functionAnsiStrLower(Str:
PChar):
PChar;$[SysUtils
功能将指针字符串S转换为小写返回。
说明
首部functionAnsiStrPos(Str,SubStr:
PChar):
PChar;$[SysUtils
功能在指针字符串中返回子串Substr出现在主串S中的第一个位置。
说明
首部functionAnsiStrRScan(Str:
PChar;Chr:
Char):
PChar;$[SysUtils
功能返回以字符Chr在指针字符串Str中的最后一个位置为起始位置的指针字符串
说明##AnsiStrRScan(‘Zswangs1234567’,‘s’)=‘s1234567’;
首部functionAnsiStrScan(Str:
PChar;Chr:
Char):
PChar;$[SysUtils
功能返回以字符Chr在指针字符串Str中的第一个位置为起始位置的指针字符串
说明##AnsiStrScan(‘Zswangs1234567’,‘s’)=‘swangs1234567’;
首部functionAnsiStrUpper(Str:
PChar):
PChar;$[SysUtils
功能将指针字符串S转换成大写返回。
说明
首部functionAnsiToNative(Locale:
TLocale;constAnsiStr:
string;NativeStr:
PChar;MaxLen:
Integer):
PChar;$[SysUtils
功能将字符串集转换成现场数据返回
说明typeTLocale=Pointer;
首部procedureAnsiToNativeBuf(Locale:
TLocale;Source,Dest:
PChar;Len:
Integer);$[SysUtils
功能将字符串集转换成现场数据
说明
首部functionAnsiUpperCase(constS:
string):
string;$[SysUtils
功能将字符转换为大写返回。
说明
首部functionAnsiUpperCaseFileName(constS:
string):
string;$[SysUtils
功能将文件名转换为大写返回。
说明
首部procedureAppend(varF:
Text);$[System
功能以附加的方式打开已有的文件。
说明调用Append前,F必须已与一个外部文件相联系。
对用Append打开的文件,仅有合法操作是调用Write或Writeln。
首部procedureAppendStr(varDest:
string;constS:
string);$[SysUtils
功能将字串S添加到字串Dest中。
[即运行:
Dest:
=Dest+s;]
说明##AppendStr(‘Sysoft’,‘1999’)=‘Sysoft1999’;
首部functionArcCos(X:
Extended):
Extended;$[Math
功能返回X参数的反余弦值。
说明函数结果取弧度值。
首部functionArcCosh(X:
Extended):
Extended;$[Math
功能返回X参数的反双曲余弦值。
说明函数结果取弧度值。
首部functionArcSin(X:
Extended):
Extended;$[Math
功能返回X参数的反正弦值。
说明函数结果取弧度值。
首部functionArcSinh(X:
Extended):
Extended;$[Math
功能返回X参数的反双曲正弦值。
说明函数结果取弧度值。
首部functionArcTan(X:
Extended):
Extended;$[System
功能返回参数X的反正切函数值。
说明函数结果取弧度值。
首部functionArcTan2(Y,X:
Extended):
Extended;$[Math
功能返回参数Y除于X参数的反正切函数值。
{即:
返回ArcTan(Y/X)}
说明函数结果取弧度值。
首部functionArcTanh(X:
Extended):
Extended;$[Math
功能返回参数X的反双曲正切函数值。
说明函数结果取弧度值。
首部procedureAssert(expr:
Boolean[;constmsg:
string]);$[System
功能测试布尔表达式是否成功
说明$ASSERTIONSON/OFF|(longform)
$C+/-|(shortform)
首部functionAssigned(varP):
Boolean;$[System
功能返回变体是否非空。
说明##ifAssigned(Edit1)thenEdit1.Free;
首部procedureAssignFile(varF;FileName:
string);$[System
功能给文件变量赋一外部文件名。
说明用F文件变量打开FileName名字的文件
首部procedureAssignPrn(varF:
Text);$[Printers
功能指定文本变量F的打印机
说明
首部procedureAssignStr(varP:
PString;constS:
string);$[SysUtils
功能将字符串列入指针
说明PString是AnsiString指针
首部procedureAssociateAttr(constAttrID:
TAttrID;constFieldID:
TFieldID);$[DRIntf
功能将ID属性和事件关联
说明type
TID=recordReseved:
array[1..6]ofByte;end;
TFieldID=typeTID;
TAttrID=typeTID;
首部procedureBeep;$[SysUtils
功能产生一个标准的电脑发声beep。
说明这个Beep过程使用了Windows下的API函数MessageBeep。
首部functionBeginThread(SecurityAttributes:
Pointer;StackSize:
LongWord;ThreadFunc:
TThreadFunc;Parameter:
Pointer;CreationFlags:
LongWord;varThreadId:
LongWord):
Integer;$[SysUtils
功能以适当的方式建立用于内存管理的线程。
说明
首部procedureBindStub(RepositoryID,InstanceName,HostName:
PChar;constOrb:
IORB;RefCountServer:
CorbaBoolean;outStub:
IStub);$[orbpas
功能获得界面CORBA服务器的对象作为IStub界面
说明[CORBA]:
程序体系结构
首部procedureBlockRead(varF:
File;varBuf:
;Count:
Integer[;varAmtTransferred:
Integer]);$[System
功能从无类型文件F中读出Count个记录赋予变量Buf。
说明可选参数AmtTransferred表示实际读取的记录个数。
一般一个记录系指包含128字节的块,但可使用带有可选参数的Reset来改变从128到不同字节块大小。
首部procedureBlockWrite(varF:
File;varBuf:
;Count:
Integer[;varAmtTransferred:
Integer]);$[System
功能把从变量Buf第一个字节开始的Count个记录写入无类型文件F中。
说明可选参数AmtTransferred表示实际读取的记录个数。
一般一个记录系指包含128字节的块,但可使用带有可选参数的Rewrite来改变从128到不同字节块大小。
首部functionBounds(ALeft,ATop,AWidth,AHeight:
Integer):
TRect;$[Classes
功能返回指定坐标和范围的TRect数据
说明type
TPoint=record
X:
Longint;
Y:
Longint;
end;
TRect=record
caseIntegerof
0:
(Left,Top,Right,Bottom:
Integer);
1:
(TopLeft,BottomRight:
TPoint);
end;
首部procedureBreak;$[System
功能提前中止循环。
说明用于for、while、repeat-until中。
首部functionByteToCharIndex(constS:
string;Index:
Integer):
Integer;$[SysUtils
功能返回索引Index的真实值
说明如果Index小于和大于S的长度则返回0##ByteToCharIndex(‘12345678’,9)=0;
首部functionByteToCharLen(constS:
string;MaxLen:
Integer):
Integer;$[SysUtils
功能返回字符的编号
说明如果Index小于S的长度则返回0;如果Index大于S的长度则返回MaxLen;##ByteToCharLen(‘12345678’,9)=9;
首部functionByteType(constS:
string;Index:
Integer):
TMbcsByteType;$[SysUtils
功能返回字符串指定位置的字节类型
说明typeTMbcsByteType=(mbSingleByte,mbLeadByte,mbTrailByte);##ByteType(‘国庆节12’,1)=mbLeadByte;
首部procedureCancelDrag;$[Controls
功能在程序运行中取消拖放操作
说明
首部functionCeil(X:
Extended):
Integer;$[Math
功能返回参数X的正取整值
说明##Ceil(-2.8)=-2;Ceil(2.8)=3;Ceil(-1.0)=-1;
首部functionChangeFileExt(constFileName,Extension:
string):
string;$[SysUtils
功能改变文件的后缀返回。
说明##ChangeFileExt(‘zs.txt’,’.ini’)=‘zs.ini’;
首部functionCharsetToIdent(Charset:
Longint;varIdent:
string):
Boolean;$[Graphics
功能获得字符集的名称
说明如果获得成功则返回True,否则返回False
首部functionCharToByteIndex(constS:
string;Index:
Integer):
Integer;$[SysUtils
功能返回字符串基于索引Index的真实位置
说明如果Index小于和大于S的长度则返回0
首部functionCharToByteLen(constS:
string;MaxLen:
Integer):
Integer;$[SysUtils
功能返回字符串基于索引Index的编号
说明如果Index小于S的长度则返回0;如果Index大于S的长度则返回MaxLen;
首部procedureChDir(Path:
);$[System
功能改变当前目录
说明检查IOResult可确定此改变是否成功。
IOResult的值非零时表示Path不存在。
首部procedureCheck(Status:
Integer);$[DBTables
功能以变量来确定BDE抗议错误状态
说明[BDE(BorlandDatabaseEngine)]:
宝兰德数据库引擎
首部functionChr(N:
Byte):
Char;$[System
功能返回参数N的ASCII字符值。
说明参数N表示某ASCII代码的序号数值(0-255)。
首部functionClassIDToProgID(constClassID:
TGUID):
string;$[ComObj
功能返回标题音乐的ID所指定类字串
说明type
PGUID=^TGUID;
TGUID=record
D1:
Longword;
D2:
Word;
D3:
Word;
D4:
array[0..7]ofByte;
end;
错误代码含义
REGDB_E_CLASSNOTREG|Classnotregisteredintheregistry.
REGDB_E_READREGDB|Errorreadingregistry.
首部functionClipboard:
TClipboard;$[clipbrd
功能返回当前剪贴板的数据
说明
首部procedureClose(varF:
);$[System
功能关闭文件F。
说明文件F必须已被Reset、Rewrite或Append打开,且没有关闭。
欲关闭一个未打开的文件或已关闭的文件都是错误的。
首部procedureCloseFile(varF:
);$[System
功能终止文件变量F与外部文件的联系
说明当编译指令{$I}打开的时候,可用IOResult来检查终止是否成功
首部functionCollectionsEqual(C1,C2:
TCollection):
Boolean;$[Classes
功能比较两个收集变量是否相同
说明
首部functionColorToIdent(Color:
Longint;varIdent:
string):
Boolean;$[Graphics
功能返回是否成功的获取了颜色的名称
说明##vars,Ident:
string;begins:
=‘Nose’;ifColorToIdent(clBlack,Ident)thens:
=Ident;
首部functionColorToRGB(Color:
TColor):
Longint;$[Graphics
功能将颜色类型转换成RGB格式返回
说明typeTColor=-(COLOR_ENDCOLORS+1)..$02FFFFFF;
便于WindowsAPI函数调用
首部functionColorToString(Color:
TColor):
string;$[Graphics
功能将颜色参数Color转换成字符串类型返回
说明如果Color有系统设定的颜色则返回该名称,否则返回其16进制形式##ColorToString(clBlack)=‘clBlak’;ColorToString(12)=‘$0000000C’;
首部functionComClassManager:
TComClassManager;$[ComObj
功能返回一个TComClassManager类
说明
首部functionCompareMem(P1,P2:
Pointer;Length:
Integer):
Boolean;assembler;$[SysUtils
功能在指定内存范围Length比较两个指镇的内容是否相同。
说明范围以二进制为单位。
首部functionCompareStr(constS1,S2:
string):
Integer;$[SysUtils
功能比较两个字符串的大小。
要区分大小写。
说明
首部functionCompareText(constS1,S2:
string):
Integer;$[SysUtils
功能比较两个字符串的大小。
不区分大小写。
说明
首部functionConcat(S1[,S2,...,Sn]:
):
string;$[System1
功能把字串S1[,S2,...,Sn]连接成一个单一的字串。
说明除此之外,还可以用运算符+来连接。
首部procedureContinue;$[System
功能离开本次循环,转到下一次循环
说明
首部f