Delphi函数大全.doc

《Delphi函数大全.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi函数大全首部functionLanguages:TLanguages;$[SysUtils.pas功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考typeSysUtils.TLanguages例子///////BeginLanguagesprocedureTForm1.Button1Click(Sender:TObject);varI:Integer;beginMemo1.Clear;forI:=0toLanguages.Count-1doMemo1.Lines.Add(Languages.Name[I]);end;/////

2、//EndLanguages━━━━━━━━━━━━━━━━━━━━━首部functionAllocMem(Size:Cardinal):Pointer;$[SysUtils.pas功能返回一个指定大小Size的内存块说明配合用FreeMem释放资源参考functionSystem.GetMem例子///////BeginAllocMemprocedureTForm1.Button1Click(Sender:TObject);varI:PInteger;beginI:=AllocMem(SizeOf(Integer));I^:=100;Edit1.T

3、ext:=IntToStr(I^);FreeMem(I,SizeOf(Integer));end;///////EndAllocMem━━━━━━━━━━━━━━━━━━━━━首部procedureAddExitProc(Proc:TProcedure);$[SysUtils.pas功能添加一个退出处理的过程说明建议用finalization部分取代参考例子////////BeginAddExitProcusesShellApi;53procedureExitProc;beginShellExecute(0,'Open','Calc.ex

4、e',nil,nil,SW_SHOW);end;procedureTForm1.Button1Click(Sender:TObject);beginAddExitProc(ExitProc);end;////////EndAddExitProc━━━━━━━━━━━━━━━━━━━━━首部functionNewStr(constS:string):PString;deprecated;$[SysUtils.pas功能返回一个新的字符串指针地址说明字符串S为空时返回NullStr参考procedureSystem.New例子////////BeginN

5、ewStr,DisposeStrprocedureTForm1.Button1Click(Sender:TObject);varP:PString;beginP:=NewStr(Edit1.Text);Edit2.Text:=P^;DisposeStr(P);end;////////EndNewStr,DisposeStr━━━━━━━━━━━━━━━━━━━━━首部procedureDisposeStr(P:PString);deprecated;$[SysUtils.pas功能释放字符串指针P资源说明配合函数NewStr使用参考procedure

6、System.Dispose例子<如上参见,如下参见>━━━━━━━━━━━━━━━━━━━━━首部procedureAssignStr(varP:PString;constS:string);deprecated;$[SysUtils.pas功能将字符串S更新给字符串指针P说明更新值时会释放以前字符串指针的资源参考functionSysUtils.NewStr;functionSysUtils.DisposeStr例子////////BeginAssignStrprocedureTForm1.Button1Click(Sender:TObject)

7、;varP:PString;beginP:=nil;53AssignStr(P,Edit1.Text);Edit2.Text:=P^;DisposeStr(P);end;////////EndAssignStr━━━━━━━━━━━━━━━━━━━━━首部procedureAppendStr(varDest:string;constS:string);deprecated;$[SysUtils.pas功能在字符串Dest后追加字符串S说明相当于Dest:=Dest+S;Delphi6已经不建议使用参考例子////////BeginAppe

8、ndStrprocedureTForm1.Button1Click(Sender:TObject);varS