delphi常用函數(shù)手冊(參考版)
2025-06-28 06:29本頁面
【正文】 13 / 13?！ ⒖紝嵗骸 ?:= IntToStr(YearOf(Date))?！ nd?，F(xiàn)在是：39?！ ⒖紝嵗骸 rocedure (Sender: TObject)?！ 〖僭O(shè)當前日期為2005年1月2日，那么Label將顯示為1?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定的日期，返回月份。)。) else ShowMessage(39?！ egin if IsLeapYear(YearOf(Date)) then ShowMessage(39?？墒褂肶earOf函數(shù)獲取年?！ 〖僭O(shè)當前日期為2005年1月2日，那么Label將顯示為2?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定的日期，返回日。 假設(shè)當前日期為2005年1月2日，那么Label將顯示為2?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定日期，獲取天數(shù)。根據(jù)返回的值來判斷是周幾?！ ⒖紝嵗骸 ?:= IntToStr(DayOfTheMonth(Now))?！ 〖僭O(shè)當前日期為2005年1月2日，那么Label將顯示為2?！ ?所在單元：DateUtils) 功能說明：獲取指定日期的日?！ egin S := DateTimeToStr(Now)?！ 」δ苷f明：將DateTime型轉(zhuǎn)換為字符型?！ egin S := DateToStr(Date)?！ 」δ苷f明：將日期型轉(zhuǎn)換為字符型?！ nd。今天是：39。 參考實例： procedure (Sender: TObject)。如果你打算編寫一款有日期限制的軟件，熟悉使用下面的函數(shù)即可以實現(xiàn)。 // i等于9 end?！ ⒖紝嵗骸 ar i: Integer。 // j等于2 end?！ egin i := Round()。 功能說明：對一個實數(shù)進行四舍五入?！ egin x := PI?！ 」δ苷f明：精確計算返回圓周率。 begin k := Min(10, 20)。 (所在單元：Math) 功能說明：比較兩個數(shù)字，并返回最小的一個數(shù)字?！ egin k := Max(10, 20)。 (所在單元：Math) 功能說明：比較兩個數(shù)字，并返回最大的一個數(shù)字。 // R等于 R := Int()?！ ⒖紝嵗骸 ar R: Real?！ 」δ苷f明：取得小于等于X的最大的整數(shù)?！ ⒖紝嵗骸 ? e := Exp()。 // I 等于 156 end?！ egin r := Abs()?！ ⒖紝嵗骸 ar r: Single?！ ∧J情況下，Delphi新建的工程里，沒有包含大多數(shù)的數(shù)學運行函數(shù)，因此需要在Uses中加入Math單元?！ ∥?、數(shù)學運算函數(shù) 我們在編寫跟數(shù)學緊密相關(guān)的程序時，數(shù)學運算函數(shù)將大有用處。 // 分配內(nèi)存 P^ := 100?！ ⒖紝嵗骸 ar P: PInteger?！ nd。 begin GetMem(Buffer, 256)?！ 」δ苷f明：分配內(nèi)存空間?！ ? FreeMem(Buffer)?！ egin GetMem(Buffer, 256)?！ 」δ苷f明：釋放分配的內(nèi)存空間?！ ? P^ := 100。 參考實例： var P: Pinteger。 // 分配大小為256個字節(jié)的內(nèi)存空間 end?！ ⒖紝嵗骸 ar Buffer: PChar?！ 」δ苷f明：分配內(nèi)存空間并自動初始化為零。當我們在使用這些動態(tài)數(shù)組及API函數(shù)時，常常需要動態(tài)分配內(nèi)存空間，這樣動態(tài)數(shù)組才能被我們使用，API函數(shù)才能正確的返回結(jié)果。 四、內(nèi)存、指針操作函數(shù) 在編程中，動態(tài)數(shù)組為我們處理數(shù)據(jù)帶來了很大的方便。 // 將S變量中的內(nèi)容寫入文本中?！ ? Rewrite(F)。)?！ ssignFile(F, 39?！ egin S := 39。 參考實例： var S: String。 // end。C:\39。 // 將C:\，后面可以使用F變量對文件進行操作。C:\39?！ ⒖紝嵗骸 ar F: File。 // 讀取一行文本到S變量中 end?！ ? Reset(F)。)。 begin AssignFile(F, 39?！ ⒖紝嵗骸 ar S: String?！ nd。如果文件不存在?！ ? Rewrite(F)。)。 // 聲明文本文件類型變量 begin AssignFile(F, 39。使用該函數(shù)，將會覆蓋文件中的所有內(nèi)容?！ 」δ苷f明：以可寫方式打開文件。 Reset(F)。)。 // 聲明文本文件類型變量 begin AssignFile(F, 39?！ 」δ苷f明：以只讀方式打開文件。)。比如C盤根本不存在Flash文件夾，寫成MkDir(39。 // 在C盤根目錄中創(chuàng)建了一個名叫MyFolder的文件夾。C:\MyFolder39?！ 」δ苷f明：創(chuàng)建一個新的子目錄(文件夾)。)。 參考實例： ForceDirectories(39?！ 」δ苷f明：創(chuàng)建新的子目錄?！ ? CloseFile(F)。 // 打開文件 nSize := FileSize(F)。 // 將C:\，后面可以使用F變量對文件進行操作。C:\39?！ ? nSize: Longint。返回的結(jié)果是字節(jié)為單位。 end。該文件不存在！39。該文件存在！39。)?！ eg
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1