Addr(x):Pointer \"var x:Pointer;
该函数返回一个变量或子程序的地址。（即指针，与@运算符等
begin
x:=Addr(x);{现指向它自己} end;
\"
AnsiCompareFileName AnsiCompareFileName(Const S1,S2 : String):Integer 基于当前地区的特征比较两个文件名。 s1>s2 >0 s1 AnsiCompareStr AnsiCompareStr(Const S1,S2 : string):Integer; 比较两个字符串的大小（区分大小写）。条件 返回 s1>s2 >0 s1 s2:=‟delphi‟; if ansicomparstr(s1,s2)<>0 thenshowmessage(‘大小写被认为不同！’) \" AnsiCompareText AnsiCompareText(Const S1,S2 : string):Integer; 比较两个字符串的大小，（不分大小写的比较）。例如 条件 返回? s1>s2 >0 ?s1 x:=strcomp(s1,s2); if x<0 then showmessage(„Delphi‟<‟delphi‟) else if x>0 then showmessage(„Delphi‟>‟delphi‟) else showmessage(„Delphi‟<‟delphi‟) e\" AnsiLastChar AnsiLastChar(Const S : String ):Pchar; 返回指向一个字符串最后一个字符的指针。 Begin X:=‟abcde‟; Y:=AnsiLastChar(x,‟c‟) End; \" AnsiLowerCase AnsiLowerCase(Const S : string):String; 写的字母。 \"var x:string; begin 将所有的字符（参数）转换为小 \"Var X:string; Y:=Pchar; \"条件 返回 x:=‟DELPhi IS GooD‟; showmessage(AnsilowerCase(x)); end; \" AnsiLowerCaseFileName AnsiLowerCaseFileName(Const S : string):String; 名转换为小写。 \"var x:string; begin x:=‟DELPhi IS GooD‟; showmessage(AnsilowerCase(x)); end; iLowerCase(Const S : string):String函数 \" AnsiPos AnsiPos(Const Substr,S : string):Integer; 否，如存在，位置是多少。 \"var; s:=string; x:integer; begin s:=Application; x:=AnsiPos(s,c);{x=6} end; \" AnsiStrComp AnsiStrComp(S1,S2:Pchar):Integer; 比较空结束的字符串的大小，（要分大小写）? 条件 返回 ?s1>s2 >0?s1 a:=ansistrcomp(„ABC‟,‟Abc‟)//a<0 b:=ansistrcomp(„ABC‟,‟ABD‟)//b<0 end \" AnsiStrIComp AnsiStrIComp(S1,S2:Pchar):Integer; 比较空结束的字符串的大小，（不分大小写）条件 返回? s1>s2 >0 ?s1 a:=ansistrcomp(„ABC‟,‟Abc‟)//a=0 b:=ansistrcomp(„ABC‟,‟ABD‟)//b<0 end \" AnsiStrLComp AnsiStrLComp(S1,S2:Pchar ; M : Cardinal):Integer; 比较参数字符串S1，S2前M个字节的大小，大小写区分。条件 返回? s1>s2 >0 ?s1 将一个文件 a:=ansistrcomp(„ABCd‟,‟ABcD‟,,3)//b>0 b:=ansistrcomp(„ABC‟,‟ABD‟,2)//b=0 end \" AnsiStrLIComp AnsiStrLIComp(S1,S2:Pchar ; M : Cardinal):Integer; 比较字符串序列前M个字节的大小，大小写不区分比较依据如下： 条件 返回? s1>s2 >0? s1 a:=ansistrcomp(„ABCd‟,‟ABcD‟,,3)//b=0 end \" AnsiStrLower AnsiStrLower(Str :Pchar):Pchar; 将参数字符串中的字母均转为小写，该字符串必须以nil结束。 \"var x:=string; begin s:=‟ABCDE‟; showmessage(s);{abcde} end; \" AnsiStrPos AnsiStrPos(Str1,Str2:Pchar):Pchar; 的指针。 \"Var x:pchar; y:string; Begin y:=‟Application‟ x:=ansiStrPos(y,’o’){现在就指向”o”的地址} End; \" AnsiStrPos AnsiStrPos(Str : Pchar ; Chr : Char):Pchar; 返回一指向在字符串Str中字符串Chr最后出现位置的指针。 \"Var x:pchar; y:string; Begin y:=‟Application‟ x:=ansiStrPos(y,‟a‟) End; \" AnsiUpperCase AnsiUpperCase(Const S :string):String; 将所有的字符（参数）转换为大写的字母。 \"var x:string; begin x:=‟application‟; showmessage(x); {APPLICATION} end; 返回一指向在Str1中Str2首次出现位置 \" Append Append(Var F : Text) begin if opendialog1.execute then begin 打开可Append的文本文件。 \"var f:textfile assignfile(f,opendialog1.filename); append(f); writeln(f); end end; \" AppendStr AppendStr(Var Dest : String; Const S : string); \"var 添加一个动态分配的字符串到 一个现存的字符串中。 f: TextFile; begin if OpenDialog1.Execute then begin { 打开一个文件 } AssignFile(f, OpenDialog1.FileName); Append(f); Writeln(f, 'appending some stuff to the end of the file.'); Flush(f); { 确保文件追加成功} CloseFile(f); end; \" ArcCos ArcCos(X : Extended):Extended; 计算给定角的反余弦值。返回值的类型相同。 \"var x:extended; y:extended; z:extended; begin x:=ArcosTan(Pi); end; \" ArcSin ArcSin(X : Extended):Extended; 计算给定角的反双曲余弦值。 \"var x:extended; y:extended; z:extended; begin x:=ArcsinTan(Pi); end; \" ArcSinh ArcSinh(X : Extended):Extended; 计算给定数的反双曲正弦值。 \"var x:extended; y:extended; z:extended; begin x:=ArcosTan(Pi); end; \" ArcTan ArcTan(X : Extended ):Extended; 以弧度值返回给定数的反正切值。 \"varx:extended; begin x:=ArcTan(Pi); end; \" ArcTan2 ArcTan2(X : Extended ):Extended; \"varx:extended; begin x:=ArcTan2(Pi); end; \" ArcTanh ArcTanh(X : Extended):Extended; 以弧度数返回给定角的双曲反正切函数值。 \"varx:extended; begin x:=ArcTanh(Pi); end; \" Assert Assert(Expr : Boolean [; Const Msg : string]); 检查一个布尔表达式是否正确。 以角度数返回给定数的反正切函数值。 \"var x:Boolean; begin x:=true; {经过一系列赋值} showmessage(Assert(x)); end; \" AssignFile AssignFile(Var F ; FileName : String); 为文件变量指定一个文件名使一个外部文件名与一个文件变量相连接。 \"var f:textFile; s:string; begin if opendialog1.excute then begin AssignFile(F,openDialog1.filename);{在框内选择文件} Reset(F); Readin(f,s);{读文件的第一行} Edit1.text:=s; Closefile(f); end; end; \" AssignPrn AssignPrn(Var F : Text); 将一个文本文件变量分配给指针变量。 \"var myfile:textfile; begin assignprn(myfile); rewrite(myfile); writeln(myfile,‟application‟) system.closefile(myfile); end \" Beep begin beep; end; \" BlockRead BlockRead(Var F; File ;Var Buf ;Const :Integer[; Var AmtTransferred:Integer]) 从一个打开的文件中读取一个或多个记录到一个变量中。 \"var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; begin if OpenDialog1.Execute then begin AssignFile(FromF, OpenDialog1.FileName); Reset(FromF, 1); { Record size = 1 } if SaveDialog1.Execute then \" BlockWrite Beep ; 使计算机发出一个标准的（嘟）声。 \"procedure TForm1.Button1Click(Sender: Tobject); BlockWrite(Var F; File ;Var Buf ;Const :Integer[; Var AmtTransferred:Integer]) 从 一个变量写入一个或多个记录到一个打开的文件中。 \"var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char; begin if OpenDialog1.Execute then begin AssignFile(FromF, OpenDialog1.FileName); Reset(FromF, 1); { Record size = 1 } if SaveDialog1.Execute then \" Bounds Bounds(Aleft,Atop,Awidth,Aheight:Integer):Trect; 为一个长方形返回True，此矩形有给定的长和高。 \"procedure TForm1.Button1Click(Sender: Tobject); var MyRect: Trect; begin MyRect := ActiveControl.BoundsRect; MyRect.Right := MyRect.Left + 2 * (MyRect.Right - MyRect.Left); MyRect.Bottom := MyRect.Top + (MyRect.Bottom - MyRect.Top) div 2; Active\" ByteToCharIndex ByteToCharIndex(Const S : string ; Index : integer):Integer 返回在一个字符串中指定字符的位置（不重复）。 begin \"var x:integer x=bytetocharindex(“string”,73); {x=4} end; \" ByteToCharLen ByteToCharLen(Const S : string ; M :integer):Integer; 返回在一个字符串中头M个字节中占据的字符数。 \"varx:integer begin x=bytetocharindex(„string‟,3); end; \" ByteType ByteType(Const S : string ; Index : integer):TmbcsByteType; 说明一个字符串中一 个字节是否为一个单字节字符，是否为一个双字节字符的第一个字节，或是否为双字节字符的第二个字节。 \"vart:tmbcsbytetype; begin t:=bytetype(„abc‟,3); end; \" CallTerminateProceCallTerminateProce:Boolean; 调用在程序结束任务列表的所有的函数。该程序仅当所以函数结束返回真时为真，且仅供DELPHI系统调用，用户请不要直接调用。 \"begin if callterminateprocs then dosomething;{可以关闭系统等} end; \" CancelDrag CancelDrag ; 删除在例程中的一个拖拉操作。 if not checkbox1.check then canceldrag; end; \" Ceil Ceil(X:Extended):Integer; ceil(2.8)=3 ceil(-1.0)=-1 \" CloseFile CloseFile(Var F); 关闭一个指定文件。 \"var F: TextFile; S: string; begin if OpenDialog1.Execute then {显示打开对话框} begin 返回一个不小于变量值的最小整数。 \"ceil(-2.8)=-2 \"begin AssignFile(F, OpenDialog1.FileName); { 选中对话框中的文件} Reset(F); Readln(F, S); {读取文件的第一行} Edit1.Text := S; {将一个字符串赋给edit1.text} Close\" ChangeFileExtChangeFileExt(Const FileName , Extension : String):String; 改变文件的扩展名。extended string参数传递新的扩展名。该函数并不修改原来的文件的名字，而是生成一个新的字符串。 \"var s:string begin s:= ChangeFileExt(OpenDialog1.FileName,'.BMP'); end \" CharToByteIndex CharToByteIndex(Const S : string ; Index :integer):Integer; 返回一个字符串中被指定位字符第一个位元组的索引。若在第一个位置则返回1，第二个位置则返回2，依次类推。当index 参数的值超出范围（index<0或index大于该字符串的长度）时，函数返回0。而当系统不采用多位系统时，函数返回值等于index本身，因为此时字符和位是一一对应关 \"var I:integer; Begin I:=chartobyteindex(„string‟,4); end; \" CharToByteLen CharToByteLen(Const S : string : M :integer):Integer; 返回一个字符串头M个字符的位组长度。当M的值大于S的长度时，函数返回S的长度。若采用多字节系统，则返回它们中较小的值。 \"var I:integer; Begin I:=chartobytelen(„string‟,2); end; \" ChDir ChDir(S : String); 将当前目录更改为S参数指定的目录。注意：当编译开关{$I+}打开时，运行期错误由异常处理机制处理；当该开关为 {$I-}时, 用IOResult函数来检查I/O errors。 \"begin chdir(edit1.text); ifioresult<>0 then messagedlg(„connot find directory‟,mtwarning,[mbok],0); end; \" Chr Chr(X:Byte):Char; 取得一个字符的ASCII码。 \"canvas.textout(10,10,chr(65)){返回 字母‘A’}; \" Close Close(Var F : File); 结束文件变量和一个外部文件的关联。该函数是为了保持对现存的PASCAL代码的兼容。如果在DELPHI中或者KYLIX中写程序，建议使用CLOSEFILE（）函数。 \"begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); edit1.text:=inttostr(filesize(f)) close(f); end; end; \" CloseFile CloseFile(Var F : File) 结束文件变量和一个外部磁盘文件的关联。该函数释放由Reset, Rewrite 或Append打开的任何类型的文件，该变量将被彻底更新和释放，以供其它文件使用。 \"begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); edit1.text:=inttostr(filesize(f)) closefile(f); end; end; \" CollectionsEqual CollectionsEqual(C1,C2:Tcollection):Boolean; 比较两个集合的内容。仅当两个集合中的元素内容、数量、位置都一致时，函数才返回真。其中tcollection代表这两个集合的父组件，如窗体，数据模块等。 \"var set1,set2:set of 1..10; set1=[1,3,6,9]; set2=[1..3,5,8]; begin ifcollectionsequal(set1,set2) then label1.caption:=”equation!” elselabel1.caption:=”not equation!”; endif end; \" CompareText CompareText(Const S1,S2 : String):Integer; 比较两个字符串的大小，（不分大小写的比较）。相等时返回0，S1>S2时返回1，否则返回-1。 \"var string1,string2:string; I:integer; Begin String1:+‟ABC‟; String2:=‟aaa‟; I:=comparestr(string1,string2); If I<0 then Showmessage(„then string are not equal‟) end; \" CompareStr CompareStr(Const S1,S2 : string):Integer; 比较两个字符串的大小，（要分大小写的比较）。用法同上。 \"var s1,s2:string; I:integer; Beging S1:=‟STEVE‟; S2:=‟STEVe‟; I:=comparestr(s1,s2); If I<0 then Showmessage(„STEVE‟+‟<‟+‟STEVe‟); end; \" Concat Concat(S1[,S2,„.,Sn]:String):String; 将两个或两个以上的字符串相加成为一个字符串。 \"varS: string; begin S := Concat('ABC', 'DEF'); { 'ABCDEF' } end; \" Copy Copy(S; Index,Count:Integer):String; 复制字符串。函数返回从S[index]开始的一个 子字符串或子序列。如果index大于字符串S的长度，则返回一个空字符串；如果count指定的字符串长于S的有效长度时，仅返回从S[index]到结束处的字符串或序列 \"var s:string; begin s:=‟delphi is good!‟ s:=copy(s,1,6); showmessage(s); end \" CopyFileTo CopyFileTo(const Source: string; const Destination: string): Boolean; 复制文件。文件复制成功时返回真，否则返回假，当目标文件存在时也返回假。该函数通过调用系统API函数来实现。如在WIN32API中调用copyfile,在Linux下通过调用Tfiletream的例程来创建目标文件。 \"copyfileto(pchar(‘c:\\autoexec.bat’),pchar(‘c:\est.txt’)); \" Cos Cos(X : Extended ):Extended; begin r:=cos(pi); end; \" Cosh Cosh(X : Extended ):Extended; 计算一个角度的双曲余弦。此处角采用弧度制。求余弦三角函数。 \"var r:extended; \"var R: Extended; begin R := Cosh(Pi); end; \" Cotan begin R:=cotan(Pi); end; \" CreateDir CreateDir(Const ClassName):Boolean; 创建一个新的路径。成功返回真，失败返回假。 \"uses FileCtrl; procedure TForm1.Button1Click(Sender: Tobject); begin Cotan(X : Extended ):Extended; 计算一个角度的余切。此处角采用弧度制。 \"var R: Extended; if not DirectoryExists('c:\emp') then if not CreateDir('C:\emp') then raise Exception.Create('Cannot create c:\emp'); end; \" CreateRegKey CreateRegKey(Const Key , ValueName ,Value:String);创建可打开一个由参数key指定的注册码（注册表的：HKEY_CLASSES_ROOT目录下的亚码）。该参数为非空字符串，且不能以反斜杠”\\”开始。必须是一个子键或根键。创建成功后，该键所指定的值及其它信息将回传给本函数。value name参数可以指向一个有关联值的子键的非空字符串。但 \"var Reg: Tregistry; begin Reg := Tregistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if CreateRegKey('\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce', Reg.WriteString('MyApp','\"\"' + ParamStr(0) + '\"\"'); finally Reg.CloseKey; \" CurrToFMTBCD CurrToFMTBCD(Curr :Currency ; Var BCD : FMTBcd ;Precision,Decimals : Integer):Boolean; 转换一个二进制值为对应的的十进制编码值。 \"略 \" CurrToStr CurrToStr(Value : Currency):String 将当前值转换为一个字符串。该函数将由value指定的变量值转换为其字符形式，该转换遵从ffGeneral floating point 转换规则。 \"var s:string; begin s:=currtostr(Oaf); end; \" CurrToStrF CurrToStrF(Value : Currency ; Format : TfloatFormat ; Digits:Integer):string; 将一个当前变量value的值转换为一个说明格式的float字符串。该调用隐含依据19位的float精度调用。 CycleToRad CycleToRad(Cycles : Extended):Extended; 将一个角度测量值转换成弧度。依据的公式是radians = 2pi * cycles. \"var m:extended; n:extended; begin m:=1800; n:=cyclytorad(m); end; \" Date Date : TDateTime; 返回系统当前的日期。 label1.caption:=‟today is ‟+datetostr(date); end; \" \"begin True) then DateTimeToFileDate DateTimeToFileDate(DateTime:TDateTime):longInt; 将一个 TDateTime值转换成DOS的date-and-time值。fileage,filegetdate和filesetdate例程都使用DOS格式的日期时间值，TSearchRec结构中的Time成员也是使用DOS格式的日期时间值，FindFirst和FindNext函数需要用到TSearchRec结构。 \"procedure TForm1.Button1Click(Sender: Tobject); begin Label1.Caption := DateTimeToStr(Datetime); end; \" DateTimeToStr DateTimeToStr(DateTime : TDateTime):String; 该函数将TDateTime格式 变量转换成字符串，如果该参数不包含日期值，返回字符串中日期显示为00/00/00，若没有时间值则相应位置显示为00：00：00AM \"begin label1.caption:=datetimetostr(now); end; \" DateTimeToString DateTimeToString(Var NewString : String ; Const Format : String ; DateTime : TDateTime); 根据给定的格式字符串转换时间和日期值。DateTime为时间日期值。另参见FomatDateTime函数。 \"procedure TForm1.Button1Click(Sender: Tobject); begin Label1.Caption := DateTimeToStr(Now); end; \" DateTimeToSystemTime DateTimeToSystemTime(Var NewString :String ; Const Format :string ; DateTime :TDateTime); 将一个Delphi的TdateTime格式转换成为Win32接口的TsystemTime格式。 \"var DateTime: TDateTime; begin GetLocalTime(DateTime); Result := DateTimeToSystemTime(DateTime); end; \" DateTimeToTimeStamp DateTimeToTimeStamp(DateTime :TDateTime):TtimeStamp; 将一个TdateTime值转换成为对应的TtimeStamp值。 \"Var Timestamp:Ttimestamp; Begin Getlocaltime(datetime); Result:=datetimetostamp(datetime:Tdatetime); end; \" DateToStr DateToStr(Date : TDateTime):String 使用ShortDateFormat全局变量定义的格式字符串将Date参数转换成对应的字符串。 \"procedure TForm1.Button1Click(Sender: Tobject); begin Label1.Caption := 'Today is ' + DateToStr(Date); end; \" DayOfWeek DayOfWeek(Date : TDateTime):Integer; 返回给定日期是星期几。通常返回一 个1-7之间的常数。注意星期天为第一天，星期六为第七天。 \"begin canvas.textout(10,10,’今天日期与现在时间：’+datetimetostr(now)); canvas.textout(10.30,’今天日期：’+datetostr(date)); canvas.textout(10,50,’现在时间：’+timetostr(time)) canvas.textout(10,70,’今天是星期：’+inttostr(dayofweek(now)-1)) e\" Dec Dec(Var X[;N:Longint]); 将变量X递减1或N。Dec(X)相当于X=X-1，而Dec(X,N)相当于X=X-N。调用dec()比上述等价的语句运算更快。 \"var intvar:integer; longint:longint; begin intvar:=10; longint:=10; dec(intvar); dec(longint,5); end \" DecodeDate DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 将时间变量的日期分解，显示出年，月，日。如果参数date小于或等于0，则返回的年月日均为0。 \"procedure TForm1.Button1Click(Sender: Tobject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, Msec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month \" DecodeTime DecodeTime(Time : TdateTime ; Var Hour,Min,sec,Msec:Word) 将时间变量的时间分解成为（小时，分钟，秒，毫秒） \"var year,month,day,hour,min,sec,msec:word; begin decodedate(now,year,month,day); canvas.textout(10,10,’今天是’+inttostr(year)+’年’+inttostr(month)+’月’+inttostr(day)+’日’)； decodetime(now,hour,min,sec,msec); canvas.textout(10,30,’现在是 \" DegToRad DegToRad(Degrees : Extended):Extended; 将一个角度值转换成为弧度值。 \"varp:extended; begin p:=degtorad(180); end; \" Delete Delete (var S :String ;Index ,Count :integer) 删除字符串S中指定位置S[index]开始的指定count个字符。 \"var s:string begin s:=‟delphi is good ’; delect(s,19,3) showmessage(s); end; \" DeleteFile DeleteFile(Const FileName : String):Boolean; 从磁盘上删除一个文件，如果删 除失败或者文件不存在则返回假。 \"begin iffileexists(„c:\\autoexec.bak‟) then if renamefile(‘c:\\autoexe.bak’,’c:autoexec.kkk’) then showmessage(‘更改成功’); else showmessage(‘更改失败’)； else showmessage(‘指定文件不存在’) end \" DeleteRegKey DeleteRegKey(Const Key : string); 从系统的注册表中删除一个由key参数指定的HKEY-CLASSES-ROOT的子键。这里key参数必须为非空字符串。且所删除的子键必须没有下一层子键。 begin Reg := Tregistry.Create; deleteregkey('\\Software\\Microsoft\\Windows\\CurrentVersion\\RunOnce'); end; \" DiskFree DiskFree(Drive : Bte):Int; 取得一个指定磁盘的磁盘剩余空间。当drive参数为0时指当前盘，为1时指A盘，为2时指B盘，依次类推。当所指定盘符无效时，函数返回-1。 \"var s:string; begin s:=inttostr(diskfree(0)div1024)+‟kbytes free‟; canvas.textout(10,10,s); end; \" DiskSize DiskSize(Drive : Byte):Int; 取得指定磁盘的磁盘的空间字节数。参数说明同diskfree（）。 \"var s:string begin s:=inttostr(disksize(0)div 10024)+‟kbyts capacity‟ canvas.textout(10,10,s) end; \" Dispose Dispose( Var P :Pointer);释放一个为动态变量分配的内存。在释放后调用指针P将导致错误。如果P传递的是一个无效的指针，则将引发一个EInvalidPointer 异常。 \"type str18=string[18]; var p:^Str18; begin new(p); \"var Reg: Tregistry; p^:=‟Now You See it…‟; dispose(p); end; \" DisposeStr DisposeStr(P : Pstring); 释放有关字符串的指针。该函数仅为保持向下兼容使用。建议连同newstr()均不要使用。 \"var s:string; ps:string; begin s:=‟delphi is good!‟ ps:=newstr(s); showmessage(string(s)); disposestr(ps); end; \" DLLCanUnloadNow DLLCanUnloadNow:Hresult ; 询问系统是否可以卸载内进程的服 务，以排出此进程。当函数返回S_OK时，表示可以卸载，返回S_false时，表示不可卸载。?注：该方法不可直接调用，须在ＡctiveX输出有关信息或者由OLE驱动来显示可否卸载服务。 \"ifdllcanunloadnow=s_ok then dosomething else do other something end; \" DLLRegisterServer DLLRegisterServer:Hresult; 在系统的注册表的当前模块内注册一个内进程ActiveX服务器。?注：该方法不可直接调用，由在队列中的ＡctiveX输出并通知DLL服务来注册类库和报务线程支持的类。 EncodeDate EncodeDate(Year,Month,Day:Word):TdateTime; 该函数将年(year)、月(month)、日(day)数值编码成TdateTime格式。其中年份，月份，日的数值必须在合理范围内，否则将引发一个EconvertError异常。 \"var mydate : Tdatetime; begin mydate:=encodedate(83,12,32); label1.caption:=datetostr(mydate); end; \" EncodeTime EncodeTime(Hour,Min,Sec,Msec:Word):TdateTime; 将给定的时、分、秒、毫秒值编码成TdateTime数值。如果Time224hour类型常量为false，则合法的小时值为0-12，否则为0-23。合法的min值为0-59，Msec值取0-999。如果给定的值非法，则系统产生EconvertError异常。函数的结果值为0（包含）到1（不包含）之间的数值，表示一天中的 \"begin canvas.textout(10,10,’你所指定的日期是：’+datetostr(encodedate(58,1,8))); canvas.textout(10,30,’你所指定的时间是：’+timetostr(encodetime(0,1,2,3))); end; \" EndThread EndThread(ExitCode : Integer); 该函数调用winapi 中的exitthread函数来结 \"var exitcode:integer; 束一个线程。 begin exitcode:=val(text1.text); if exitcode=3 then endthread(2); end; \" Erase Erase(Var F); 删除指定的文件，文件在删除前必须被关闭。 TForm1.Button1Click(Sender: Tobject); varF: Textfile; begin OpenDialog1.Title := 'Delete File'; if OpenDialog1.Execute then begin AssignFile(F, OpenDialog1.FileName); try Reset(F); if MessageDlg('Erase ' + OpenD \" EOF EOF(Var F):Boolean; 判断现在是否已经到了文件的结尾，当参数F被省略时，函数将调用系统默认的输入文件。注意：如果文件是只写状态时，函数将返回false。例如由函数append和rewrite所打开的文件就是只写的。 \"var f1,f2:textfile; ch:char; begin if opendialog1.exrcute then begin assignfile(f1,opendialog1.filename); reset(f1); if savedialog1.execute then begin assignfile(f2,opendialog1.fielname); rewrite(f2); while not e \" Eoln Eoln[(Var F : Text)]:Boolean 若指针位于行的末尾或者测试文件的尾部，则返回True。它把一个回车（#13）解析为一行的末尾。 { 通知程序等待一个键盘输入 } WriteLn(Eoln); end; \" ExcepAddr ExcepAddr:Pointer;返回当前异常时发生的地址，如没有则返回nil。 \"VarS:variant; Begin IfLabel1.onerror then s:=exceptaddr; end; \" Exclude Exclude(Var S : set of T ;I : T); \"begin \"procedure 从一个集合S中删除一个元素I。 \"typetfontstyleproperty=class(tsetproperty) publicprocedure edit; override; end; „var style:tfontstyles; begin style:=tfontstyles(byte(getordvalue)); // 获取当前字体 if fsbold in style thenexclude(style,fsbold) else include(style,fsbold); setor\" Exit Exit; 从当前进程中退出。函数退出当前进程后，返回调用该函数处继续往下执行。注意：该函数退出的是调用它的过程，而不仅仅是程序块。当然它遵守try„finally结构。如果函数在try子句中被调用，则finally后的子句仍然继续执行。 \"procedure TForm1.Button1Click(Sender: Tobject); begin if Query1.Active = False then Exit; end; end; \" Exp Exp(X : Real):Real;函数返回自然对数基底E的X次幂。 begin s:=‟E=‟+floattostr(exp(1.0)); canvas.textout(10,10,s) end; \" ExpandFileName ExpandFileName(Const FileName : string):String; 字符串表示的路径的完整形式，包含盘符，路径等信息。 \"begin showmessage(expandfilename(„myfilename.bak‟)); end; \" ExtractFileDir ExtractFileDir(Const FileName : String):String; 参数filename返回指定文件所在的盘符和路径。其返回值可以用于以下函数：CreateDir, GetCurrentDir, RemoveDir, and SetCurrentDir 。如果参数中不包含盘符和路径，则函数返回空字符串。 \"begin showmessage(extractfilename(„c:\emp\ext.txt‟)); end; \" ExtractFileDrive ExtractFileDrive(Const FileName : string):String; 该函数析取文件所在磁盘 \"var s:string; 返回filename表示的 和路径。结果适用于CreateDir, GetCurrentDir, RemoveDir, 和 SetCurrentDir等函数。 \"begin showmessage(extractfiledrive(„c:\emp\ext.txt‟)); end; \" ExtractFileExt ExtractFileExt(Const FileName : string):String; 返回指定文件的文件扩展名。 \"bagin showmessage(extracfileext(„c:\emp\ext.txt‟)) end; \" ExtractFileName ExtractFileName(Const FileName : string):String; 件名和扩展名。 \"begin showmessage(extractfilename(„c:\emp\est.text‟)) end; \" ExtractFilePath ExtractFilePath(Const FileName : String): String; 返回参数文件的驱动器和目录部分。 \"begin with Session do begin ConfigMode := cmSession; try AddStandardAlias('TEMPDB', ExtractFilePath(ParamStr(0)), 'PARADOX'); finally ConfigMode := cmAll; end; end; \" ExtractRelativePathExtractRelativePath(Const BaseName ,DestName: String): String; 对一个基本目录返回一个相对目录名。 \"s1:=extractrelativepath(‘c:\\windows’,’system’) \" FileAge FileAge(DateTime:TDateTime):Integer; 返回文件的日期和时间，结果为一整型数值。而且返回值可以通过filedatetodatetime函数转换成Tdatetime对象。如果文件不存在，将返回-1。 \"begin showmessage(datetimetostr(filedatetodatetime(fileage(„c:\\autoexec.dos‟)))) end; \" FileClose FileClose(Handle : Integer); 通过调用文件句柄来关闭指定的文件。该句柄应是在文件打开或创建时给出的(Fileopen或Filecreate)。 \"procedure TForm1.Button1Click(Sender: Tobject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName := E\" FileCreate FileCreate(Const FileName : String):Integer; 创建一个新的文件。如果返回值为正，则表明函数执行成功，且返回值为新文件的句柄。如果返回值为-1，则表明函数执行发生错误。 \"procedure TForm1.Button1Click(Sender: Tobject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; 返回指定文件的主文 Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName := E\" FileDateToDateTime FileDateToDateTime(FileDate : integer):TdateTime; 将DOS格式的的日期，时间转换为一个Delphi 的TdateTime类型的格式值。Fileage，Filegetdate,Filesetdate例程都使用DOS格式的日期时间值，TSearchRec结构的Time成员也使用DOS格式的日期时间值，该结构在FindFirst和FindNext函数中使用。 \"vardatetime1:Tdatetimedatetime2:integer; begin datetime2:=filegetdate(“c:\\auto.bat”); datetime1:=filedatetodatetime(datetime2); end; \" FileExist FileExist(Const FileName : String):Boolean; 判断一个文件是否存在。文件存在返回true，不存在返回false。 var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName := E\" FileGetAttr FileGetAttr(Const FileName : String):Integer; 取得指定文件的文件属性。该属 \"procedure TForm1.Button1Click(Sender: Tobject); 性值可以使用操作faxxxx常量和AND操作进行测试，如果函数返回负值，表示操作失败， 返回的负数值是DOS错误代码的负数。faXXXX文件属性常量定义如下所示： 常量名 代码说明 fareadonly $01 只读文件 fahidden $02 隐藏文件 fasysfile $04 系统 \"Case filegetattr(‘c:\\command.dos’) ofFareadonly : showmessage(„readonly‟); Fahidden :showmessage(„hidden‟); Fasysfile :showmessage(„systemfile‟) Favolumeid :showmessage(„volumeid‟); Fadirectory :showmessage(„directory‟); Faarchive :show\" FileGetDate FileGetDate(Handle:integer):Integer; 以DOS内部格式返回一个指定文件的建立或修改日期。 \"var datetime:integer; begin datetime:=filegetdate(1001); end; \" FileOpen FileOpen(Const FileName : String ; Mode : Integer):Integer; 使用指定的访问模式打开一个文件。存取模式可以通过多个fmopenXXX常量以及一个fmShareXXX使用OR（或）操作形成。如果函数返回正值，表示操作成功，返回值为文件号；如果返回值为负，该值为 DOS错误代码的负数。 \"var filehandle:integer; begin filehandle:=fileopen(filename,fmopenwrite or fmsharedenynone); if filehandle>0 then [valid file handle] else [open error ; filehandle = negative dos error code] end; \" FilePos FilePos(Var F):Longint; 返回文件F中当前的指针（作为一个记录项）。调用该函数前，文件必须已经打开，并且不能用于文本文件。文件的开始位置是零。如果文件当前位置在文件开始处时，FilePos(F)返回0，否则返回文件位置；如果文件当前位置在文件尾，Dof(F)=True。 size:longint; s:string; y:=integer; begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); size:=filesize(f); s:=‟file size in bytes:‟+inttostr(size); y:=10; canvas.textout(5,y,s); \" FileGetDate FileGetDate(Handle : Integer):Integer; 返回文件生成的日期和时间。如果句柄无效则返回值为-1。 \"a:=filegetdate(null);//a=-1 \" FileRead FileRead(Handle : Integer ; Var Buffer ; Count : Integer):Integer;从一个文件读取count字节到buffer缓冲区。函数返回值为实际读取的字节数，该数值小于等于count。 \"procedure TForm1.Button1Click(Sender: Tobject); var iFileHandle: Integer; iFileLength: Integer; iBytesRead: Integer; Buffer: Pchar; I: Integerbegin if OpenDialog1.Execute then begin try iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead\" FileSearch FileSearch(Const Name,DirList : string):String; 函数在dirlist参数给定的目录中搜索name参数表示的文件名，dirlist可以包含多个目录信息，每一个目录之间用分号分隔。如果该函数在目录中找到匹配的文件，则返回该文件的完整的路径名；否则返回一个空串。 \"begin showmessage(filesearch(„test.txt‟,‟c:\emp;c:\\;d:\\‟)) end; \" \"var f:file of byte; FileSeek FileSeek(Handle , Offset, Origin :Integer):Integer; 该函数移动文件指针。handle 是一个已打开的文件的文件号，offset是针对参数给出的新的文件指针位置，origin具有三个取值，含义如下 ：0：表示offset相对于文件开始位置计算。1：offset相对于文件的当前位置计算。2：offset相对于文件尾计算。 \"procedure TForm1.Button1Click(Sender: Tobject); var iFileHandle: Integer; iFileLength: Integer; iBytesRead: Integer; Buffer: Pchar; I: Integerbegin if OpenDialog1.Execute then begin try iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead\" FileSetAttr FileSetAttr(Const FileName : string ; Attr : Integer):Integer; 体文件属性可参看相应faXXXX代码表示。 \"begin FileSetAttr('MyFile.sys', faReadOnly); End. \" FileSetDate FileSetDate(Handle : Integer ; Age :Integer):Integer; 设置由handle参数指定文件的日期。age参数使用DOS日期时间格式。可以使用权DateTimeToFileDate函数将TDateTime 日期时间格式转换成 DOS 日期时间格式。 \"filesetdate(1001,datetimetofiledate(now)); 设置文件属性。具 \" FileSize FileSize(Var F ):Integer; 取得指定文件的文件长度。以字节为单位。如果F是一个记录文件，filesize返回的是文件中的记录个数，实际的字节数可由记录数乘以记录长度获得。filesize不能用于文本文件，调用该函数前，文件必须打开。 \"var f: file of Byte; size : Longint; S: string; y: Integer; begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); Reset(f); size := FileSize(f); S := 'File size in bytes: ' + IntToStr(size); y := 10; Canvas.Tex\" FileWrite FileWrite(Handle :Integer ;Var Buffer ; Count :Integer):Integer; 将count个字节通过buffer写入handle指定的文件中。返回值为实际所写入的字节数；如果返回-1则表示写入出错。 \"procedure TForm1.Button1Click(Sender: Tobject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName :=\" FillChar FillChar(Var X; Count ; Value : Byte); 该函数在变量 X指向的地址连续填充count个字节，填充值由value给出，该参数可以是Byte或Char类型。该函数不进行范围的越界检查，故调用前一定要确保填充范围不能越界。 \"var S: array[0..79] of char; begin FillChar(S, SizeOf(S), Ord(' ')); end; \" FindClose FindClose(Var F :TSearchRec); 该函数结束FindFirst/FindNext调用序列释放 相应资源。该函数的调用在32位在windows系统中是必须的。 \"procedure TForm1.Button1Click(Sender: Tobject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + \" FindControl FindControl(Handle : HWnd):TwinControl; 返回由指定系统句柄说明的系统控制。 \"FindControl (Form2.Handle, SW_SHOWMINNOACTIVE); \" FindDragTarget FindDragTarget(Const Pos : Tpoint ; AllowDisabled : Boolean):Tcontrol; 返回一个指定的屏幕坐标的控制。 \"iffinddragtarget()=nil then label1.caption:=’所在位置没有控件’; \" FindFirst FindFirst(Const Path : String ; Attr : Integer ; Var F : Tsearchrec):Integer; 查询第一个符合条件的文件，并返回。其中的路径支持通配符，attr代表文件的属性。 \"procedure TForm1.Button1Click(Sender: Tobject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + \" FindNext FindNext(Var F : TSearchRec):Integer; 查询下一条符合条件的文件。 \"procedure TForm1.Button1Click(Sender: Tobject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + \" FloatToDecimal FloatToDecimal(Var DecVal : TfloatRec ; Const Value ; ValueType : TfloatValue ; Precision,Decimals:Integer); 将一个浮点数转换成为一个十进制数字。参数precision表示期望的精度，为1-18。参数decimals表示小数点左边的最大位数（整数部分）。 FloatToStr begin s:=floattostr(18.5); end; \" FloatToStrF FloatToStrF(Value:Extended TfloatFormat;Precision,Digits:Integer):String; ; Format : 将浮点数转换为一个字符串。FORMAT参数 FloatToStr(Value : Extended):String; 将浮点数转换为指定格式的字符串。该转 换使用普通数字格式。有效位数为15位。 \"vars:string; 控制结果的格式，precision定义给定值的精度，对于single浮点值，该值须小于或等于7； 对于是double型浮点数，该值小于等于15；对于extended符点值，该值小于等于18。 \"Var S:string; Begin S:=floattostrf(18.5,ffnumber,15,10); end; \" FloatToText FloatToText(Buffer:Pchar;Const Value; ValueType : TfloatValue;Format : TfloatFormat;Precision,Digits:integer):Integer; 将一个浮点数转换为一个指定格式的十进制数字。 \"var s:integer; buffer:pchar; begin s:=floattotext(buffer,18.5,ffcurrency,10,10); end; \" FloatToTextFmt FloatToTextFmt(Buff :Pchar ;Const Value ;ValueType :TFloatValue;Format:Pchar):Integer;将一个浮点数转换为一个指定格式的十进制数字。 \"var buff:pchar; v:extended; i:integer begin v:=100.00; I:=floattotextfmt(buff,v,ffgeneral); end; \" Floor Floor(X:Extended):Integer; 向下舍入给定变量，即取小于或等于X的最大整数。 \"Floor(-2.8) = -3 Floor(2.8) = 2 Floor(-1.0) = -1 \" Flush Flush(Var F : Text); Flush强制把缓冲区的文本输出到一个以写方式打开的文本文件（如append,rewrite）。缺省情况下，会缓冲一行文本。注意：该函数刷新delphi的缓冲区，并不是刷新系统缓冲区。要确保所有的数据都安全保存，请使用保存功能或退出文件。 \"var f: TextFile; begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); Append(f); Writeln(f, 'I am appending some stuff to the end of the file.'); Flush(f); CloseFile(f); end; end; \" FMTBCDToCurr FMTBCDToCurr(Const BCD : FMTBcd ; Var Curr : Currency):Boolean; 将一个二进制编码的十进制值转换成为一个对应的Currency型值。?注：早期的函数，不推荐使用。 FmtLoadStr FmtLoadStr(Ident:Integer;Const Args : array of const):String; 将一个资源格式化的字符串返回为格式化的输出。 \"label1.caption:= Fmtloadstr('There are now %d records in the table', [DataSet.RecordCount]); \" fmtstr FmtStr(Var StrResult : String ; Const Format : String ; Const Arge : array of const); 该函数格式化参数args 数组中的参数，参数format是object pascal格式化字符串，用于控制结果的格式。结果字符串返回到参数result中。 \"Fmtstr([123.456],'%8.2f') \" ForceDirecttories ForceDirecttories(Dir : string)：boolean; 根据指定的参数创建目录。所给参数必须是一个完整的路径。如果给定的路径中有目录不存在，则函数将会建立它。 \"procedure TForm1.Button1Click(Sender: Tobject); var Dir: string; Begin ForceDirecttories(„C:\\APPS\\SALES\\LOCAL‟); Dir := 'C:\\APPS\\SALES\\LOCAL'; if DirectoryExists(Dir) then Label1.Caption := Dir + ' was created' end; \" Format Format(Const Format : string ; Const Args : array of Const):String; 将字符串转换为一个指定格式的字符。 \"var x:string; begin showmessage(format(„%*.*f‟,[9,1,234123.456])) showmessage(format(„%9.1f‟,[234123.456]‟)) end; \" FormatBuf FormatBuf(Var Buffer ; BufLen : Cardinal ;const Format ;FmtLen :Cardinal;const Args:array of const ):String; 格式化一个数组的变量，并将结果放置在缓冲区Buflen内。 \"type array:real; vararray1[1..10]:array; s:word; b:buffer begin s:=formatbuf(f,10,n,array1); end; \" FormatCurr FormatCurr(Const Format : String ; Value : Currency):String format格式来格式化currency所指定的变量。 \"var curr:currency; begin FormatCurr(ffgeneral; curr); end; \" FormatDateTime FormatDateTime(Const Format:string;DateTime:TDateTime):String; 该函数将日期时间变量datetime转换为format指定格式的字符串。 \"begin showmessage(formatdatetime(formatdatetime(‘”今天是”,yyyy,mmmm,d,dddd hh:mm’,now))) end; \" FormatFloat FormatFloat(Const Format:string;Value:Extended):String; 该函数将参数value 指定的浮点数转换为format指定格式的字符串。 \"下面是针对不同的格式转换时所得到的结果： 0.00 #.## #.##0.00 0.000E+00 0.5 .5 0.50 5.000E-01 \" FormatMaskText FormatMaskText(Const EditMask : String ; Const Value : String):String; 该函数使用一个编辑屏蔽符格式化一个字符串。 \"var s:string; begin s:=formatmasktext（edit1.editmask，‘！’）; end; \" FPower10 FPower10 (Val X: Extended ;pow : Integer ):Extended; pow次幂。这里X必须大于0。 \"var I:extended; k:extended; begin k:=5; I:=fpower10(k,5); end; \" Frac Frac(X : Extended ):Extended; a:extended; begin a:=frac(23.44); end; \" FreeMem FreeMem(Var P : Pointer[; Size : Integer]); 释放一个给定大小的动态变量P，将变量空间归还给程序堆空间。过程调用完后，P变为没有定义。如果再调用P，将会引发运行错 该函数返回参数X的 函数根据给定的 返回实数的小数部分。 \"var 误，可以用系统的异常处理机制来处理这类错误。 var tmp:pointer; begin tmp:=pointer(p); pointer(p):=nil; freemem(tmp); \"procedure freememandnil(var p); end; \" GetCurrentDir GetCurrentDir:String; 返回当前目录的完整路径名。 \"var s:string; begin s:=getcurrentdir(); end; \" GetDir GetDir(Drive : Byte; Var S: String) 取得指定磁盘驱动器的目录。参数Drive表示 驱动器，结果返回到S中。参数Drive取0时表示当前驱动器，取1时表示A驱，取2时表示B驱等等，以此类推。 \"var s : string; begin GetDir(0,s); { 0 = Current drive } MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0); end; \" GetFormatSettings GetFormatSettings; 重新设置时间和资料的格式参数使成为缺省值。 \"begin getdatetime(now); betformatsettings; end; \" GetMem GetMem(Var P : Pointer ; Size : Integer); 指针。 \"var F: file; Size: Integer; Buffer: Pchar; begin AssignFile(F, 'test.txt'); Reset(F, 1); try Size := FileSize(F); GetMem(Buffer, Size); try BlockRead(F, Buffer^, Size); ProcessFile(Buffer, Size); finally FreeMem \" GetMemoryManager 创建一个动态变量和一个指向地址块的 GetMemoryManager(Var MemMgr : TMemoryManager); 返回安装在 内存管理器中的当前的全部指针。 \"var GetMemCount: Integer; FreeMemCount: Integer; ReallocMemCount: Integer; OldMemMgr: TMemoryManager; function NewGetMem(Size: Integer): Pointer; begin Inc(GetMemCount); Result := OldMemMgr.GetMem(Size); end; function NewFreeMem(P: Pointe\" GetHeapStatusGetHeapStatus:TheapStatus; 返回内存管理器的当前状态。 \"procedure tform1.button1click(sender:tobject); procedure addfmt(const fmt:string;args;array of const)l begin memo1.lines.add(format(fmt,args)); end; var status:theapstatus; begin status:=getheapstatus; addfmt(„totaladdrspace=%d‟,[status.t\" GraphicFilter GraphicFilter(GraphicClass : TGraphicClass):String; 返回一个与打开或保存对话框过滤器属性相一致的过滤器字符串。 \"SavePictureDialog1.DefaultExt := GraphicExtension(Tbitmap); SavePictureDialog1.Filter := GraphicFilter(Tbitmap); if SavePictureDialog1.Execute then \" GradToRad GradToRad(Grads : Extended):Extended; 将梯度转换成为弧度值 \"var grad:extended; r:extended; begin r:=gradtorad(grad); end; \" Halt Halt[(Exitcode : Integer)]; if 1=1 then begin if 2=1 then begin if 3=3 then begin halt(1); end; end; end; canvas.textout(10,10‟this will not de executed); end; 将一个程序非正常的终止。参数exitcode 是一个正的表达 式，表示程序的退出码。 \"begin \" High High(X); 返回一个在范围内的最大变量值。 \"function Sum( var X: array of Double): Double; var I: Word; S: Real; begin S := 0; for I := 0 to High(X) do S := S + X[I]; Sum := S; end; procedure TForm1.Button1Click(Sender: Tobject); var List1: array[0..3] of Double; List2: array[5..\" Hypot Hypot(X,Y:Extended):Extended; 计算直角三角形斜边的长度。 y:rea; s:extended; begin x=133.4 y:=435.4 s:=hypot(x,y); end; \" ln ln(X : Real):Real; 求一个数的自然对数。 \"Var e : real; S : string; begin e := Exp(1.0); Str(ln(e):3:2, S); S := 'e = ' + FloatToStr(e) + '; ln(e) = ' + S; Canvas.TextOut(10, 10, S); end; \" Inc Inc(Var X[;N:Longint]); 将变量递增=S+1。但是运算速度比左式快。 longintvar:longint; begin inc(intvar);{intvar:=intvar+1} inc(longintvar,5);{longintvar:=longintvar+5} end; \" Include Include(Var S : set of T;I:T); 将一个元素加载到一个集合中。 tfontstyleproperty=class(tsetproperty) public procedure edit; override; \"varx:real; \"varintvar:integer; \"type end; … procedure tfontstyproperty.edit; var style:tfontstyles; begin style:=tfontstyles(byte(getordvalue)); if fsbold in style then exclude(style,fsbold) else \" IncMonth IncMonth(Const Date : TdateTime ; NumberOfMonths : Integer):TdateTime; 返回对于一个指定月份数的日期。 begin datetime:=incmonth(date();9); end; \" Initialize Initialize(Var V [; Count : Integer]); Application.Initialize; with TForm5.Create(nil) do try ProgressBar1.Max := 100; Show; Update; Application.CreateForm(TForm1, Form1); ProgressBar1.StepBy(25); Application.CreateForm(TForm2, Form2); ProgressBar1.StepBy(25); Applicati\" InputBox InputBox(Const Acaption , Aprompt , Adefault : String):String; 显示一个输入编辑对话框以方便用户可以输入一个字符串。 \"var inputstring:string; begin inputstring:=inputbox(„input box‟,‟prompt‟,‟default string‟); \" InputQuery InputQuery(Const Acaption , Aprompt : String ; Var Value : String):Boolean; 出一个输入对话框使用户可以输入一个字符串。 \"var newstring:string; clickedok:Boolean; begin newstring:=‟Default string‟; ledel1.caption:=newstring; clickedok:=inputquery(„input box‟,‟prompt‟,newstring); if clickedok then label1.caption:=‟the new string is‟+‟‟‟‟+newstring+‟‟\" Insert Insert (Source : String ; Var S :string ; Index : integer); 将某个字符串（S）插入的另一个字符串中（Source）。 \"var S: string; begin S := 'Honest Lincoln'; Insert('Abe ', S, 8);{ 'Honest Abe Lincoln' } end; \"var datetime:tdatetime; 初始化一个动态分配变量。 \"begin 弹 \" Int Int(X : Extended ):Extended; 返回实数的整数部分。 begin R := Int(123.456); { 123.0 } R := Int(-123.456); { -123.0 } end; \"varR: Real; \" IntPower IntPower(Base:Extended ; Exponent : Integer):Extended; 计算指数幂的基数。 \"var a:extended; begin a:=intpower(10E4,4); end; \" IntToHex IntToHex(Value:Integer;Digits:integer):String; 进制数。 var i: Integer; begin Label1.Caption := ''; for I := 1 to Length(Edit1.Text) do begin try Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + ' '; except Beep; end; end; end; \" IntToStr IntToStr(Value:Integer):String; TForm1.Button1Click(Sender: Tobject); begin try Label1.Caption := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text)); except ShowMessage('You must specify integer values. Please try again.'); end; end; \" IOResult IOResult:Integer; 返回文件输入/输出处理是否发生了错误。 F: file of Byte; begin if OpenDialog1.Execute then begin AssignFile(F, OpenDialog1.FileName); {$I-} Reset(F); {$I+} if IOResult = 0 then MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)), mtInformation, [mbOk], 0) else MessageDlg(' \" IsLeapYear IsLeapYear(Year : Word):Boolean; 说明一个指定的年是否是闰年。 \"var 将一个十进制数转换成为一个十六 \"procedure TForm1.Button1Click(Sender: Tobject); 将一个整数转换成为一个字符串 \"procedure \"function IsThisLeapYear: Boolean;varYr, Mnth, Day: Word; begin DecodeDate(Date, Yr, Mnth, Day); Result := IsLeapYear(Yr); end; \" IsPathDelimiter IsPathDelimiter(Const S : String ; Index :Integer):Boolean; 说明一个字符串的Index位置的字符是否是一个反斜杠字符。 \"var a:boolean; a:=ispathdelimiter(„c:\\windows\\system‟,3)//a=true \" IsValidIdent IsValidIdent(Const Ident : String):Boolean; 测试一个字符串是否是一个合法的Pascal字符 \"var s1:string //给S1赋字符值 ifisvalidident(s1) then dosomething else messagedlg(‘’,’非法字符’) \" Length Length (S): Integer; 返回参数字符串的长度。 \"var s:string begin s:=’Delphi 好 ’； showmessage(inttostr(length(s))); end; \" Ln Ln (X:Real):Real; 返回一个实数表达式的自然对数。 \"var e : real; S : string; begin e := Exp(1.0); Str(ln(e):3:2, S); S := 'e = ' + FloatToStr(e) + '; ln(e) = ' + S; Canvas.TextOut(10, 10, S); end; \" LnXp1 LnXp1(X: Extended):Extended; 返回（X+1）的自然对数。 \"var e : real; S : string; begin e := Exp(-1000); Str(lnxp1(e):3:2, S); S := 'e = ' + FloatToStr(e) + '; lnxp1(e) = ' + S; Canvas.TextOut(10, 10, S); end; \" Log2 a:real; Log2(X; Extended):Extended; 计算以2为底的对数值。 \"var begin a:=log2(8); //a=3 end; \" Log10 Log10(X; Extended):Extended; begin a:=log10(100); //a=2 end; \" LoginDialog LoginDialog(Const AdatebaseName : String ; Var AuserName: Apassword : string):Boolean; 引出数据库登录对话框，供使用者连接一个数据库服务器。 \"if a=logindialog(data_renshi,adim,12345) then flag:=0 \" LogN LogN(Base, X; Extended):Extended; 计算以N为底的对数。 \"var a :extended 计算以10为底的对数。 \"var a:real; begin a:=logn(4,16); //a=2 end; \" LowerCase begin Label1.Caption := LowerCase(Edit1.Text); end; \" MaxIntValue MaxIntValue(Const Date : array of integer):Integer; 的有符号值。 a:integer; begin a:=MaxIntValue(1..100); //a=100 end; \" MaxValue 号值。 \"var a:double; b:tarray; begin a:=maxvalue(b); end; \" Mean MaxValue(Const Date : array of Double):Double; 返回在Date数组中最大的有符 \"var LowerCase(Const S : string):String; 将所有的字符（参数）转换为小写的字母。 \"procedure TForm1.Button1Click(Sender: Tobject); 返回一个整数范围的最大 Mean(Const Data : array of Double):Extended; 返回一个数组中所有值的平均值。 \"vara:double; type Tdigits = array[1..10] of double; begin a:=mean(A: Tdigits); end \" MessageDlg MessageDlg(Const Msg : String ; Atype : TmsgDlgType;Abuttons:TmsgDlgButtons;HelpCtx:Longint):Word; 在屏幕的中心显示一个信息对话框 \"procedure TForm1.Button1Click(Sender: Tobject); begin if MessageDlg('Welcome to my Object Pascal application. Exit now ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg('Exiting the Object Pascal application.', mtInformation, [mbOk]\" MinIntValue MinIntValue(Const Date : array of Double):Integer; 返回一个整数数组中最小的有符号的数。 \"a:={2,3,4,-1,5}//a=-1 \" MinValue MinValue(Const Date : array of Double):Integer; 返回一个数组中最小的有符号的数。 \"a:={2.0,3.5,4,-1.5,5}//a=-1.5 \" MsecsToTimeStamp MsecsToTimeStamp(Msecs : Comp):TtimeStamp; 将一个毫秒转换 成为一个TtimeStamp值。参考：type ? TTimeStamp = record? Time: Integer; { Number of milliseconds since midnight }? Date: Integer; { One plus number of days since 1/1/0001 }? end; MkDir MkDir(S : String); 建立一个子目录，即创建一个新的子路径。 \"begin try mk(‘c:\\abc’) showmessage(‘目录建立成功’)； exceptshowmessage(‘目录未建立成功’)； end \" MoveFile MoveFile; c:\emp\est2.txt} \" MoveFileEx MoveFileEx; 移动文件（Windows NT 专用） \"略。 \" New New(Var P : Pointer); ^TListEntry; TListEntry = record Next: PListEntry; Text: string; Count: Integer; end; var List, P: PListEntry; begin … New(P); P^.Next := List; P^.Text := 'Hello world'; P^.Count := 1; List := P; 创建一个新的动态变量并且设置P指向它。 \"type PListEntry = 将指定文件移动到指定目录。 \"movefile(pchar(‘c:\est.txt’),pchar(‘c:temp\est2.text’));{将c:\ext.txt 移动到 … end; \" NewMenu NewMenu(Owner:Tcomponent ; Const Aname : String ;Items : array of TMenuItem)TmainMenu; 创建并初始化一个主菜单。 \"procedure TForm1.Button1Click(Sender: Tobject); begin Menu := NewMenu(Self, 'MyMenu', [NewItem('New item', TextToShortCut('Ctrl+N'),False, True, Action1.OnExecute, 0, 'Item1')]; end; \" NewPopupMenu NewPopupMenu(Owner:Tcomponent;ConstAnamestringment:TpopupAlignment;AutoPopup:Boolean;Items:array of Tmenuitem):TpopupMenu; 创建并初始化一个弹出式菜单。 \"procedure TForm1.Button1Click(Sender: Tobject); begin Menu := NewpopupMenu(Self, 'MyMenu', [NewItem('New TextToShortCut('Ctrl+N'),False, True, Action1.OnExecute, 0, 'Item1')]; end; item', \" NewStr NewStr(Const S : string):Pstring; 为字符串S申请一个副本，并返回指向该副本字符串的指针。当不需要该新申请的字符串时，需要使用disposestr例程将字符串占用的空间释放给堆空间。注意：不要改变newstr申请的字符串的长度，否则会引起内存操作错误。 \"var s1:string; s2:string; s2:=^newstr(s1); \" Now Now : TDateTime; 返回当前的日期时间。 Tobject); begin Label1.Caption := DateTimeToStr(Now); end; \" Odd Odd(X:Longint):Boolean; 检查一个数是否为奇数。 \"begin \"procedure TForm1.Button1Click(Sender: if Odd(5) then Canvas.TextOut(10, 10, '5 is odd.') else Canvas.TextOut(10, 10, 'Something is odd!'); end; \" ObjectBinaryToText ObjectBinaryToText(Input , Output : Tstrean); 将一个二进制的表达 式转换成为文本形式。 StrStream: TStringStream; s: string; begin \"function ComponentToString(Component: Tcomponent): string; var BinStream:TMemoryStream; BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(Comp\" ObjectBinaryToText ObjectBinaryToText(Input , Output : Tstrean); 将一个二进制的表达式转换成为文本形式。 \"function ComponentToString(Component: Tcomponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(Comp\" ObjectResourceToText ObjectResourceToText(Input , Output : Tstrean); 将一个对象资源的二进制表达式转换成为易懂的文本文件表达式。 \"function ComponentToString(Component: Tcomponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(Comp\" Ord Ord(X):Longint; 返回一个顺序类型的顺序值（从0开始）,其返回值类型是X类型的最小的整数值。该函数不能处理位整数。 \"uses Dialogs; type Colors = (RED,BLUE,GREEN); varS: string; begin S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10; S := S + 'The ASCII code for \"\"c\"\" is ' + IntToStr(Ord('c')) +' decimal'; MessageDlg(S, mtInformation, \" Pi Pi: Extended; 返回圆周率的值，所返回值精确到3.14159265357932385。 p:real; begin p:=pi; end; \" Pos Pos(Substr : String ; S : string):Integer 查询一个子字符串在字符串中的位置。参数substr和S均为字符类型的表达式。函数返回参数substr的第一个字母在参数S中的索引位置。该函数对大小写敏感，当子字符串未找到时，返回0。 \"var S: string; begin S := ' 123.5';{ Convert spaces to zeros } while Pos(' ', S) > 0 doS[Pos(' ', S)] := '0'; end; \"var \" RandG RandG(Mean ,StdDev : Extended):Extended; 使用高斯分布产生随机数。该函数对模拟错误取样及关于期望值的偏离比较有用。 \"varI:integer; Begin Randomize; For I:=1 to 10 do Canval.textout(10,(I-1)*30,floattostr(randg)) end; \" Randomize Integer; begin Randomize; for I := 1 to 50 do begin Canvas.TextOut(Random(Width), Random(Height), 'Boo!'); end; end; \" RadToCycle RadToCycle(Radians : Extended):Extended; 将弧度转换成为角度。（角度：=弧度/2Pi） \"a=radtocycle(1/3.14) \" ReadComponentRes ReadComponentRes(Const ResName : String ; Instance Tcomponent):Tpcomponent; 从一个指定的系统资源中读取主件和他的属性。 \"var I:integer; d1,d2:double; s1,s2:file; begin readcomponentres(s1,I); end; \" ReadComponentResFile ReadComponentResFile(Const FileName : String ; Instance : Tcomponent):Tcomponent; 从一个指定的系统资源文件中读取主件及其属性。 \"var I:integer; d1,d2:double; s1,s2:file; begin readcomponentresfile(s1,I); end; \" ReallocMem ReallocMem(Var P : Pointer ; Size : Integer); \"var GetMemCount: Integer; FreeMemCount: Integer; ReallocMemCount: Integer; OldMemMgr: TMemoryManager; : Randomize; 生成一个随机数种子。注意不要循环调用该函数。 \"var I: 再分配一个动态变量。 function NewGetMem(Size: Integer): Pointer; begin Inc(GetMemCount); Result := OldMemMgr.GetMem(Size); end; function NewFreeMem(P: Pointe\" Rect Rect(Aleft,Atop,Aright,Abotton: nteger):Trect; 从一个集合坐标创建一个矩形。参数分别为其左、上、右、下的坐标。 \"var TheRect: Trect; begin Form1.Canvas.TextRect(TheRect,10,10,'Hello, world!'); Form1.Canvas.Brush.Color := clBlack; Form1.Canvas.FrameRect(TheRect); end; \" ReWrite ReWrite(Var F : File[; Recsize : Word]); 创建并打开一个可擦写的文件。这里F可以是任何类型的文件变量。如果要创建的外部文件已经存在，则先将之删除再创建一个新的空文件。如果已存在的外部文件已经打开，则关闭后再删除。如果file参数为空，则F将指向一个标准输出文件。当该函数调用完毕后，指针将指向文件尾。 \"var F: TextFile; begin AssignFile(F, 'NEWFILE.$$$'); Rewrite(F); Writeln(F, 'Just created file with this text in it…'); CloseFile(F); end; \" ReSet ReSet(Var F : File[; Recsize : Word]); 打开一个只读文件。当所指的外部文件不存在或者不能以目前指定的模式打开，则将引发一个错误。如果参数file为空，则系统将指向一个标准输出文件。函数调用完毕后，指针指向文件开始处。 FileExists(FileName: string): Boolean; var F: file; begin {$I-} AssignFile(F, FileName); FileMode := 0; Reset(F); CloseFile(F); {$I+} FileExists := (IOResult = 0) and (FileName <> ''); end; begin if FileExists(ParamStr(1)\" Read Read(F,V1[,V2,„„..Vn]); 以（字）为单位读取文件的内容。对于类型文件，函数将文件写入一个变量。对于文本文件，函数将一个或更多个文件读入一个或更多个变量。 \"var \"function F1, F2: TextFile; Ch: Char; begin if OpenDialog1.Execute then begin AssignFile(F1, OpenDialog1.Filename); Reset(F1); if SaveDialog1.Execute then begin AssignFile(F2, SaveDialog1.Filename); Rewrite(F2); while not Eo \" ReadLn ReadLn([Var F : Text;]V1[,V2,„,Vn]); 以行为单位读取（Text File）文件。无参执行readln()将使当前文件指针指向下一个文件（如果存在的话），否则将指向文件的末尾。 \"var s : string; begin Write('Enter a line of text: '); Readln(s); Writeln('You typed: ',s); Writeln('Hit \" RemoveDir RemoveDir(Const Dir : String):Boolean; 删除一个存在的空目录。执行成功则返回真，否则返回假。注意所要删除的目录必须为空。 \"ses Dialogs; begin {$I-} RemoveDir(Edit1.Text); ifIOResult <> 0 then MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0) else MessageDlg('Directory removed', mtInformation, [mbOk], 0); end; \" Rename Rename(Var F ;Newname); 更改文件的名称。将参数F关联的文件更改为newname参数所指定的名称，然后将F再关联到新命名的文件。 \"var f:textfile; begin try assignfile(f,’c:\\fasf.bck’) rename(f,’c:\\fasf.bbb’) showmessage(‘更改成功’) except on einouterror do showmessage(‘无法更改’) end \" RenameFile RenameFile(Const OldName,NewName : String):Boolean; 更改文件的文件名。操作成功返回true，如果操作失败（比如新名指定的文件已经存在），则返回false。 \"procedure TForm1.Button1Click(Sender: Tobject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName :=\" Round Round(X : Extended ):Int; 将一个实数四舍五入转换为一个位整数。返回的整数应是离X最近的那个整数。如果恰好离两个整数相等的话，则总是返回偶数的那个。该算法被称为取整的“银行家算法”。如果返回值超过位整数所表示的范围，则将引发一个由EInvalidOp异常来处理的运行期错误。 S, T: string; begin Str(1.4:2:1, T); S := T + ' rounds to ' + IntToStr(Round(1.4)) + #13#10; Str(1.5:2:1, T); S := S + T + ' rounds to ' + IntToStr(Round(1.5)) + #13#10; Str(-1.4:2:1, T); S := S + T + ' rounds to ' + IntToStr(Round(-1.\" RmDir RmDir(S : String); 删除空的子目录。如果目录存在，或者非空，或者自身所处目录，则将引发一个错误。 \"uses Dialogs; begin {$I-} RmDir(Edit1.Text); ifIOResult <> 0 then MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0) \"var else MessageDlg('Directory removed', mtInformation, [mbOk], 0); end; \" RunError RunError[(Errorcode : Byte)]; 停止运行并产生一个运行时间错误。错误代码与运行期错误代码相同（0被忽略）。 \"begin {$IFDEF Debug} if P = nil then RunError(204); {$ENDIF} end; \" Seek Seek(Var F; N:Longint); 移动文件的文件标识。参数F所指文件必须为已打开状态。为扩展文件，可以将N参数设为超过F所指文件的最后标志。比如seek(F,filesize(F))将文件标志指向文件的末尾。 \"procedure TForm1.Button1Click(Sender: Tobject); var Stream1: TBlobStream; begin Table1.Edit; if Table1.State = dsEdit then begin Stream1 := Table1.CreateBlobStream(FieldByName('Notes', bmReadWrite); try Stream1.Seek(60, 0); Stream1.Truncate;\" SeekEOF SeekEOF[(Var F : Text)]:Boolean; 判断是否到一个文本文件的结束 ，忽略其中的空格符。是则返回真，否则返回假。该函数仅用于文本文件。 I, j, Y : Integer; begin AssignFile(f,'TEST.TXT'); Rewrite(f); Writeln(f,'1 2 3 4 '); Writeln(f,'5 6 7 8 '); Reset(f); Y := 5; while not SeekEof(f) do begin Read(f,j); Canvas.TextOut(5, \" SeekEoIn SeekEoIn[(Var F : Text)]:Boolean; 判断文件中某一行是否结束。该函数判断文件指针与一行末尾之间是否仅有空格。函数将文件指针向后移动，略过任何空格字符，直到行尾、文件尾或者接下来的任意非空字符。如果是行尾或者文件的末尾，则返回真，否则返回假。函数仅用于已经打开的文本文件。 \"array f : System.TextFile; I, j, Y : Integer; begin AssignFile(f,'TEST.TXT'); Rewrite(f); Writeln(f,'1 2 3 4 '); Writeln(f,'5 6 7 8 '); Reset(f); \"var f : System.TextFile; Y := 5; while not SeekEof(f) do begin if SeekEoln(f) then Readln; Read(f,j); Canvas.T\" SelectDirectory SelectDirectory(Var Directory : String ; Options : TselectDirOpen;HeleCtx:Longint):Boolean; 显示一个对话框，允许用户选择目录。注意当该函数分别用于linux和windows系统时，有些微的区别（具体参看delphi帮助）。而在大多数情况下二者是没有区别的，因为编译器会根据参数的数据类型自动进行匹配编译。 \"ses FileCtrl; 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; \" SetCurrentDir SetCurrentDir(Const Dir : String):Boolean; 设置当前的目录。成功改变当前目录时返回真值，否则返回假。 \"begin {$I-} setcurrentdir(Edit1.Text); if IOResult <> 0 then MessageDlg('Cannot find directory', mtWarning, [mbOk], 0); end; \" SetLength SetLength(Var S : String ; NewLength : Integer); 设置一个字符串变量的动态长度，这里S是一个字符或动态序列变量。 \"var s:string; begin setlength(s,20); end; \" SetMemoryManager SetMemoryManager(Const MemMgr : TMemoryManager); 设置内 存管理器的进入点。该函数将内存管理的三个函数通过参数形式集成到一个函数中。The GetMem, ReallocMem, and FreeMem 标准过程。 The New（新建） and Dispose（释放）标准过程。 Allocation and deallocation of objects through constructors and destructors.（通过 \"var GetMemCount: Integer; FreeMemCount: Integer; ReallocMemCount: Integer; OldMemMgr: TMemoryManager; function NewGetMem(Size: Integer): Pointer; begin Inc(GetMemCount); Result := OldMemMgr.GetMem(Size); end; function NewFreeMem(P: Pointe\" SetString SetString(Var S : string ; Buffer : Pchar ; len :integer) 设置给定的字符串的长度和内容。对于短字符型变量，len的值必须在0-255之间。对于长字符型变量，当参数buffer的值为空时，将返回一个未初始化的字符变量。 \"var s:string s1:pchar; begin {给s1赋值} setstring(s,s1,20) end; \" SetTextBuf SetTextBuf(Var F : Text ; Var Buf [; Size : Integer]); 将一个I/O缓冲器分配给 一个文本文件。 \"uses Dialogs; var F, Ftwo: System.TextFile; Ch: Char; Buf: array[1..4096] of Char; { 4K buffer } begin if OpenDialog1.Execute then begin AssignFile(F, OpenDialog1.FileName); System.SetTextBuf(F, Buf); Reset(F); AssignFile(Ftwo, 'WOOF.DOG\" ShortCut ShortCut(Key : Word ; Shift : TShiftState):TshortCut; 对一个指定的键盘组合创建一个菜单快捷方式。 \"OpenCommand.ShortCut := ShortCut(Word('O'), [ssCtrl]); \" ShortCutTo ShortCutTo(ShortCut : TShortCut): String; 将一个菜单快捷方式转换成为描述 这个快捷的字符串。 \"var TheKey: Word; TheShiftState: TShiftState; begin ShortCutToKey(CloseCommand.ShortCut, TheKey, TheShiftState); if TheShiftState = [ssCtrl] then CloseCommand.ShortCut := ShortCut(Word('C'), [ssShift]); end; \" ShowException ShowException(ExceptObject : Tobject : ExceptAddr : Pointer); 显示一个异常信息及其物理地址。可通过利用菜单Search | Find Error来查找该异常的类型。 \"procedure TForm1.FormCreate(Sender: Tobject); begin Application.OnException := AppException; end; procedure TForm1.AppException(Sender: Tobject; E: Exception); begin Application.ShowException(E); Application.Terminate; end; \" ShowMessge ShowMessge(Const Msg : String); 显示一个信息窗体和一个OK键。若想使用更多的按钮，请使用messagedlg()函数。另按Ctrl+C可将其信息复制到剪贴板。 \"procedure TForm1.Button1Click(Sender: Tobject); var buffer: array [0..255] of char; FileToFind: string; begin GetWindowsDirectory(buffer, SizeOf(buffer)); FileToFind := FileSearch(Edit1.Text, GetCurrentDir + '; ' + buffer); if FileToFind = ''\" ShowMessageFmt ShowMessageFmt(Const Msg : String ; Params : array of Const); [0..255] of char; FileToFind: string; begin GetWindowsDirectory(buffer, SizeOf(buffer)); 显示一 个信息框和一个格式化后的信息。按Ctrl+C可将其信息复制到剪贴板。 \"var buffer: array FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer); if FileToFind = '' then ShowMessagefmt('Couldn''t find ' + Edit1.Text \" Sin Sin(X : Extended ):Extended; 求正弦三角函数。参数为弧度制。返回一个实型数值。 \"var R: Extended; S: string; begin R := Sin(Pi); Str(R:5:3, S); Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S); end; \" SinCos SinCos(Theta : Extended ; Var Sin ,Cos : Extended):Register; 返回一个角度的正弦和余弦值。参数为弧度制。该函数相当于对一个角分别计算其正弦和余弦值。 \"请参照sin(x) \" Sinh Sinh(X : Extended):Extended; 参照sin(x) 返回一个角度的双曲正弦值。参数为弧度制。 \"请 \" SizeOf SizeOf(X):Integer; 返回被X 占据的字节数。 \"type CustRec = record Name: string[30]; Phone: string[14]; end; var P: ^CustRec; begin GetMem(P, SizeOf(CustRec)); Canvas.TextOut(10, 10, 'The size of the record is ' + IntToStr(SizeOf(CustRec))); FreeMem (P, SizeOf(CustRec)); end; \" SliceSlice(Var A :array ; Count :integer):Array; 返回一个数组的子部分。参数A可以指向其本身，且可以接收动态的数组作为参数。 \"type tpolygon=record numpoints:0..maxint; points:array[1..max_points] of tpoint; end; procedure drawpolygon(canvas:tcanvas; const polygon:tpolygon); begin canvas.polygon(slice(polygon.points,polygon.numpoints)); end; \" Sqr Sqr(X : Extended ):Extended; 求一个数的平方。此处参数类型为实型。 string; begin Str(Sqr(5.0):3:1, Temp); \"var S, Temp: S := '5 squared is ' + Temp + #13#10; Str(Sqrt(2.0):5:4, Temp); S := S + 'The square root of 2 is ' + Temp; MessageDlg(S, mtInformation, [mbOk], 0); end; \" Sqrt Sqrt(X : Extended ):Extended; Temp: string; begin Str(Sqr(5.0):3:1, Temp); S := '5 squared is ' + Temp + #13#10; Str(Sqrt(2.0):5:4, Temp); S := S + 'The square root of 2 is ' + Temp; MessageDlg(S, mtInformation, [mbOk], 0); end; \" Str Str(X[:Width [:Decimals]];Var S): 将数值转换指定格式的字符串。 y=2 var s; string; begin str(12345678.5678:w:d,s); showmessage(„‟‟‟+s=‟‟‟‟) end \" StrAlloc StrAlloc(Size : Cardinal):Pchar; 配置字符串内存。因为长字符串的隐含调及动态分配，该函数使用频率渐趋下降。 \"uses Sysutils; procedure TForm1.Button1Click(Sender: Tobject); var Temp: Pchar; begin Temp := Stralloc(1024); Application.MessageBox(Temp, 'StrNew, StrDispose Example', MB_OK); StrDispose(Temp); end; \" StrCat StrCat(Dest,Source : Pchar):Pchar; 将两个字符串相加成为一个字符串。 求一个数的算术平方根。此处参数为实型。 \"var S, \"const x=12; \"consts1:pchar=’delphi ’; s2:Pchar=‟ is good‟; var s:array[0.22]of char begin canvas.textout (10,10,strcat(s,s1)); canvas.textout(50,10,5) canvas.textout(10,30,strcat(s,s2)); canvas.textout(50,20,s) end; \" StrComp StrComp(Str1,Str2 : Pchar):Integer; 较）。 \"条件 返回 比较两个字符串的大小，（要分大小写的比 s1>s2 >0; s1 if x<0 then showmessage(„Delphi if x>0 thershowmessage(„Delphi=.delphi‟); else showmassage(„Delphi=delphi‟) end; \" StrCopy StrCopy(Dest,Source :pChar):Pchar; \"var 字符串拷贝。函数不进行长度检查，且目的区 域的大小不小于length(source)+1个字符。如果希望进行长度检查，请使用strlcopy()函数。 s:array[0..20]of char begin strlcopy(s,‟delphi is good1‟,sizeof(s)) showmessage(s); end; \" StrDispose StrDispose(Str : Pchar); 释放一个字符串。该函数仅为保持向下兼容。如果参数为空，则函数不做任何事情。 \"var s:pchar; ps:pchar; begin s:=‟dpple‟ ps:=strnew9s); showmessage(string(s)); strdispose(ps); end \" StrECpoy StrECpoy(Dest,Source : Pchar):Pchar; 字符串拷贝并返回字符串结束位置。函数不进行长度检查。嵌套使用该函数时，比多次使用函数strcat效率要高。 \"uses SysUtils; const Turbo: Pchar = 'Object'; Pascal: Pchar = 'Pascal'; var S: array[0..15] of Char; begin StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal); Canvas.TextOut(10, 10, string(S)); end; \" StrEnd StrEnd(Str : Pchar):Pchar; 返回字符串结束的位置。指针最后指向空字符处。 \"const s:pchar=’delphi is good!!’ begin showmessage(‘这个字符串长度为:’+inttostr(strend(s)-s)) end \" StrFmt StrFmt(Buff,Format:Pchar;Const Args : Array of Const):Pchar; 对一个数组的变元进行格式化。函数格式化变元数组args中的变量，使用函数给定的格式化字符串进行格式化。关于格式化字符串，请参考FORMAT例程。 \"procedure TForm1.Table1AfterDelete(DataSet: TDataSet); begin StatusBar1.SimpleText := [DataSet.RecordCount]); end; strfmt('There are now %d records in the table', \" StrIComp StrIComp(S1,S2 : String):Integer; 比较两个字符串的大小，（不分大小写的比较）。比较结果与strcomp函数相同。 \"uses SysUtils; procedure TForm1.Button1Click(Sender: Tobject); var Msg: string; CompResult: Integer; begin Msg := Edit1.Text; CompResult:=StrIComp(Pchar(Edit1.Text), Pchar(Edit2.Text)); ifCompResult < 0 then Msg := Msg + ' is less than ' \" StringOfChar StringOfChar(Ch:Char ;Count : Integer):String; 返回一个由count个ch字符组成的字符串。如果count<0则返回一个空字符串。 \"S := StringOfChar('A', 10); sets S to the string 'AAAAAAAAAA'. \" StrLCat StrLCat(Dest,Source : Pchar ; MaxLen : Cardinal):Pchar; 将source中前最多maxlen-strlen(dest)个字符拼接到dest中，并返回dest。可以使用sizeof函数来maxlen的值。 \"consts1:pchar=’delphi ’; s2:pchar=‟ is good!‟; var s:array[0..22]of char; begin canvas.textout(10,10,strlcat(s,s1,sizeof(s))); canvas.textout(200,10,s); canvas.textout(10,30,strlcat(s,s2,sizeof(s))); canvas.textout(200,30,s); canvas.te\" StrLComp StrLComp(Str1,Str2:Pchar;MaxLen:Cardinal):Integer; 指定长度比较两个字符串的大小，（要分大小写）。比较结果与strcomp函数相同。 \"uses SysUtils; const S1: Pchar = 'Enterprise' S2: Pchar = 'Enter' var ComStr: string; begin if StrLComp(S1, S2, 5) = 0 then ComStr := 'equal' else ComStr := 'different'; Canvas.TextOut(10, 10, 'The first five characters are ' + ComStr); end; \" StrLCopy StrLCopy(Dest ,Source : Pchar ; MaxLen : Cardinal):Pchar;函数从source字符串中最多复制maxlen个字符到dest中，返回dest。 \"var x:pchar; begin x:=’delphi 好 ’; showmessage(inttostr(strlen(x))); end; \" StrLen end; \" StrDisStrLIComp StrDisStrLIComp(Str1,Str2 :Pchar ;MaxLen :Cardinals):Integer; 指定长度比较两个字符串的大小，比较前maxlen个字符（不分大小写）。结果与函数strcomp相同，可参阅该函数。 \"uses SysUtils; const S1: Pchar = 'Enterprise' S2: Pchar = 'Enter' var ComStr: string; begin if StrLIComp(S1, S2, 5) = 0 then ComStr := 'equal' else ComStr := 'different'; Canvas.TextOut(10, 10, 'The first five characters are ' + ComStr); end; \" StrLower StrLower(Str : Pchar):Pchar; 将str字符转换为小写的字母，并返回str。 \"uses SysUtils; const S: Pchar = 'A fUnNy StRiNg' begin Canvas.TextOut(5,10,string(StrLower(S)) + ' ' + string(StrUpper(S))); end; \" StrMove StrMove(Dest,Source:Pchar ;Count : Cardinal):Pchar; 函数从source中复制count个字符到dest中，source与dest可以覆盖。 \"var s1:pchar; s:array[0..20]of char; begin s1:=‟delphi I good!‟ strmov(s,s1,6); showmessage(„s=‟+s+‟,s1=‟+s1); end; \" StrNew StrNew(Str : Pchar):Pchar; 函数在堆中申请字符串str的一个副本，如果str为nil StrLen(Str : Pchar):Cardinal; 返回参数str字符的字符数，不包括null结束符。 \"var s:array[0..20]of char begin strlcopy(s,‟delphi is good1‟) showmessage(s); 或指向一个空字符串，strnew不从堆中申请任何空间并返回nil，否则strnew建立str字符串的一个副本，并返回一个指向该副本字符串的指针。如果申请成功，strnew函数将从堆中申请strlen(str)+3个字节空间。 var Temp: Pchar; begin Temp := StrNew(Pchar(Edit1.Text)); Application.MessageBox(Temp, 'StrNew, StrDispose Example', MB_OK); StrDispose(Temp); end; \" StrPas \"uses Sysutils; procedure TForm1.Button1Click(Sender: Tobject); StrPas(Str:Pchar):String; 将以0结束（null结束）的字符串str转换成pascal格式的 字符串。 \"var s1:pchar; s2:pchar; begin s1:=‟delphi ‟; s2:=straps(s1); showmessage(s2); end; \" StrPCopy StrPCopy(Dest : Pchar;Const Source: String):Pchar; 该函数将pascal格式字符串source复制到0结束的字符串dest中，strpcopy函数不进行长度检查，dest中至少需要包含length(source)+1个字符空间。 \"var sarray[0.20]of char s1; string; begin s1‟:=‟delphi is good!‟ strPCopy(s,s1); showmessage(s); end; \" StrPLCopy StrPLCopy(Dest :Pchar; Const Source :String;MaxLen:Cardinal):Pchar; 该函数 拷贝maxlen长度的pascal字符串source到dest字符串中，函数最后返回一个指向dest的指针。 \"var s:array[0.20]of char s1:string begin s1:=‟delphi is good! ‟ strplcopy(s,s1,6); showmessage(s); end; \" StrPos StrPos(Str1,Str2:Pchar):Pchar; 函数返回str2在str1中第一次出现的位置，如果查找不到则返回nil。 \"const s1:pchar=’delphi is good!’ s2:phar=’is’ var returnpoint:=strops(s1,s2); if returnpoint=nil then showmessage(‘找不到指定的字符串；’+s2) else showmessage(s2=’字符串出现在第’+inttostr(retumpoint)=‘个字’) \" StrRScan StrRScan(Str : Pchar ; Chr : Char):PCHar; 查找一个子字符串chr在字符串str中的最后一次出现的位置，并返回其位置指针。如果str中不包含字符chr，则函数返回nil。 \"const s1:pchar=’delphi is good!!’ s2:pchar=’I’; var x:Pchar; begin x:=strscan(s1,s2); showmessage(‘最后一个’+s2+’出现在第’+inttostr(x-s1 )+’个字’) end; \" StrScan StrScan(Str : Pchar; Chr : Char):Pchar; 查找一个子字符串chr在字符串str中的首次出现的位置指针，找不到则返回nil。 s2:char= Var X:char; Begin X:=strscan(s1,s2); If x=nil then Showmessage(‘找不到指定的字符串：’+s2) Else Showmessage(s2+’字符串出现在第’+inttostr(x)+’个字’) end; \" StrToCurr StrToCurr(Const S : string):Currency; 字符串Ｓ转换成为Currency类型数。字 \"var x:currency; \"consts1:pchar; 符串具有如下格式：[+|-]nnn„[.][<+|-> x:=strtocurr(„414.1431„); showmessage(floattostr(mycurrency)); \" StrToDate StrToDate(Const S : string):TDateTime; 将字符串转换为TDateTime类型的日期。Ｓ必须包含一个合法的格式日期的字符串。字符串Ｓ至少包含由DateSeparator全局变量定义的字符分隔的两个或三个数字，表示年、月或日，年月日的顺序由ShortDateFormat全局变量定义，其可能的顺序为月／日／年、日／月／年或年／月／日。如 \"var x:TdateTime; begin x:=strtotime(edit.text); showmessage(timetostr(x)); end; \" StrToDateTime StrToDateTime(Const S :string):TDateTime; 将字符串Ｓ转换为日期时间格式。Ｓ必须具有MM/DD/YYHH:MM:SS[AM|PM]格式，基中日期和时间分隔符与系统日期时间常量设置相关。如果未指定ＡＭ或ＰＭ信息，表示使用２４小时制。 \"var x:TdateTime; begin x:=strtodatetime(edit.text); showmessage(datetimetostr(x)); end; \" StrToFloat StrToFloat(Const S : string):Extrnded; 将给定的字符串Ｓ转换为浮点数。Ｓ具有 如下格式：[+|-]nnn„[.][<+|-> 际字符与DecimalSeparator全局变量定义相关，数值中不能包含货币符号和数据千分符。如果字符串Ｓ不能转成一个数值，则将引发一个EConvertError 异 \"var x:real; begin x:=strtofloat(„132.423‟) showmessage(floattostr(x)); end; \" StrToInt StrToInt(Sender : Tobject); 将字符串转换为整数类型，即：以数字的形式显示每一个字符。字符串可以是十进制或十六进制格式，如果字符串不是一个合法的数字字符串，系统发生ECovertError异常。 \"var x:integer; begin try x:=StrToInt(Edit1.Text) excepton myerror : EconverError do showmessage(‘异常的ClassName是’+MyError.className+#10#13+’异常的Massage是’+myError.Message) end; \" StrToIntDef StrToIntDef(Const S :string ; Default : integer):Integer; 值（参数：Default）。 \"varX:integer; Begin X:=StrToIntdef(Edit1.text,1999) Edit2.Text:=IntTostr(x); end; \" StrToInt StrToInt(Const S :string):Int; 将字符串转换为位整数类型，即：以数字 将字符串转换为整数 类型，即：以数字的形式显示每一个字符。但是如果在转换时有错误产生则返回一个缺省的 的形式显示每一个字符。字符串可以是十进制或十六进制格式，如果字符串不是一个合法的数字字符串，系统发生ECovertError异常。 \"procedure TForm1.Button1Click(Sender: Tobject); var I: Integer; J: Integer; begin I := StrToInt(Edit1.Text); J := StrToInt(Edit2.Text); ShowMessage(IntToStr(I + J)); end; \" StrToIntDef StrToIntDef(Const S : string ; Default : int):Int; 将字符串转换为Int整数类型，当有错误产生则返回一个缺省的值。 \"procedure TForm1.Button1Click(Sender: Tobject); var Number: Integer; begin Number := StrToIntDef(Edit1.Text, 1000); Edit2.Text := IntToStr(Number); end; \" StrToTime StrToTime(Const S : string):TDateTime; 将字符串转换为TDateTime类型的 时间。S具有HH:MM:SS[AM|PM]格式，实际的格式与系统的时间相关的全局变量有关，如果转换错误，系统发生EConvertError异常。 \"procedure TForm1.Button1Click(Sender: Tobject); var Atime: TDateTime; begin Atime := StrToTime(Edit1.Text); if Atime < 0.50 then ShowMessage('Good Morning') else ShowMessage('Good Afternoon'); end; \" StrUpper StrUpper(Str:Pchar):Pchar; 将所有的字符（参数）转换为大写的字母，并返回str。 \"var x:Pchar; begin x:=‟delphi is good‟; showmessage(StrUpper(x)); {DELPHU IS GOOD} end; \" SumInt SumInt(Const Date : array of Integer):Integer; \"var a[0..10]:array; sum:integer; begin a[0..10]:={0,1,2,3,4,5,6,7,8,9,10}; sum:=sumint(a); end; \" SumOfSquares sum:integer; begin a[0..10]:={0,1,2,3,4,5,6,7,8,9,10}; sum:=sumofsquares(a); end; \" SysErrorMessage SysErrorMessage(ErrorCode : Integer):String; 换成为字符串。 \"vars:string; error:integer; begin error:=icerror; s:=syserrormessage(error); end; \" SysFreeMem SysFreeMem(P:Pointer):Integer; 释放由指定指针所指向的内存。 \"function guardsareokay(parray:pintegerarray; fill:Boolean):Boolean; const delphiinuseflag=2; memmgrflags=7; var size:longword; begin parray:=pintegerarray(pchar(parray)-sizeof(size)); if (size and delphiinuseflag)<>delphiinuseflag then begin \" 将WIN32 API错误代码转 返回一个数组的元素总和。 SumOfSquares(Const Date : array of Double):Extended; 返回一个数组的 总和与平方和。 \"var a[0..10]:array; TextToFloat TextToFloat(Buffer : Pchar ;Var Value ;ValueType :TFloatValue):Boolean; 将字符串转换为一个浮点数。结果返回到（Var）中。转换不成功，表示buffer不是一个合法的浮点数。参阅strtofloat函数。 \"var x:Pchar; y:=string; begin x:=‟3463‟; texttofloat(x,y,fvextended); showmessage(y) end \" TrimTrim(Const S :string):String; 清空字符串前后的空格只留下一个纯粹的字符串。 \"var s:string; m:single; begin m:=213E4; s:=trim(str(m)); end; \" TrimLeft TrimLeft(Const S : string):String; 空字符串左边的空格。 m:single; begin m:=213E4; s:=trimleft(str(m)); end; \" TrimRight TrimRight(Const S : string):String; m:single; begin m:=213E4; s:=trimright(str(m)); end; \" Trunc Trunc(X : Extended ):Int; 将实数的小数部分舍去使之成为一个整数。函数返回值为位整数，如超出位整数表示范围，则引发一个EInvalidOp异常。 \"var S, T: string; begin Str(1.4:2:1, T); S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10; Str(1.5:2:1, T); S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10; Str(-1.4:2:1, T); S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)\" UpCase UpCase(Ch:Char):Char; 将字符串Ch转换成为大写的字符。 \"var x:Pcar; y:integer; \"var s:string; 清空字符串右边的空格。 \"var s:string; begin x:=‟Delphi is good‟; for y:=1 to length(x) do x[y]:=UpCase(x); showmesage(an\\\\Ansiuppercase(x)); {DELPHI IS GOOD} end; \" UpperCase UpperCase(Const S :string):String 将所有的字符（参数）转换为大写并返回。 \"var x:string; begin x:=‟Delphi is goog!!‟; showmessage(UpperCase(x)); {DELPHI IS GOOD} end; \" Val Val (S ; Var V ; Var Code : integer); 将字符串换为数字S为合法的数字字符串，V为整 数或实型变量，如果字符串为非法的数字字符串，不能正确转换的字符的索引值存储在Code变量中，如果转换正常，其值为0，转换结果存放在参数Ｖ中。对于以0结束的字符串，存放在Code中的出错位置索引值比真正出错的位置值大１。 \"var I,code:integer; Begin Val(edit1.text,I,code); If code<>0 then Showmessage(‘转换错误发身在第’+inttostr(code)+’个位’) Else Showmessage(‘转换结果为’+inttostr(I)); end \" VarArrayCreate VarArrayCreate(Const Bounds: array of inteher ; VarType: Integer):Variant; 该函数用来创建一个Variant 数组。第一个参数用来表示数组的维数，以及每一维中的界限。第二个参数用来表示数组中元素的variant类型。数组每一维的界限由一对整数来限定：即这一维中的下限和上限。每一个数组最多可以有６４维。如果试图建立一个无效的数组，会引发一个运行期 \"var A: Variant; begin A := VarArrayCreate([0, 4], varVariant); A[0] := 1; A[1] := 1234.5678; A[2] := 'Hello world'; A[3] := True; A[4] := VarArrayOf([1, 10, 100, 1000]); WriteLn(A[2]); WriteLn(A[4][2]); end; \" VarArrayDimCount VarArrayDimCount(Const A: Variant):Integer; 如果数组不是variant类型，函数返回0。 \"var v:variant; begin 返回 Variant 数组的维数。 v:=vararraycreate([1,12],vardouble); writeln(vararraydimcount(v));//输出1 end; \" VarArrayOf VarArrayOf(Const Value : array of Variant):Variant; 建立一个一维的Variant array。 \"var A: Variant; begin A := VarArrayCreate([0, 4], varVariant); A[0] := 1; A[1] := 1234.5678; A[2] := 'Hello world'; A[3] := True; A[4] := VarArrayOf([1, 10, 100, 1000]); WriteLn(A[2]); WriteLn(A[4][2]); end; \" VarClear VarClear(Var V : Variant); 调用该函数相当于给变量赋一个unassigned variantw值，它可以不是一个variant或OLEvarinat，但必须可以被赋值。执行该函数后，变量V的类型为varempty，如果在表达式中引用该变量将引发一个EVariantError异常。注意：不要将给变量赋一个unassigned variant和给变量赋一个null \"varclear(v); v:=unassigned; \" VarCopy VarCopy(Var Dest : Variant ; Const Source :Variant); 复制一个dest参数，并把source参数复制给它。它不是一个真正的过程。注：语句dest:=source结束时调用varcopy过程，但赋值语句有时效率更高一些。如果dest参数是一个OleVariant变量，而source参数是一个varstring类型的variant变量，varcopy过程会自动把它的类型转换成varOles \"var A: Variant; B：variant; begin A := VarArrayCreate([0, 4], varVariant); A[0] := 1; A[1] := 1234.5678; A[2] := 'Hello world'; A[3] := True; A[4] := VarArrayOf([1, 10, 100, 1000]); b:=varcopy(b,a); WriteLn(A[2]); { Hello world } Write\" VarIsArray VarIsArray(Const V : Variant):Boolean; 判断variant V是否是一个数组，是则返回True,否则返回False。一个Variant变量数组会在它的varType中设置varArray位。 \"function sum(const v:variant):variant; var I:integer; begin if varisarray(v) then begin result:=0.0; assert(vararraydimcount(v)=1); for I:=vararraylowbound(v,1) to vararrayhighbound(v,1) do result:=result+v[I]; end else result:=v+0.0 end; \" VarIsEmpty VarIsEmpty(Const V : Variant):Boolean; variant变量的初始类型是varEmpty。 begin 返回Variant 是否为空的。一个 \"function getdate(v:variant):tdatetime; if varisempty(v) or varisnull(v) then result:=now else result:=vartodatetime(v); end; \" VarIsNull VarIsNull(Const V : Variant):Boolean; 返回Variant V是否为Null. \"function getdate(v:variant):tdatetime; begin if varisempty(v) or varisnull(v) then result:=now else result:=vartodatetime(v); end; \" VarToDateTime begin b:=s; result:=vartodatetime(v); end; \" VarType VarType(Const V : Variant):Integer; 返回Variant V的类型码。类型码决定了variant值的实际数据类型，以及variant值是一个数组还是一个引用。 \"var v:variant; begin b:=s; result:=vartype(v); end; \" Write Write([Var F:Text;]P1[,P2,„..Pn]); 该函数向一个文件写入文本或其他值。写入一个TextFile时，可以写入字符串、数字、字符和布尔值。注意：如果文件没打开，或者没打开并指定为可写，该过程为报告I/O错误。如果第一个参数中没有文件被指定，过程会输出到文本文件output中。 \"var F1, F2: TextFile; Ch: Char; begin if OpenDialog1.Execute then begin AssignFile(F1, OpenDialog1.Filename); Reset(F1); if SaveDialog1.Execute then begin AssignFile(F2, SaveDialog1.Filename); Rewrite(F2); VarToDateTime(Const V : Variant : TDateTime); 将Variant 转换为 TdateTime 变量。如果不能转换，则引发一个运行期错误EvariantError。 \"var v:variant; while not Eof(F1) do begin Re\" WriteL WriteL([Var F : Text;]V1[,V2,„,Vn]); 以行为单位写入（Text File）文件即在每写入所有参数后会在最后加入一个行结束符号一个行结束符号包括一个回车符和一个换行符（#13#10）。如果没有参数或仅仅是一个textfile参数，writeln过程将仅仅写入一个行结束符号。 \"var s : string; begin Write('Enter a line of text: '); Readln(s); Writeln('You typed: ',s); Writeln('Hit begin \" \"procedure 因篇幅问题不能全部显示，请点此查看更多更全内容
Copyright © 2019- sceh.cn 版权所有 湘ICP备2023017654号-4
违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务