函數由一句或多句代碼組成，可以實(shí)現某個(gè)特定的功能。使用函數可以使代碼更加易讀、易懂，加快編程速度及減少重復代碼。過(guò)程與函數類(lèi)似，過(guò)程與函數最重要的區別在于，過(guò)程沒(méi)有返回值，而函數能有返回值。
在Delphi 7.0中，已為我們定義好了非常多的函數，大致分類(lèi)有6種：數據類(lèi)型轉換函數、字符串、數組操作函數、文件、磁盤(pán)操作函數、內存、指針操作函數、數學(xué)運算函數、日期函數。
在Delphi中調用函數，一般情況下可以直接使用函數即可，但由于有一些函數未包含在Uses中列出的單元中(默認單元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;)，所以需要我們手動(dòng)添加單元。比如，MidStr函數就未包含在這些單元中，MidStr所屬單元在StrUtils中，因此我們將StrUtils添加Uses中即可。
在本手冊中，凡是未包含在默認列出的單元中的函數，都標明了其所屬的單元，使用時(shí)應當注意。
一、數據類(lèi)型轉換函數
在我們編寫(xiě)程序當中，根據不同情況，會(huì )使用到多種數據類(lèi)型。當要對不同的類(lèi)型進(jìn)行操作時(shí)，必須要將不同的類(lèi)型轉換成同樣的類(lèi)型。因此熟練地掌握數據類(lèi)型的轉換是非常重要的。
1.FloatToStr
功能說(shuō)明：該函數用于將“浮點(diǎn)型”轉換成“字符型”。
參考實(shí)例：
Edit1.Text := FloatToStr(1.981);
2.IntToStr
功能說(shuō)明：該函數用于將“整數型”轉換成“字符型”。
參考實(shí)例：
S := IntToStr(10);(注：S為String類(lèi)型變量。)
3.IntToHex
功能說(shuō)明：該函數用于將“十進(jìn)制”轉換成“十進(jìn)制”。該函數有二個(gè)參數。第一個(gè)參數為要轉換的十進(jìn)制數據，第二個(gè)參數是指定使用多少位來(lái)顯示十六進(jìn)制數據。
參考實(shí)例：
Edit1.Text := IntToHex(‘100‘, 2);
執行結果，Edit1.Text等于64。
注意：Delphi沒(méi)有提供專(zhuān)門(mén)的“十六進(jìn)制”轉換為“十進(jìn)制”的函數。使用StrToInt函數可以實(shí)現這個(gè)功能。具體代碼是：I := StrToInt(‘S\‘ + ‘64‘); 這時(shí)I等于100。加上一個(gè)‘S\‘即可將“十六進(jìn)制”轉換為“十進(jìn)制”。
4.StrToInt
功能說(shuō)明：該函數用于將“字符型”轉換成“整數型”。
參考實(shí)例：
I := StrToInt(‘100‘);
注意：不能轉換如 StrToInt(‘a(chǎn)b‘)或StrToInt(‘好‘)這樣的類(lèi)型，因為他們并不存在數字型。
5.StrToFloat
功能說(shuō)明：該函數用于將“字符型”轉換成“浮點(diǎn)型”。
參考實(shí)例：
N := StrToFloat(Edit1.Text);
注意：Edit1.Text中的內容為1.981(凡在Edit控件中顯示的文本均為字符串)。N為Double類(lèi)型，用于保存轉換后的浮點(diǎn)型數據。
二、字符串、數組操作函數
對字符串及數組的操作，是每個(gè)程序員必須要掌握的。熟練的使用這些函數，在編程時(shí)能更加得心應手。
1.Copy
功能說(shuō)明：該函數用于從字符串中復制指定范圍中的字符。該函數有3個(gè)參數。第一個(gè)參數是數據源(即被復制的字符串)，第二個(gè)參數是從字符串某一處開(kāi)始復制，第三個(gè)參數是要復制字符串的長(cháng)度(即個(gè)數)。最后函數返回一個(gè)新的字符串(即是我們指定要復制的字符串內容)。
參考實(shí)例：
var
S: String;
MyStr: String; // 保存新的字符串
begin
S := ‘I Love China!‘;
//下面將獲取I Love China中的“Love”字符串。
MyStr := Copy(S, 3, 4);
end;
執行結果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3個(gè)位置開(kāi)始，所以第二個(gè)參數為3，“Love”一共有4個(gè)字符，所以第三個(gè)參數為4。
2.Concat
功能說(shuō)明：連接兩個(gè)或多個(gè)字符串為一個(gè)字符串。
參考實(shí)例：
var
S1, S2: String;
begin
S1 := Concat(‘A‘, ‘B‘); // 連接兩個(gè)字符串，S1變量等于A(yíng)B。
S2 := Concat(‘Borland‘, ‘ Delphi‘, ‘ 7.0‘); // 連接三個(gè)字符，S2變量等于Borland Delphi 7.0。
end;
3.Delete
功能說(shuō)明：刪除字符串中指定的字符串。該函數有三個(gè)參數。第一個(gè)參數為要進(jìn)行處理的字符串，第二個(gè)參數為從何處開(kāi)始刪除，第三個(gè)參數為刪除的字符個(gè)數。
參考實(shí)例：
var
S: String;
begin
S := ‘I Like Reading CPCW.‘;
// 下面的代碼將刪除S變量中的“C”字符。
Delete(S, 16, 1);
end;
此時(shí)S變量則是I Like Reading PCW.(“C”已經(jīng)不存在了)。
4.High
功能說(shuō)明：返回數組下標的最大值。
參考實(shí)例：
var
arrText: array[0..9] of Char;
i: Integer;
begin
i := High(arrText); // i的值則為9
end;
5.Insert
功能說(shuō)明：插入一個(gè)字符(串)。該函數有三個(gè)參數。第一個(gè)參數為要插入的字符(串)，第二個(gè)參數為被插入字符串(源字符串)，第三個(gè)參數為從何處插入。
參考實(shí)例：
var
S: String;
begin
S := ‘Wat is your name?‘;
// 上面句子中的What單詞查一個(gè)“h”字符，下面使用Insert函數將h添加進(jìn)去。
Insert(‘h‘, S, 2); // 將“h”從第2位處插入。
end;
6.LeftStr(所在單元：StrUtils)
功能說(shuō)明：返回字符串左邊指定個(gè)數的新字符(串)。該函數有兩個(gè)參數。第一個(gè)參數為完整的字符串，第二個(gè)參數為指定個(gè)數。
參考實(shí)例：
var
S, A: String;
begin
S := ‘MSN Messenger‘;
A := LeftStr(S, 3); // 從最左邊開(kāi)始，獲取左邊的三個(gè)字符。因此A變量則等于MSN。
end;
7.Length
功能說(shuō)明：該函數用于統計指定字符串的長(cháng)度(即個(gè)數)。
參考實(shí)例：
var
nLen1, nLen2: Integer; // 用于保存字符串長(cháng)度
begin
nLen1 := Length(‘CPCW‘);
nLen2 := Length(‘電腦報‘);
end;
執行結果，nLen1等于4，nLen2等于6。由于一個(gè)漢字相當于兩個(gè)字符的長(cháng)度，所以3個(gè)漢字的長(cháng)度為6。
8.Low
功能說(shuō)明：返回數組下標的最小值。
參考實(shí)例：
var
arrText: array[1..9] of Char;
i: Integer;
begin
i:= High(arrText); // i的值則為1
end;
9.LowerCase
功能說(shuō)明：將字符(串)中的英文字符轉換為小寫(xiě)。
參考實(shí)例：
var
S, A: String;
begin
S := ‘ABC‘;
A := UpperCase(S); // 經(jīng)過(guò)UpperCase函數轉換后，A則等于abc。
end;
10.MidStr(所在單元：StrUtils)
功能說(shuō)明：返回指定范圍內的字符串。該函數有三個(gè)參數。第一個(gè)參數為源字符串，第二個(gè)參數為起點(diǎn)，第三個(gè)參數為結束點(diǎn)。通過(guò)第二、第三個(gè)參數則可指定要復制字符串的范圍。
Copy函數與此函數類(lèi)似。MidStr主要用于處理含有中文字符的字符串。
參考實(shí)例：
var
S: String;
H: String;
begin
S := MidStr(‘China‘, 1, 2); // S變量為Ch
H := MidStr(‘電腦報‘, 1, 1); // H變量為“電”。如果使用Copy函數，則應是H := Copy(‘電腦報, 1, 2)，否則返回的將不是“電”字。因此在使用操作含有中文的字符串時(shí)，最好使用MidStr。
end;
11.Pos
功能說(shuō)明：查找字符(串)所在位置。該函數有二個(gè)參數。第一個(gè)參數為要查找的字符(串)，第二個(gè)參數為被查找字符(串)。
參考實(shí)例：
var
nPos: Integer; // 用于保存查找的字符所在位置
begin
nPos := Pos(‘Like‘, ‘I Like Reading!‘);
end;
此時(shí)nPos等于3。如果沒(méi)有查找到，則nPos為0。
注意：Pos函數在查找時(shí)是要區分字符大小的。如果要實(shí)現不區分大小，那么需要使用UpperCase或LowerCase函數將兩個(gè)參數的字符(串)轉換為“大寫(xiě)”或“小寫(xiě)”再進(jìn)行查找。
另外還有一個(gè)查找字符(串)的函數----AnsiPos，該函數的使用方法與Pos函數完全一樣。當你查找的是漢字時(shí)，最好使用AnsiPos函數。
12.RightStr(所在單元：StrUtils)
功能說(shuō)明：返回字符串右邊指定個(gè)數的新字符(串)。該函數有兩個(gè)參數。第一個(gè)參數為完整的字符串，第二個(gè)參數為指定個(gè)數。
參考實(shí)例：
var
S, A: String;
begin
S := ‘MSN Messenger‘;
A := RightStr(S, 3); // 從最右邊開(kāi)始，獲取右邊的三個(gè)字符。因此A變量則等于ger。
end;
13.SetLength
功能說(shuō)明：設置字符串或動(dòng)態(tài)數組長(cháng)度。該函數有兩個(gè)參數。第一個(gè)參數為要設置的字符串變量或動(dòng)態(tài)數組變量，第二個(gè)參數為指定的長(cháng)度，其取值范圍在0到255之間。
參考實(shí)例：
var
S: String;
arrText: array of Char; // 定義一個(gè)動(dòng)態(tài)數組
begin
SetLength(S, 10); // 當設置后，S變量只能賦值長(cháng)度為10的字符串。
SetLength(arrText, 10); // 只有使用SetLength為動(dòng)態(tài)數組分配內存空間后才能使用動(dòng)態(tài)數組。這句代碼的作用相當于arrText: array[0..9] of Char
end;
14.StrPCopy
功能說(shuō)明：將字符串復制到字符數組中。該函數有兩個(gè)參數。第一個(gè)參數為“目標數組”，第二個(gè)參數為“字符串”。
參考實(shí)例：
var
arrChar: array[0..255] of Char; // 這里聲明了長(cháng)度為256的Char型數組
begin
StrPCopy(arrChar, ‘Come on, baby!‘);
end;
15.Trim
功能說(shuō)明：刪除字符串左右兩邊的空格(無(wú)論左右兩邊有多少個(gè)空格均被全部刪除)。
參考實(shí)例：
var
S: String;
begin
S := ‘ Delphi 7.0 ‘;
S := Trim(S);
end;
16.TrimLeft
功能說(shuō)明：刪除字符串左邊的空格(無(wú)論左邊有多少個(gè)空格均被全部刪除)。
參考實(shí)例：
S := TrimLeft(‘ Delphi‘);
17.TrimRight
功能說(shuō)明：刪除字符串左邊的空格(無(wú)論左邊有多少個(gè)空格均被全部刪除)。
參考實(shí)例：
S := TrimRight(‘Delphi ‘);
18.UpperCase
功能說(shuō)明：將字符(串)中的英文字符轉換為大寫(xiě)。
參考實(shí)例：
var
S, A: String;
begin
S := ‘a(chǎn)bc‘;
A := UpperCase(S); // 經(jīng)過(guò)UpperCase函數轉換后，A則等于A(yíng)BC。
end;
三、文件、磁盤(pán)操作函數
軟件大多都要對文件、磁盤(pán)進(jìn)行操作。熟悉掌握這些函數可以幫助你輕松實(shí)現創(chuàng )建、刪除、保存文件等功能。
1.Append
功能說(shuō)明：追加內容到文件中。文件必須要存在。
參考實(shí)例：
var
S: String;
F: TextFile;
begin
S := ‘This is a book.‘;
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Append(F); // 以追加的方式打開(kāi)文件
Writeln(F, S); // 將S變量中的內容追加到文本尾后。
CloseFile(F); // 關(guān)閉文件
end;
2.AssignFile
功能說(shuō)明：與指定的文件建立連接。
參考實(shí)例：
var
F: TextFile; // 聲明文本文件類(lèi)型變量
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
end;
3.ChDir
功能說(shuō)明：改變當前目錄(文件夾)。
參考實(shí)例：
var
sDir: String;
begin
sDir := ‘C:\Windows‘;
ChDir(sDir); // 此時(shí)，系統的當前目錄則為C:\Windows目錄。
end;
4.CloseFile
功能說(shuō)明：關(guān)閉文件。當對文件的操作完成后，應該使用CloseFile函數關(guān)閉打開(kāi)的文件。
參考實(shí)例：
var
S: String;
AllText: String;
F: TextFile;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
while not EOF(F) do begin // 使用While循環(huán)，一直判斷是否到了文件未尾
Readln(F, S); // 讀取一行文本
AllText := AllText + S;
end;
CloseFile(F); // 關(guān)閉文件
end;
5.DeleteFile
功能說(shuō)明：刪除指定的文件。該函數只有一個(gè)參數。此參數為欲刪除文件的完整路徑。如果刪除成功，則返回True。若刪除失敗、或文件不存在則返回False。
參考實(shí)例：
var
IsOK: Boolean; // 用于保存刪除狀態(tài)
begin
IsOK := DeleteFile(‘C:\My Documents\Index.html‘); // 函數執著(zhù)后，將結果返回給IsOK變量。如果IsOK變量為T(mén)rue，則表示文件刪除成功。
if IsOK then ShowMessage(‘文件刪除成功！‘)
else ShowMessage(‘文件刪除失??！‘);
end;
6.DirectoryExists
功能說(shuō)明：檢測指定的文件夾否存在。如果存在則返回True，反之則為False。
參考實(shí)例：
var
IsExists: Boolean;
begin
IsExists := DirectoryExists (‘C:\Windows‘);
if IsExists then ShowMessage(‘Windows文件夾存在！‘)
else ShowMessage(‘Windows文件夾不存在！‘);
end;
7.DiskFree
功能說(shuō)明：獲取指定磁盤(pán)的剩余空間。該函數只有一個(gè)參數。該參數用于指定要獲取剩余空間的磁盤(pán)號。當參數為0時(shí)，表示獲取當前磁盤(pán)的剩余空間，1為A盤(pán)，2為B盤(pán)，以此類(lèi)推。如果返回值為-1，表示指定的磁盤(pán)無(wú)效。
參考實(shí)例：
var
FreeSize: Int64;
begin
FreeSize := DiskFree(3); // 獲取C盤(pán)中的剩余空間。返回的值是以“字節”為單位的。
end;
8.DiskSize
功能說(shuō)明：獲取指定磁盤(pán)的空間。該函數只有一個(gè)參數。該參數用于指定要獲取磁盤(pán)空間的磁盤(pán)號。當參數為0時(shí)，表示獲取當前磁盤(pán)的空間，1為A盤(pán)，2為B盤(pán)，以此類(lèi)推。如果返回值為-1，表示指定的磁盤(pán)無(wú)效。
參考實(shí)例：
var
DiskSize: Int64;
begin
DiskSize:= DiskSize(3); // 獲取C盤(pán)的空間。返回的值是以“字節”為單位的。
end;
9.EOF
功能說(shuō)明：判斷文件指針是否移動(dòng)到了文件未尾。當EOF函數返回值為T(mén)rue時(shí)，則不可以使用Readln函數進(jìn)行讀取文件了。
參考實(shí)例：
var
S: String;
AllText: String;
F: TextFile;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
while not EOF(F) do begin // 使用While循環(huán)，一直判斷是否到了文件未尾
Readln(F, S); // 讀取一行文本
AllText := AllText + S;
end;
end;
10.Erase
功能說(shuō)明：刪除文件。
參考實(shí)例：
var
F: File;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
CloseFile(F); // 關(guān)閉文件
Erase(F); // 刪除文件。在刪除文件之前必須先關(guān)閉文件。
end;
11.FileExists
功能說(shuō)明：檢測指定的文件否存在。如果存在則返回True，反之則為False。
參考實(shí)例：
var
IsExists: Boolean;
begin
IsExists := FileExists(‘C:\Test.txt‘);
if IsExists then ShowMessage(‘該文件存在！‘)
else ShowMessage(‘該文件不存在！‘);
end;
12.FileSize
功能說(shuō)明：獲取文件大小。返回的結果是字節為單位。
參考實(shí)例：
var
F: file of Byte;
nSize: Longint;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
nSize := FileSize(F); // 獲取文件大小。
CloseFile(F); // 關(guān)閉文件
end;
13.ForceDirectories
功能說(shuō)明：創(chuàng )建新的子目錄。路徑中不存在的目錄將一同創(chuàng )建。
參考實(shí)例：
ForceDirectories(‘C:\Flash\MyFolder‘); // 如果Flash文件夾本身不存的話(huà)，那么將會(huì )先創(chuàng )建Flash文件夾，然后再創(chuàng )建MyFolder文件夾。
14.MkDir
功能說(shuō)明：創(chuàng )建一個(gè)新的子目錄(文件夾)。
參考實(shí)例：
MkDir(‘C:\MyFolder‘); // 在C盤(pán)根目錄中創(chuàng )建了一個(gè)名叫MyFolder的文件夾。
需要注意的是，如果在本身不存在的目錄中創(chuàng )建子目錄將會(huì )失敗。比如C盤(pán)根本不存在Flash文件夾，寫(xiě)成MkDir(‘C:\Flash\MyFolder‘);這樣將不能成功創(chuàng )建MyFolder文件夾。
15.Reset
功能說(shuō)明：以只讀方式打開(kāi)文件。
參考實(shí)例：
var
F: TextFile; // 聲明文本文件類(lèi)型變量
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
end;
16.Rewrite
功能說(shuō)明：以可寫(xiě)方式打開(kāi)文件。如果文件不存在，將會(huì )自動(dòng)創(chuàng )建。使用該函數，將會(huì )覆蓋文件中的所有內容。
參考實(shí)例：
var
F: TextFile; // 聲明文本文件類(lèi)型變量
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Rewrite(F); // 打開(kāi)文件。如果文件不存在，將會(huì )在C盤(pán)中創(chuàng )建MyFile.txt文件。如果文件存在，將會(huì )覆蓋MyFile.txt中的所有內容。
end;
17.Readln
功能說(shuō)明：讀取一行文本。
參考實(shí)例：
var
S: String;
F: TextFile;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Reset(F); // 打開(kāi)文件
Readln(F, S); // 讀取一行文本到S變量中
end;
18.Rename
功能說(shuō)明：更改文件名。
參考實(shí)例：
var
F: File;
begin
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
ReName(F, ‘C:\NewFile.txt‘); // 更名為NewFile.txt
end;
19.Writeln
功能說(shuō)明：寫(xiě)入一行文本。
參考實(shí)例：
var
S: String;
F: TextFile;
begin
S := ‘This is a book.‘;
AssignFile(F, ‘C:\MyFile.txt‘); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對文件進(jìn)行操作。
Rewrite(F); // 創(chuàng )建新文件
Writeln(F, S); // 將S變量中的內容寫(xiě)入文本中。
end;
四、內存、指針操作函數
在編程中，動(dòng)態(tài)數組為我們處理數據帶來(lái)了很大的方便。Windows API函數也為增強程序的功能提供了強有力的保障。當我們在使用這些動(dòng)態(tài)數組及API函數時(shí)，常常需要動(dòng)態(tài)分配內存空間，這樣動(dòng)態(tài)數組才能被我們使用，API函數才能正確的返回結果。因此，這些函數是必不可少的。
1.AllocMem
功能說(shuō)明：分配內存空間并自動(dòng)初始化為零。如果不需要初始化為零，可以使用GetMem代替AllocMem。
參考實(shí)例：
var
Buffer: PChar;
begin
Buffer := AllocMem(256); // 分配大小為256個(gè)字節的內存空間
end;
2.Dispose
功能說(shuō)明：釋放為指針?lè )峙涞膬却婵臻g。
參考實(shí)例：
var
P: Pinteger; // 聲明一個(gè)Integer(整型)指針
begin
New(P);
P^ := 100;
Dispose(P) // 釋放內存
end;
3.FreeMem
功能說(shuō)明：釋放分配的內存空間。
參考實(shí)例：
var
Buffer: Pchar;
begin
GetMem(Buffer, 256); // 分配大小為256個(gè)字節的內存空間。
FreeMem(Buffer); // 釋放內存空間
end;
4.GetMem
功能說(shuō)明：分配內存空間。
參考實(shí)例：
var
Buffer: PChar;
begin
GetMem(Buffer, 256); // 分配大小為256個(gè)字節的內存空間。
end;
5.New
功能說(shuō)明：為指針?lè )峙鋬却婵臻g。
參考實(shí)例：
var
P: PInteger; // 聲明一個(gè)Integer(整型)指針
begin
New(P); // 分配內存
P^ := 100; // 賦值
end;
五、數學(xué)運算函數
我們在編寫(xiě)跟數學(xué)緊密相關(guān)的程序時(shí)，數學(xué)運算函數將大有用處。比如圖像處理軟件，就會(huì )大量用到這些數學(xué)運算函數。
默認情況下，Delphi新建的工程里，沒(méi)有包含大多數的數學(xué)運行函數，因此需要在Uses中加入Math單元。
1.Abs
功能說(shuō)明：求絕對值。
參考實(shí)例：
var
r: Single;
i: Integer;
begin
r := Abs(-2.8); // r等于 2.8
i := Abs(-156); // I 等于 156
end;
2.Exp
功能說(shuō)明：Exp返回e的X次冪的值，其中e是一個(gè)自然對數基底。
參考實(shí)例：
e := Exp(1.0); // e為real型變量
end;
3.Floor
功能說(shuō)明：取得小于等于X的最大的整數。
參考實(shí)例：
Floor(-2.8) = -3
Floor(2.8) = 2
Floor(-1.0) = -1
4.Int
功能說(shuō)明：返回參數中的整數部分。
參考實(shí)例：
var
R: Real;
begin
R := Int(123.456); // R等于 123.0
R := Int(-123.456); // R等于 -123.0
end;
5.Max(所在單元：Math)
功能說(shuō)明：比較兩個(gè)數字，并返回最大的一個(gè)數字。
參考實(shí)例：
var
k: Integer;
begin
k := Max(10, 20); // k將為20
end;
6.Min(所在單元：Math)
功能說(shuō)明：比較兩個(gè)數字，并返回最小的一個(gè)數字。
參考實(shí)例：
var
k: Integer;
begin
k := Min(10, 20); // k將為10
end;
7.PI
功能說(shuō)明：精確計算返回圓周率。
參考實(shí)例：
var
x Extended;
begin
x := PI; // x等于3.1415926535897932385
end;
8.Round
功能說(shuō)明：對一個(gè)實(shí)數進(jìn)行四舍五入。
參考實(shí)例：
var
I, j: Integer;
begin
i := Round(1.25); // i等于1
j := Round(1.62); // j等于2
end;
9.Sqr
功能說(shuō)明：取給定值的平方。
參考實(shí)例：
var
i: Integer;
begin
i := Sqr(3); // i等于9
end;
六、日期函數
對日期的處理，一般在有日期限制的共享、商業(yè)軟件中經(jīng)常使用到。如果你打算編寫(xiě)一款有日期限制的軟件，熟悉使用下面的函數即可以實(shí)現。
1.Date
功能說(shuō)明：返回當前的日期。
參考實(shí)例：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ‘今天是：‘ + DateToStr(Date);
end;
Label顯示為：今天是2005年1月1日。
2.DateToStr
功能說(shuō)明：將日期型轉換為字符型。
參考實(shí)例：
var
S: String;
begin
S := DateToStr(Date);
end;
3.DateTimeToStr
功能說(shuō)明：將DateTime型轉換為字符型。
參考實(shí)例：
var
S: String;
begin
S := DateTimeToStr(Now);
end;
4.DayOfTheMonth(所在單元：DateUtils)
功能說(shuō)明：獲取指定日期的日。
參考實(shí)例：
Label1.Caption := IntToStr(DayOfTheMonth(Now));
假設當前日期為2005年1月2日，那么Label將顯示為2。
5.DayOfTheWeek(所在單元：DateUtils)
功能說(shuō)明：根據指定日期，獲取星期幾。
參考實(shí)例：
Label1.Caption := IntToStr(DayOfTheMonth(Now));
假設當前日期為2005年1月2日，那么Label將顯示為7。根據返回的值來(lái)判斷是周幾。7表示星期天，1為星期一，依類(lèi)類(lèi)推。
6.DayOfTheYear(所在單元：DateUtils)
功能說(shuō)明：根據指定日期，獲取天數。
參考實(shí)例：
Label1.Caption := IntToStr(DayOfTheYear(Now));
假設當前日期為2005年1月2日，那么Label將顯示為2。表示是2005年的第2天。
7.DayOf(所在單元：DateUtils)
功能說(shuō)明：根據指定的日期，返回日。
參考實(shí)例：
Label1.Caption := IntToStr(DayOf(Date));
假設當前日期為2005年1月2日，那么Label將顯示為2。
8.IsLeapYear
功能說(shuō)明：根據指定的年，判斷是否為閏年?？墒褂肶earOf函數獲取年。
參考實(shí)例：
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsLeapYear(YearOf(Date)) then ShowMessage(‘是閏年‘)
else ShowMessage(‘不是閏年‘);
end;
9.MonthOf(所在單元：DateUtils)
功能說(shuō)明：根據指定的日期，返回月份。
參考實(shí)例：
Label1.Caption := IntToStr(MonthOf(Date));
假設當前日期為2005年1月2日，那么Label將顯示為1。
10.Now
功能說(shuō)明：返回當前日期及時(shí)間。
參考實(shí)例：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ‘現在是：‘ + DateTimeToStr(Now);
end;
11.YearOf(所在單元：DateUtils)
功能說(shuō)明：根據指定的日期，返回年。
參考實(shí)例：
Label1.Caption := IntToStr(YearOf(Date));
假設當前日期為2005年1月2日，那么Label將顯示為2005。
聯(lián)系客服
