資源描述：
《Delphi函數(shù)大全.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、Delphi函數(shù)大全首部functionLanguages:TLanguages;$[SysUtils.pas功能返回系統(tǒng)語(yǔ)言對(duì)象說(shuō)明通過(guò)此函數(shù)可以得到系統(tǒng)的語(yǔ)言環(huán)境參考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功能返回一個(gè)指定大小Size的內(nèi)存塊說(shuō)明配合用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功能添加一個(gè)退出處理的過(guò)程說(shuō)明建議用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功能返回一個(gè)新的字符串指針地址說(shuō)明字符串S為空時(shí)返回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資源說(shuō)明配合函數(shù)NewStr使用參考procedure
6、System.Dispose例子<如上參見(jiàn),如下參見(jiàn)>━━━━━━━━━━━━━━━━━━━━━首部procedureAssignStr(varP:PString;constS:string);deprecated;$[SysUtils.pas功能將字符串S更新給字符串指針P說(shuō)明更新值時(shí)會(huì)釋放以前字符串指針的資源參考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說(shuō)明相當(dāng)于Dest:=Dest+S;Delphi6已經(jīng)不建議使用參考例子////////BeginAppe
8、ndStrprocedureTForm1.Button1Click(Sender:TObject);varS
