delphi 常用.doc

AddrAddr(x):Pointer该函数返回一个变量或子程序的地址。（即指针，与运算符等价）。var x:Pointer;beginx:=Addr(x);现指向它自己 end;AnsiCompareFileNameAnsiCompareFileName(Const S1,S2 : String):Integer基于当前地区的特征比较两个文件名。条件 返回 s1s2 0 s1s2 s2 0 s1s2 0 s1=s2 =0var s1,s2:string;begins1:=Delphi;s2:=delphi;if ansicomparstr(s1,s2)0 thenshowmessage(大小写被认为不同！)AnsiCompareTextAnsiCompareText(Const S1,S2 : string):Integer;比较两个字符串的大小，（不分大小写的比较）。例如 条件 返回? s1s2 0 ?s1s2 0 ?s1=s2 =0const s1;string=Delphi; s2:string=(delphi); var x:integer; begin x:=strcomp(s1,s2); if x0 then showmessage(Delphi0 then showmessage(Delphidelphi) else showmessage(Delphis2 0?s1s2 0?s1=s2 =0vara:integer; b:integer; begina:=ansistrcomp(ABC,Abc)/a0b:=ansistrcomp(ABC,ABD)/bs2 0 ?s1s2 0 ?s1=s2 =0vara:integer; b:integer; begina:=ansistrcomp(ABC,Abc)/a=0b:=ansistrcomp(ABC,ABD)/bs2 0 ?s1s2 0b:=ansistrcomp(ABC,ABD,2)/b=0endAnsiStrLICompAnsiStrLIComp(S1,S2:Pchar ; M : Cardinal):Integer;比较字符串序列前M个字节的大小，大小写不区分比较依据如下： 条件 返回? s1s2 0? s1s2 0? s1=s2 =0vara:integer; begina:=ansistrcomp(ABCd,ABcD,3)/b=0endAnsiStrLowerAnsiStrLower(Str :Pchar):Pchar;将参数字符串中的字母均转为小写，该字符串必须以nil结束。var x:=string;begins:=ABCDE;showmessage(s);abcde end;AnsiStrPosAnsiStrPos(Str1,Str2:Pchar):Pchar;返回一指向在Str1中Str2首次出现位置的指针。Varx:pchar;y:string;Beginy:=Application x:=ansiStrPos(y,o)现在就指向”o”的地址 End;AnsiStrPosAnsiStrPos(Str : Pchar ; Chr : Char):Pchar;返回一指向在字符串Str中字符串Chr最后出现位置的指针。Var x:pchar;y:string;Beginy:=Application x:=ansiStrPos(y,a)End;AnsiUpperCaseAnsiUpperCase(Const S :string):String;将所有的字符（参数）转换为大写的字母。var x:string;beginx:=application;showmessage(x); APPLICATION end;AppendAppend(Var F : Text)打开可Append的文本文件。var f:textfile begin if opendialog1.execute then beginassignfile(f,opendialog1.filename); append(f); writeln(f); end end;AppendStrAppendStr(Var Dest : String; Const S : string);添加一个动态分配的字符串到一个现存的字符串中。var f: TextFile;begin if OpenDialog1.Execute thenbegin 打开一个文件 AssignFile(f, OpenDialog1.FileName);Append(f);Writeln(f, appending some stuff to the end of the file.);Flush(f); 确保文件追加成功 CloseFile(f);end;ArcCosArcCos(X : Extended):Extended;计算给定角的反余弦值。返回值的类型相同。var x:extended;y:extended;z:extended;beginx:=ArcosTan(Pi);end;ArcSinArcSin(X : Extended):Extended;计算给定角的反双曲余弦值。var x:extended;y:extended;z:extended;beginx:=ArcsinTan(Pi);end;ArcSinhArcSinh(X : Extended):Extended;计算给定数的反双曲正弦值。var x:extended;y:extended;z:extended;beginx:=ArcosTan(Pi);end;ArcTanArcTan(X : Extended ):Extended;以弧度值返回给定数的反正切值。varx:extended;begin x:=ArcTan(Pi);end;ArcTan2ArcTan2(X : Extended ):Extended;以角度数返回给定数的反正切函数值。varx:extended;begin x:=ArcTan2(Pi);end;ArcTanhArcTanh(X : Extended):Extended;以弧度数返回给定角的双曲反正切函数值。varx:extended;begin x:=ArcTanh(Pi);end;AssertAssert(Expr : Boolean ; Const Msg : string);检查一个布尔表达式是否正确。var x:Boolean;beginx:=true;经过一系列赋值 showmessage(Assert(x);end;AssignFileAssignFile(Var F ; FileName : String);为文件变量指定一个文件名使一个外部文件名与一个文件变量相连接。varf:textFile;s:string;beginif opendialog1.excute thenbegin AssignFile(F,openDialog1.filename);在框内选择文件 Reset(F); Readin(f,s);读文件的第一行 Edit1.text:=s; Closefile(f);end;end;AssignPrnAssignPrn(Var F : Text);将一个文本文件变量分配给指针变量。varmyfile:textfile;begin assignprn(myfile); rewrite(myfile); writeln(myfile,application)system.closefile(myfile);endBeepBeep ;使计算机发出一个标准的（嘟）声。procedure TForm1.Button1Click(Sender: Tobject); begin beep; end;BlockReadBlockRead(Var F; File ;Var Buf ;Const :Integer; Var AmtTransferred:Integer)从一个打开的文件中读取一个或多个记录到一个变量中。varFromF, ToF: file;NumRead, NumWritten: Integer;Buf: array1.2048 of Char;begin if OpenDialog1.Execute thenbeginAssignFile(FromF, OpenDialog1.FileName);Reset(FromF, 1); Record size = 1 if SaveDialog1.Execute thenBlockWriteBlockWrite(Var F; File ;Var Buf ;Const :Integer; Var AmtTransferred:Integer)从一个变量写入一个或多个记录到一个打开的文件中。varFromF, ToF: file;NumRead, NumWritten: Integer;Buf: array1.2048 of Char;begin if OpenDialog1.Execute thenbeginAssignFile(FromF, OpenDialog1.FileName);Reset(FromF, 1); Record size = 1 if SaveDialog1.Execute thenBoundsBounds(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; ActiveByteToCharIndexByteToCharIndex(Const S : string ; Index : integer):Integer返回在一个字符串中指定字符的位置（不重复）。var x:integerbegin x=bytetocharindex(“string”,73); x=4end;ByteToCharLenByteToCharLen(Const S : string ; M :integer):Integer;返回在一个字符串中头M个字节中占据的字符数。varx:integerbegin x=bytetocharindex(string,3);end;ByteTypeByteType(Const S : string ; Index : integer):TmbcsByteType;说明一个字符串中一个字节是否为一个单字节字符，是否为一个双字节字符的第一个字节，或是否为双字节字符的第二个字节。vart:tmbcsbytetype;begin t:=bytetype(abc,3);end;CallTerminateProceCallTerminateProce:Boolean;调用在程序结束任务列表的所有的函数。该程序仅当所以函数结束返回真时为真，且仅供DELPHI系统调用，用户请不要直接调用。begin if callterminateprocs then dosomething;可以关闭系统等end;CancelDragCancelDrag ;删除在例程中的一个拖拉操作。begin if not checkbox1.check then canceldrag;end;CeilCeil(X:Extended):Integer;返回一个不小于变量值的最小整数。ceil(-2.8)=-2 ceil(2.8)=3ceil(-1.0)=-1CloseFileCloseFile(Var F);关闭一个指定文件。var F: TextFile; S: string;begin if OpenDialog1.Execute then 显示打开对话框 begin AssignFile(F, OpenDialog1.FileName); 选中对话框中的文件 Reset(F); Readln(F, S); 读取文件的第一行 Edit1.Text := S; 将一个字符串赋给edit1.text CloseChangeFileExtChangeFileExt(Const FileName , Extension : String):String;改变文件的扩展名。extended string参数传递新的扩展名。该函数并不修改原来的文件的名字，而是生成一个新的字符串。var s:string begins:= ChangeFileExt(OpenDialog1.FileName,.BMP);endCharToByteIndexCharToByteIndex(Const S : string ; Index :integer):Integer;返回一个字符串中被指定位字符第一个位元组的索引。若在第一个位置则返回1，第二个位置则返回2，依次类推。当index 参数的值超出范围（index0或index大于该字符串的长度）时，函数返回0。而当系统不采用多位系统时，函数返回值等于index本身，因为此时字符和位是一一对应关var I:integer;Begin I:=chartobyteindex(string,4); end;CharToByteLenCharToByteLen(Const S : string : M :integer):Integer;返回一个字符串头M个字符的位组长度。当M的值大于S的长度时，函数返回S的长度。若采用多字节系统，则返回它们中较小的值。var I:integer;Begin I:=chartobytelen(string,2);end;ChDirChDir(S : String);将当前目录更改为S参数指定的目录。注意：当编译开关$I+打开时，运行期错误由异常处理机制处理；当该开关为 $I-时, 用IOResult函数来检查I/O errors。begin chdir(edit1.text); ifioresult0 thenmessagedlg(connot find directory,mtwarning,mbok,0);end;ChrChr(X:Byte):Char;取得一个字符的ASCII码。canvas.textout(10,10,chr(65)返回字母A;CloseClose(Var F : File);结束文件变量和一个外部文件的关联。该函数是为了保持对现存的PASCAL代码的兼容。如果在DELPHI中或者KYLIX中写程序，建议使用CLOSEFILE（）函数。begin if opendialog1.execute thenbeginassignfile(f,opendialog1.filename);reset(f);edit1.text:=inttostr(filesize(f) close(f); end; end;CloseFileCloseFile(Var F : File)结束文件变量和一个外部磁盘文件的关联。该函数释放由Reset, Rewrite 或Append打开的任何类型的文件，该变量将被彻底更新和释放，以供其它文件使用。begin if opendialog1.execute thenbeginassignfile(f,opendialog1.filename);reset(f);edit1.text:=inttostr(filesize(f) closefile(f); end;end;CollectionsEqualCollectionsEqual(C1,C2:Tcollection):Boolean;比较两个集合的内容。仅当两个集合中的元素内容、数量、位置都一致时，函数才返回真。其中tcollection代表这两个集合的父组件，如窗体，数据模块等。var set1,set2:set of 1.10;set1=1,3,6,9;set2=1.3,5,8;beginifcollectionsequal(set1,set2) then label1.caption:=”equation!” elselabel1.caption:=”not equation!”; endifend;CompareTextCompareText(Const S1,S2 : String):Integer;比较两个字符串的大小，（不分大小写的比较）。相等时返回0，S1S2时返回1，否则返回-1。var string1,string2:string; I:integer; Begin String1:+ABC; String2:=aaa; I:=comparestr(string1,string2); If I0 then Showmessage(then string are not equal) end;CompareStrCompareStr(Const S1,S2 : string):Integer;比较两个字符串的大小，（要分大小写的比较）。用法同上。var s1,s2:string; I:integer; Beging S1:=STEVE; S2:=STEVe; I:=comparestr(s1,s2); If I0 then Showmessage(STEVE+STEVe);end;ConcatConcat(S1,S2,.,Sn:String):String;将两个或两个以上的字符串相加成为一个字符串。varS: string; beginS := Concat(ABC, DEF); ABCDEF end;CopyCopy(S; Index,Count:Integer):String;复制字符串。函数返回从Sindex开始的一个子字符串或子序列。如果index大于字符串S的长度，则返回一个空字符串；如果count指定的字符串长于S的有效长度时，仅返回从Sindex到结束处的字符串或序列var s:string; begin s:=delphi is good! s:=copy(s,1,6); showmessage(s); endCopyFileToCopyFileTo(const Source: string; const Destination: string): Boolean;复制文件。文件复制成功时返回真，否则返回假，当目标文件存在时也返回假。该函数通过调用系统API函数来实现。如在WIN32API中调用copyfile,在Linux下通过调用Tfiletream的例程来创建目标文件。copyfileto(pchar(c:autoexec.bat),pchar(c:test.txt);CosCos(X : Extended ):Extended;求余弦三角函数。var r:extended;begin r:=cos(pi);end;CoshCosh(X : Extended ):Extended;计算一个角度的双曲余弦。此处角采用弧度制。var R: Extended;beginR := Cosh(Pi);end;CotanCotan(X : Extended ):Extended;计算一个角度的余切。此处角采用弧度制。var R: Extended;beginR:=cotan(Pi);end;CreateDirCreateDir(Const ClassName):Boolean;创建一个新的路径。成功返回真，失败返回假。uses FileCtrl;procedure TForm1.Button1Click(Sender: Tobject);beginif not DirectoryExists(c:temp) then if not CreateDir(C:temp) then raise Exception.Create(Cannot create c:temp);end;CreateRegKeyCreateRegKey(Const Key , ValueName ,Value:String);创建可打开一个由参数key指定的注册码（注册表的：HKEY_CLASSES_ROOT目录下的亚码）。该参数为非空字符串，且不能以反斜杠”开始。必须是一个子键或根键。创建成功后，该键所指定的值及其它信息将回传给本函数。value name参数可以指向一个有关联值的子键的非空字符串。但var Reg: Tregistry;beginReg := Tregistry.Create;try Reg.RootKey := HKEY_CURRENT_USER;if CreateRegKey(SoftwareMicrosoftWindowsCurrentVersionRunOnce, True) then Reg.WriteString(MyApp, + ParamStr(0) + );finally Reg.CloseKey;CurrToFMTBCDCurrToFMTBCD(Curr :Currency ; Var BCD : FMTBcd ;Precision,Decimals : Integer):Boolean;转换一个二进制值为对应的的十进制编码值。略CurrToStrCurrToStr(Value : Currency):String将当前值转换为一个字符串。该函数将由value指定的变量值转换为其字符形式，该转换遵从ffGeneral floating point 转换规则。var s:string;begin s:=currtostr(Oaf);end;CurrToStrFCurrToStrF(Value : Currency ; Format : TfloatFormat ; Digits:Integer):string;将一个当前变量value的值转换为一个说明格式的float字符串。该调用隐含依据19位的float精度调用。CycleToRadCycleToRad(Cycles : Extended):Extended;将一个角度测量值转换成弧度。依据的公式是radians = 2pi * cycles.var m:extended;n:extended;begin m:=1800; n:=cyclytorad(m);end;DateDate : TDateTime;返回系统当前的日期。beginlabel1.caption:=today is +datetostr(date); end;DateTimeToFileDateDateTimeToFileDate(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;DateTimeToStrDateTimeToStr(DateTime : TDateTime):String;该函数将TDateTime格式变量转换成字符串，如果该参数不包含日期值，返回字符串中日期显示为00/00/00，若没有时间值则相应位置显示为00：00：00AMbegin label1.caption:=datetimetostr(now); end;DateTimeToStringDateTimeToString(Var NewString : String ; Const Format : String ; DateTime : TDateTime);根据给定的格式字符串转换时间和日期值。DateTime为时间日期值。另参见FomatDateTime函数。procedure TForm1.Button1Click(Sender: Tobject); begin Label1.Caption := DateTimeToStr(Now); end;DateTimeToSystemTimeDateTimeToSystemTime(Var NewString :String ; Const Format :string ; DateTime :TDateTime);将一个Delphi的TdateTime格式转换成为Win32接口的TsystemTime格式。var DateTime: TDateTime;beginGetLocalTime(DateTime);Result := DateTimeToSystemTime(DateTime);end;DateTimeToTimeStampDateTimeToTimeStamp(DateTime :TDateTime):TtimeStamp;将一个TdateTime值转换成为对应的TtimeStamp值。Var Timestamp:Ttimestamp;Begin Getlocaltime(datetime); Result:=datetimetostamp(datetime:Tdatetime);end;DateToStrDateToStr(Date : TDateTime):String使用ShortDateFormat全局变量定义的格式字符串将Date参数转换成对应的字符串。procedure TForm1.Button1Click(Sender: Tobject);begin Label1.Caption := Today is + DateToStr(Date);end;DayOfWeekDayOfWeek(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) eDecDec(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); endDecodeDateDecodeDate(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; beginPresent:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := Today is Day + IntToStr(Day) + of MonthDecodeTimeDecodeTime(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,现在是 DegToRadDegToRad(Degrees : Extended):Extended;将一个角度值转换成为弧度值。varp:extended;begin p:=degtorad(180);end;DeleteDelete (var S :String ;Index ,Count :integer)删除字符串S中指定位置Sindex开始的指定count个字符。var s:string begin s:=delphi is good ; delect(s,19,3) showmessage(s); end;DeleteFileDeleteFile(Const FileName : String):Boolean;从磁盘上删除一个文件，如果删除失败或者文件不存在则返回假。begin iffileexists(c:autoexec.bak) then if renamefile(c:autoexe.bak,c:autoexec.kkk) then showmessage(更改成功);else showmessage(更改失败)； else showmessage(指定文件不存在) endDeleteRegKeyDeleteRegKey(Const Key : string);从系统的注册表中删除一个由key参数指定的HKEY-CLASSES-ROOT的子键。这里key参数必须为非空字符串。且所删除的子键必须没有下一层子键。var Reg: Tregistry;beginReg := Tregistry.Create;deleteregkey(SoftwareMicrosoftWindowsCurrentVersionRunOnce);end;DiskFreeDiskFree(Drive : Bte):Int64;取得一个指定磁盘的磁盘剩余空间。当drive参数为0时指当前盘，为1时指A盘，为2时指B盘，依次类推。当所指定盘符无效时，函数返回-1。var s:string; begin s:=inttostr(diskfree(0)div1024)+kbytes free; canvas.textout(10,10,s); end;DiskSizeDiskSize(Drive : Byte):Int64;取得指定磁盘的磁盘的空间字节数。参数说明同diskfree（）。vars:stringbegin s:=inttostr(disksize(0)div 10024)+kbyts capacity canvas.textout(10,10,s) end;DisposeDispose( Var P :Pointer);释放一个为动态变量分配的内存。在释放后调用指针P将导致错误。如果P传递的是一个无效的指针，则将引发一个EInvalidPointer 异常。type str18=string18;var p:Str18;begin new(p); p:=Now You See it; dispose(p);end;DisposeStrDisposeStr(P : Pstring);释放有关字符串的指针。该函数仅为保持向下兼容使用。建议连同newstr()均不要使用。var s:string; ps:string; begin s:=delphi is good!ps:=newstr(s); showmessage(string(s); disposestr(ps); end;DLLCanUnloadNowDLLCanUnloadNow:Hresult ;询问系统是否可以卸载内进程的服务，以排出此进程。当函数返回S_OK时，表示可以卸载，返回S_false时，表示不可卸载。?注：该方法不可直接调用，须在ctiveX输出有关信息或者由OLE驱动来显示可否卸载服务。ifdllcanunloadnow=s_ok then dosomethingelsedo other somethingend;DLLRegisterServerDLLRegisterServer:Hresult;在系统的注册表的当前模块内注册一个内进程ActiveX服务器。?注：该方法不可直接调用，由在队列中的ctiveX输出并通知DLL服务来注册类库和报务线程支持的类。EncodeDateEncodeDate(Year,Month,Day:Word):TdateTime;该函数将年(year)、月(month)、日(day)数值编码成TdateTime格式。其中年份，月份，日的数值必须在合理范围内，否则将引发一个EconvertError异常。var mydate : Tdatetime; begin mydate:=encodedate(83,12,32); label1.caption:=datetostr(mydate); end;EncodeTimeEncodeTime(Hour,Min,Sec,Msec:Word):TdateTime;将给定的时、分、秒、毫秒值编码成TdateTime数值。如果Time224hour类型常量为false，则合法的小时值为0-12，否则为0-23。合法的min值为0-59，Msec值取0-999。如果给定的值非法，则系统产生EconvertError异常。函数的结果值为0（包含）到1（不包含）之间的数值，表示一天中的begincanvas.textout(10,10,你所指定的日期是：+datetostr(encodedate(58,1,8);canvas.textout(10,30,你所指定的时间是：+timetostr(encodetime(0,1,2,3);end;EndThreadEndThread(ExitCode : Integer);该函数调用winapi 中的exitthread函数来结束一个线程。var exitcode:integer;beginexitcode:=val(text1.text);if exitcode=3 then endthread(2);end;EraseErase(Var F);删除指定的文件，文件在删除前必须被关闭。procedure TForm1.Button1Click(Sender: Tobject);varF: Textfile;beginOpenDialog1.Title := Delete File;if OpenDialog1.Execute then beginAssignFile(F, OpenDialog1.FileName);try Reset(F);if MessageDlg(Erase + OpenDEOFEOF(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 th