資源描述：
《Delphi函數大全.doc》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、Delphi函數大全首部functionLanguages:TLanguages;$[SysUtils.pas功能返回系統(tǒng)語言對象說明通過此函數可以得到系統(tǒng)的語言環(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功能返回一個指定大小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
