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