delphi常用函數(shù)手冊-資料下載頁
2025-06-25 06:29本頁面
【正文】 P^ := 100。 // 賦值 end?！ ∥?、數(shù)學運算函數(shù) 我們在編寫跟數(shù)學緊密相關(guān)的程序時，數(shù)學運算函數(shù)將大有用處。比如圖像處理軟件，就會大量用到這些數(shù)學運算函數(shù)。 默認情況下，Delphi新建的工程里，沒有包含大多數(shù)的數(shù)學運行函數(shù)，因此需要在Uses中加入Math單元?！ 」δ苷f明：求絕對值?！ ⒖紝嵗骸 ar r: Single。 i: Integer?！ egin r := Abs()。 // r等于 i := Abs(156)。 // I 等于 156 end?！ 」δ苷f明：Exp返回e的X次冪的值，其中e是一個自然對數(shù)基底。 參考實例： e := Exp()。 // e為real型變量 end?！ 」δ苷f明：取得小于等于X的最大的整數(shù)?！ ⒖紝嵗骸 loor() = 3 Floor() = 2 Floor() = 1 功能說明：返回參數(shù)中的整數(shù)部分?！ ⒖紝嵗骸 ar R: Real?！ egin R := Int()。 // R等于 R := Int()。 // R等于 end?！ ?所在單元：Math) 功能說明：比較兩個數(shù)字，并返回最大的一個數(shù)字。 參考實例： var k: Integer?！ egin k := Max(10, 20)。 // k將為20 end。 (所在單元：Math) 功能說明：比較兩個數(shù)字，并返回最小的一個數(shù)字?！ ⒖紝嵗骸 ar k: Integer?！ egin k := Min(10, 20)。 // k將為10 end?！ 」δ苷f明：精確計算返回圓周率?！ ⒖紝嵗骸 ar x Extended。 begin x := PI。 // end?！ 」δ苷f明：對一個實數(shù)進行四舍五入?！ ⒖紝嵗骸 ar I, j: Integer?！ egin i := Round()。 // i等于1 j := Round()。 // j等于2 end。 功能說明：取給定值的平方?！ ⒖紝嵗骸 ar i: Integer。 begin i := Sqr(3)。 // i等于9 end?！ ×⑷掌诤瘮?shù) 對日期的處理，一般在有日期限制的共享、商業(yè)軟件中經(jīng)常使用到。如果你打算編寫一款有日期限制的軟件，熟悉使用下面的函數(shù)即可以實現(xiàn)?！ 」δ苷f明：返回當前的日期?！ ⒖紝嵗骸 rocedure (Sender: TObject)。 begin := 39。今天是：39。 + DateToStr(Date)?！ nd?！ abel顯示為：今天是2005年1月1日?！ 」δ苷f明：將日期型轉(zhuǎn)換為字符型?！ ⒖紝嵗骸 ar S: String?！ egin S := DateToStr(Date)。 end?！ 」δ苷f明：將DateTime型轉(zhuǎn)換為字符型。 參考實例： var S: String?！ egin S := DateTimeToStr(Now)?！ nd。 (所在單元：DateUtils) 功能說明：獲取指定日期的日?！ ⒖紝嵗骸 ?:= IntToStr(DayOfTheMonth(Now))?！ 〖僭O當前日期為2005年1月2日，那么Label將顯示為2?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定日期，獲取星期幾?！ ⒖紝嵗骸 ?:= IntToStr(DayOfTheMonth(Now))。 假設當前日期為2005年1月2日，那么Label將顯示為7。根據(jù)返回的值來判斷是周幾。7表示星期天，1為星期一，依類類推?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定日期，獲取天數(shù)?！ ⒖紝嵗骸 ?:= IntToStr(DayOfTheYear(Now))。 假設當前日期為2005年1月2日，那么Label將顯示為2。表示是2005年的第2天?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定的日期，返回日?！ ⒖紝嵗骸 ?:= IntToStr(DayOf(Date))?！ 〖僭O當前日期為2005年1月2日，那么Label將顯示為2。 功能說明：根據(jù)指定的年，判斷是否為閏年?？墒褂肶earOf函數(shù)獲取年?！ ⒖紝嵗骸 rocedure (Sender: TObject)?！ egin if IsLeapYear(YearOf(Date)) then ShowMessage(39。是閏年39。) else ShowMessage(39。不是閏年39。)?！ nd?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定的日期，返回月份?！ ⒖紝嵗骸 ?:= IntToStr(MonthOf(Date))?！ 〖僭O當前日期為2005年1月2日，那么Label將顯示為1。 功能說明：返回當前日期及時間。 參考實例： procedure (Sender: TObject)?！ egin := 39?，F(xiàn)在是：39。 + DateTimeToStr(Now)?！ nd?！ ?所在單元：DateUtils) 功能說明：根據(jù)指定的日期，返回年。 參考實例： := IntToStr(YearOf(Date))。 假設當前日期為2005年1月2日，那么Label將顯示為2005。13 / 1
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1