一、資料型別轉換函式
　　在我們編寫程式當中，根據不同情況，會使用到多種資料型別。當要對不同的型別進行操作時，必須要將不同的型別轉換成同樣的型別。因此熟練地掌握資料型別的轉換是非常重要的。

　　1.FloatToStr
　　功能說明：該函式用於將“浮點型”轉換成“字元型”。

　　參考例項：

　　Edit1.Text := FloatToStr(1.981);

　　2.IntToStr
　　功能說明：該函式用於將“整數型”轉換成“字元型”。

　　參考例項：

　　S := IntToStr(10);(注：S為String型別變數。)

　　3.IntToHex
　　功能說明：該函式用於將“十進位制”轉換成“十進位制”。該函式有二個引數。第一個引數為要轉換的十進位制資料，第二個引數是指定使用多少位來顯示十六進位制資料。

　　參考例項：

　　Edit1.Text := IntToHex('100', 2);

　　執行結果，Edit1.Text等於64。

　　注意：Delphi沒有提供專門的“十六進位制”轉換為“十進位制”的函式。使用StrToInt函式可以實現這個功能。具體程式碼是：I := StrToInt('S/' + '64'); 這時I等於100。加上一個'S/'即可將“十六進位制”轉換為“十進位制”。

　　4.StrToInt
　　功能說明：該函式用於將“字元型”轉換成“整數型”。

　　參考例項：

　　I := StrToInt('100');

　　注意：不能轉換如 StrToInt('ab')或StrToInt('好')這樣的型別，因為他們並不存在數字型。

　　5.StrToFloat
　　功能說明：該函式用於將“字元型”轉換成“浮點型”。

　　參考例項：

　　N := StrToFloat(Edit1.Text);

　　注意：Edit1.Text中的內容為1.981(凡在Edit控制元件中顯示的文字均為字串)。N為Double型別，用於儲存轉換後的浮點型資料。

　　二、字串、陣列操作函式
　　對字串及陣列的操作，是每個程式設計師必須要掌握的。熟練的使用這些函式，在程式設計時能更加得心應手。

　　1.Copy
　　功能說明：該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第一個引數是資料來源(即被複制的字串)，第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度(即個數)。最後函式返回一個新的字串(即是我們指定要複製的字串內容)。

　　參考例項：

　　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個位置開始，所以第二個引數為3，“Love”一共有4個字元，所以第三個引數為4。

　　2.Concat
　　功能說明：連線兩個或多個字串為一個字串。

　　參考例項：

　　var

　　 　S1, S2: String;

　　begin

　　 　S1 := Concat('A', 'B'); // 連線兩個字串，S1變數等於AB。

　　 　S2 := Concat('Borland', ' Delphi', ' 7.0'); // 連線三個字元，S2變數等於Borland Delphi 7.0。

　　end;

　　3.Delete
　　功能說明：刪除字串中指定的字串。該函式有三個引數。第一個引數為要進行處理的字串，第二個引數為從何處開始刪除，第三個引數為刪除的字元個數。

　　參考例項：

　　var

　　 　S: String;

　　begin

　　 　S := 'I Like Reading CPCW.';

　　 　// 下面的程式碼將刪除S變數中的“C”字元。

　　 　Delete(S, 16, 1);

　　end;

　　此時S變數則是I Like Reading PCW.(“C”已經不存在了)。

　　4.High
　　功能說明：返回陣列下標的最大值。

　　參考例項：

　　var

　　 　arrText: array[0..9] of Char;

　　 　i: Integer;

　　begin

　　 　i := High(arrText); // i的值則為9

　　end;

　　5.Insert
　　功能說明：插入一個字元(串)。該函式有三個引數。第一個引數為要插入的字元(串)，第二個引數為被插入字串(源字串)，第三個引數為從何處插入。

　　參考例項：

　　var

　　 　S: String;

　　begin

　　 　S := 'Wat is your name?';

　　 　// 上面句子中的What單詞查一個“h”字元，下面使用Insert函式將h新增進去。

　　 　Insert('h', S, 2); // 將“h”從第2位處插入。

　　end;

　　6.LeftStr(所在單元：StrUtils)
　　功能說明：返回字串左邊指定個數的新字元(串)。該函式有兩個引數。第一個引數為完整的字串，第二個引數為指定個數。

　　參考例項：

　　var

　　 　S, A: String;

　　begin

　　 　S := 'MSN Messenger';

　　 A := LeftStr(S, 3); // 從最左邊開始，獲取左邊的三個字元。因此A變數則等於MSN。

　　end;

　　7.Length
　　功能說明：該函式用於統計指定字串的長度(即個數)。

　　參考例項：

　　var

　　nLen1, nLen2: Integer; // 用於儲存字串長度

　　begin

　　 　nLen1 := Length('CPCW');

　　nLen2 := Length('電腦報');

　　end;

　　執行結果，nLen1等於4，nLen2等於6。由於一個漢字相當於兩個字元的長度，所以3個漢字的長度為6。

　　8.Low
　　功能說明：返回陣列下標的最小值。

　　參考例項：

　　var

　　 　arrText: array[1..9] of Char;

　　 　i: Integer;

　　begin

　　 　i:= High(arrText); // i的值則為1

　　end;

　　9.LowerCase
　　功能說明：將字元(串)中的英文字元轉換為小寫。

　　參考例項：

　　var

　　 　S, A: String;

　　begin

　　 　S := 'ABC';

　　 　A := UpperCase(S); // 經過UpperCase函式轉換後，A則等於abc。

　　end;

　　10.MidStr(所在單元：StrUtils)
　　功能說明：返回指定範圍內的字串。該函式有三個引數。第一個引數為源字串，第二個引數為起點，第三個引數為結束點。通過第二、第三個引數則可指定要複製字串的範圍。

　　Copy函式與此函式類似。MidStr主要用於處理含有中文字元的字串。

　　參考例項：

　　var

　　 　S: String;

　　 　H: String;

　　begin

　　 　S := MidStr('China', 1, 2); // S變數為Ch

　　 　H := MidStr('電腦報', 1, 1); // H變數為“電”。如果使用Copy函式，則應是H := Copy('電腦報, 1, 2)，否則返回的將不是“電”字。因此在使用操作含有中文的字串時，最好使用MidStr。

　　end;

　　11.Pos
　　功能說明：查詢字元(串)所在位置。該函式有二個引數。第一個引數為要查詢的字元(串)，第二個引數為被查詢字元(串)。

　　參考例項：

　　var

　　 　nPos: Integer; // 用於儲存查詢的字元所在位置

　　begin

　　 　nPos := Pos('Like', 'I Like Reading!');

　　end;

　　此時nPos等於3。如果沒有查詢到，則nPos為0。

　　注意：Pos函式在查詢時是要區分字元大小的。如果要實現不區分大小，那麼需要使用UpperCase或LowerCase函式將兩個引數的字元(串)轉換為“大寫”或“小寫”再進行查詢。

　　另外還有一個查詢字元(串)的函式----AnsiPos，該函式的使用方法與Pos函式完全一樣。當你查詢的是漢字時，最好使用AnsiPos函式。

　　12.RightStr(所在單元：StrUtils)
　　功能說明：返回字串右邊指定個數的新字元(串)。該函式有兩個引數。第一個引數為完整的字串，第二個引數為指定個數。

　　參考例項：

　　var

　　 　S, A: String;

　　begin

　　 　S := 'MSN Messenger';

　　 　A := RightStr(S, 3); // 從最右邊開始，獲取右邊的三個字元。因此A變數則等於ger。

　　end;

　　13.SetLength
　　功能說明：設定字串或動態陣列長度。該函式有兩個引數。第一個引數為要設定的字串變數或動態陣列變數，第二個引數為指定的長度，其取值範圍在0到255之間。

　　參考例項：

　　var

　　 　S: String;

　　 　arrText: array of Char; // 定義一個動態陣列

　　begin

　　 　SetLength(S, 10); // 當設定後，S變數只能賦值長度為10的字串。

　　 　SetLength(arrText, 10); // 只有使用SetLength為動態陣列分配記憶體空間後才能使用動態陣列。這句程式碼的作用相當於arrText: array[0..9] of Char

　　end;

　　14.StrPCopy
　　功能說明：將字串複製到字元陣列中。該函式有兩個引數。第一個引數為“目標陣列”，第二個引數為“字串”。

　　參考例項：

　　var

　　 　arrChar: array[0..255] of Char; // 這裡聲明瞭長度為256的Char型陣列

　　begin

　　 　StrPCopy(arrChar, 'Come on, baby!');

　　end;

　　15.Trim
　　功能說明：刪除字串左右兩邊的空格(無論左右兩邊有多少個空格均被全部刪除)。

　　參考例項：

　　var

　　 　S: String;

　　begin

　　 　S := ' Delphi 7.0 ';

　　 　S := Trim(S);

　　end;

　　16.TrimLeft
　　功能說明：刪除字串左邊的空格(無論左邊有多少個空格均被全部刪除)。

　　參考例項：

　　 　S := TrimLeft(' Delphi');

　　17.TrimRight
　　功能說明：刪除字串左邊的空格(無論左邊有多少個空格均被全部刪除)。

　　參考例項：

　　 　S := TrimRight('Delphi ');

　　18.UpperCase
　　功能說明：將字元(串)中的英文字元轉換為大寫。

　　參考例項：

　　var

　　 　S, A: String;

　　begin

　　 　S := 'abc';

　　 　A := UpperCase(S); // 經過UpperCase函式轉換後，A則等於ABC。

　　end;

　　三、檔案、磁碟操作函式
　　軟體大多都要對檔案、磁碟進行操作。熟悉掌握這些函式可以幫助你輕鬆實現建立、刪除、儲存檔案等功能。

　　1.Append
　　功能說明：追加內容到檔案中。檔案必須要存在。

　　參考例項：

　　var

　　 　S: String;

　　 　F: TextFile;

　　begin

　　 　S := 'This is a book.';

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Append(F); // 以追加的方式開啟檔案

　　 　Writeln(F, S); // 將S變數中的內容追加到文字尾後。

　　 　CloseFile(F); // 關閉檔案

　　end;

　　2.AssignFile
　　功能說明：與指定的檔案建立連線。

　　參考例項：

　　var

　　 　F: TextFile; // 宣告文字檔案型別變數

　　begin

　　 　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　end;

　　3.ChDir
　　功能說明：改變當前目錄(資料夾)。

　　參考例項：

　　var

　　 　sDir: String;

　　begin

　　 　sDir := 'C:/Windows';

　　 　ChDir(sDir); // 此時，系統的當前目錄則為C:/Windows目錄。

　　end;

　　4.CloseFile
　　功能說明：關閉檔案。當對檔案的操作完成後，應該使用CloseFile函式關閉開啟的檔案。

　　參考例項：

　　var

　　 　S: String;

　　 　AllText: String;

　　 　F: TextFile;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　 　while not EOF(F) do begin // 使用While迴圈，一直判斷是否到了檔案未尾

　　 　　Readln(F, S); // 讀取一行文字

　　 　　AllText := AllText + S;

　　 　end;

　　 　CloseFile(F); // 關閉檔案

　　end;

　　5.DeleteFile
　　功能說明：刪除指定的檔案。該函式只有一個引數。此引數為欲刪除檔案的完整路徑。如果刪除成功，則返回True。若刪除失敗、或檔案不存在則返回False。

　　參考例項：

　　var

　　 　IsOK: Boolean; // 用於儲存刪除狀態

　　begin

　　 　IsOK := DeleteFile('C:/My Documents/Index.html'); // 函式執著後，將結果返回給IsOK變數。如果IsOK變數為True，則表示檔案刪除成功。

　　 　if IsOK then ShowMessage('檔案刪除成功！')

　　 　else ShowMessage('檔案刪除失敗！');

　　end;

　　6.DirectoryExists
　　功能說明：檢測指定的資料夾否存在。如果存在則返回True，反之則為False。

　　參考例項：

　　var

　　 　IsExists: Boolean;

　　begin

　　 　IsExists := DirectoryExists ('C:/Windows');

　　 　if IsExists then ShowMessage('Windows資料夾存在！')

　　 　else ShowMessage('Windows資料夾不存在！');

　　end;

　　7.DiskFree
　　功能說明：獲取指定磁碟的剩餘空間。該函式只有一個引數。該引數用於指定要獲取剩餘空間的磁碟號。當引數為0時，表示獲取當前磁碟的剩餘空間，1為A盤，2為B盤，以此類推。如果返回值為-1，表示指定的磁碟無效。

　　參考例項：

　　var

　　 　FreeSize: Int64;

　　begin

　　 　FreeSize := DiskFree(3); // 獲取C盤中的剩餘空間。返回的值是以“位元組”為單位的。

　　end;

　　8.DiskSize
　　功能說明：獲取指定磁碟的空間。該函式只有一個引數。該引數用於指定要獲取磁碟空間的磁碟號。當引數為0時，表示獲取當前磁碟的空間，1為A盤，2為B盤，以此類推。如果返回值為-1，表示指定的磁碟無效。

　　參考例項：

　　var

　　 　DiskSize: Int64;

　　begin

　　 　DiskSize:= DiskSize(3); // 獲取C盤的空間。返回的值是以“位元組”為單位的。

　　end;

　　9.EOF
　　功能說明：判斷檔案指標是否移動到了檔案未尾。當EOF函式返回值為True時，則不可以使用Readln函式進行讀取檔案了。

　　參考例項：

　　var

　　 　S: String;

　　 　AllText: String;

　　 　F: TextFile;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　 　while not EOF(F) do begin // 使用While迴圈，一直判斷是否到了檔案未尾

　　 　　Readln(F, S); // 讀取一行文字

　　 　　AllText := AllText + S;

　　 　end;

　　end;

　　10.Erase
　　功能說明：刪除檔案。

　　參考例項：

　　var

　　 　F: File;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　 　CloseFile(F); // 關閉檔案

　　 　Erase(F); // 刪除檔案。在刪除檔案之前必須先關閉檔案。

　　end;

　　11.FileExists
　　功能說明：檢測指定的檔案否存在。如果存在則返回True，反之則為False。

　　參考例項：

　　var

　　 　IsExists: Boolean;

　　begin

　　 　IsExists := FileExists('C:/Test.txt');

　　 　if IsExists then ShowMessage('該檔案存在！')

　　 　else ShowMessage('該檔案不存在！');

　　end;

　　12.FileSize
　　功能說明：獲取檔案大小。返回的結果是位元組為單位。

　　參考例項：

　　var

　　 　F: file of Byte;

　　 　nSize: Longint;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　 　nSize := FileSize(F); // 獲取檔案大小。

　　 　CloseFile(F); // 關閉檔案

　　end;

　　13.ForceDirectories
　　功能說明：建立新的子目錄。路徑中不存在的目錄將一同建立。

　　參考例項：

　　ForceDirectories('C:/Flash/MyFolder'); // 如果Flash資料夾本身不存的話，那麼將會先建立Flash資料夾，然後再建立MyFolder資料夾。

　　14.MkDir
　　功能說明：建立一個新的子目錄(資料夾)。

　　參考例項：

　　MkDir('C:/MyFolder'); // 在C盤根目錄中建立了一個名叫MyFolder的資料夾。

　　需要注意的是，如果在本身不存在的目錄中建立子目錄將會失敗。比如C盤根本不存在Flash資料夾，寫成MkDir('C:/Flash/MyFolder');這樣將不能成功建立MyFolder資料夾。

　　15.Reset
　　功能說明：以只讀方式開啟檔案。

　　參考例項：

　　var

　　 　F: TextFile; // 宣告文字檔案型別變數

　　begin

　　 　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　end;

　　16.Rewrite
　　功能說明：以可寫方式開啟檔案。如果檔案不存在，將會自動建立。使用該函式，將會覆蓋檔案中的所有內容。

　　參考例項：

　　var

　　 　F: TextFile; // 宣告文字檔案型別變數

　　begin

　　 　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Rewrite(F); // 開啟檔案。如果檔案不存在，將會在C盤中建立MyFile.txt檔案。如果檔案存在，將會覆蓋MyFile.txt中的所有內容。

　　end;

　　17.Readln
　　功能說明：讀取一行文字。

　　參考例項：

　　var

　　 　S: String;

　　 　F: TextFile;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Reset(F); // 開啟檔案

　　 　Readln(F, S); // 讀取一行文字到S變數中

　　end;

　　18.Rename
　　功能說明：更改檔名。

　　參考例項：

　　var

　　 　F: File;

　　begin

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　ReName(F, 'C:/NewFile.txt'); // 更名為NewFile.txt

　　end;

　　19.Writeln
　　功能說明：寫入一行文字。

　　參考例項：

　　var

　　 　S: String;

　　 　F: TextFile;

　　begin

　　 　S := 'This is a book.';

　　AssignFile(F, 'C:/MyFile.txt'); // 將C:/MyFile.txt檔案與F變數建立連線，後面可以使用F變數對檔案進行操作。

　　 　Rewrite(F); // 建立新檔案

　　 　Writeln(F, S); // 將S變數中的內容寫入文字中。

　　end;

　　四、記憶體、指標操作函式
　　在程式設計中，動態陣列為我們處理資料帶來了很大的方便。Windows API函式也為增強程式的功能提供了強有力的保障。當我們在使用這些動態陣列及API函式時，常常需要動態分配記憶體空間，這樣動態陣列才能被我們使用，API函式才能正確的返回結果。因此，這些函式是必不可少的。

　　1.AllocMem
　　功能說明：分配記憶體空間並自動初始化為零。如果不需要初始化為零，可以使用GetMem代替AllocMem。

　　參考例項：

　　var

　　 　Buffer: PChar;

　　begin

　　 　Buffer := AllocMem(256); // 分配大小為256個位元組的記憶體空間

　　end;

　　2.Dispose
　　功能說明：釋放為指標分配的記憶體空間。

　　參考例項：

　　var

　　 　P: Pinteger; // 宣告一個Integer(整型)指標

　　begin

　　 　New(P);

　　 　P^ := 100;

　　 　Dispose(P) // 釋放記憶體

　　end;

　　3.FreeMem
　　功能說明：釋放分配的記憶體空間。

　　參考例項：

　　var

　　 　Buffer: Pchar;

　　begin

　　 　GetMem(Buffer, 256); // 分配大小為256個位元組的記憶體空間。

　　 　FreeMem(Buffer); // 釋放記憶體空間

　　end;

　　4.GetMem
　　功能說明：分配記憶體空間。

　　參考例項：

　　var

　　 　Buffer: PChar;

　　begin

　　 　GetMem(Buffer, 256); // 分配大小為256個位元組的記憶體空間。

　　end;

　　5.New
　　功能說明：為指標分配記憶體空間。

　　參考例項：

　　var

　　 　P: PInteger; // 宣告一個Integer(整型)指標

　　begin

　　 　New(P); // 分配記憶體

　　 　P^ := 100; // 賦值

　　end;

　　五、數學運算函式
　　我們在編寫跟數學緊密相關的程式時，數學運算函式將大有用處。比如影象處理軟體，就會大量用到這些數學運算函式。

　　預設情況下，Delphi新建的工程裡，沒有包含大多數的數學執行函式，因此需要在Uses中加入Math單元。

　　1.Abs
　　功能說明：求絕對值。

　　參考例項：

　　var

　　 　r: Single;

　　 　i: Integer;

　　begin

　　 　r := Abs(-2.8); // r等於 2.8

　　 　i := Abs(-156); // I 等於 156

　　end;

　　2.Exp
　　功能說明：Exp返回e的X次冪的值，其中e是一個自然對數基底。

　　參考例項：

　　 　e := Exp(1.0); // e為real型變數

　　end;

　　3.Floor
　　功能說明：取得小於等於X的最大的整數。

　　參考例項：

　　Floor(-2.8) = -3

　　Floor(2.8) = 2

　　Floor(-1.0) = -1

　　4.Int
　　功能說明：返回引數中的整數部分。

　　參考例項：

　　var

　　 　R: Real;

　　begin

　　 　R := Int(123.456); // R等於 123.0

　　 　R := Int(-123.456); // R等於 -123.0

　　end;

　　5.Max(所在單元：Math)
　　功能說明：比較兩個數字，並返回最大的一個數字。

　　參考例項：

　　var

　　 　k: Integer;

　　begin

　　 　k := Max(10, 20); // k將為20

　　end;

　　6.Min(所在單元：Math)
　　功能說明：比較兩個數字，並返回最小的一個數字。

　　參考例項：

　　var

　　 　k: Integer;

　　begin

　　 　k := Min(10, 20); // k將為10

　　end;

　　7.PI
　　功能說明：精確計算返回圓周率。

　　參考例項：

　　var

　　 　x Extended;

　　begin

　　 　x := PI; // x等於3.1415926535897932385

　　end;

　　8.Round
　　功能說明：對一個實數進行四捨五入。

　　參考例項：

　　var

　　 　I, j: Integer;

　　begin

　　 　i := Round(1.25); // i等於1

　　 　j := Round(1.62); // j等於2

　　end;

　　9.Sqr
　　功能說明：取給定值的平方。

　　參考例項：

　　var

　　 i: Integer;

　　begin

　　 i := Sqr(3); // i等於9

　　end;

　　六、日期函式
　　對日期的處理，一般在有日期限制的共享、商業軟體中經常使用到。如果你打算編寫一款有日期限制的軟體，熟悉使用下面的函式即可以實現。

　　1.Date
　　功能說明：返回當前的日期。

　　參考例項：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 　Label1.Caption := '今天是：' + DateToStr(Date);

　　end;

　　Label顯示為：今天是2005年1月1日。

　　2.DateToStr
　　功能說明：將日期型轉換為字元型。

　　參考例項：

　　var

　　 　S: String;

　　begin

　　 　S := DateToStr(Date);

　　end;

　　3.DateTimeToStr
　　功能說明：將DateTime型轉換為字元型。

　　參考例項：

　　var

　　 　S: String;

　　begin

　　 　S := DateTimeToStr(Now);

　　end;

　　4.DayOfTheMonth(所在單元：DateUtils)
　　功能說明：獲取指定日期的日。

　　參考例項：

　　Label1.Caption := IntToStr(DayOfTheMonth(Now));

　　假設當前日期為2005年1月2日，那麼Label將顯示為2。

　　5.DayOfTheWeek(所在單元：DateUtils)
　　功能說明：根據指定日期，獲取星期幾。

　　參考例項：

　　Label1.Caption := IntToStr(DayOfTheMonth(Now));

　　假設當前日期為2005年1月2日，那麼Label將顯示為7。根據返回的值來判斷是周幾。7表示星期天，1為星期一，依類類推。

　　6.DayOfTheYear(所在單元：DateUtils)
　　功能說明：根據指定日期，獲取天數。

　　參考例項：

　　Label1.Caption := IntToStr(DayOfTheYear(Now));

　　假設當前日期為2005年1月2日，那麼Label將顯示為2。表示是2005年的第2天。

　　7.DayOf(所在單元：DateUtils)
　　功能說明：根據指定的日期，返回日。

　　參考例項：

　　Label1.Caption := IntToStr(DayOf(Date));

　　假設當前日期為2005年1月2日，那麼Label將顯示為2。

　　8.IsLeapYear
　　功能說明：根據指定的年，判斷是否為閏年。可使用YearOf函式獲取年。

　　參考例項：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 　if IsLeapYear(YearOf(Date)) then ShowMessage('是閏年')

　　 　else ShowMessage('不是閏年');

　　end;

　　9.MonthOf(所在單元：DateUtils)
　　功能說明：根據指定的日期，返回月份。

　　參考例項：

　　Label1.Caption := IntToStr(MonthOf(Date));

　　假設當前日期為2005年1月2日，那麼Label將顯示為1。

　　10.Now
　　功能說明：返回當前日期及時間。

　　參考例項：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 　Label1.Caption := '現在是：' + DateTimeToStr(Now);

　　end;

　　11.YearOf(所在單元：DateUtils)
　　功能說明：根據指定的日期，返回年。

　　參考例項：

　　Label1.Caption := IntToStr(YearOf(Date));

　　假設當前日期為2005年1月2日，那麼Label將顯示為2005。

KeyLife富翁筆記 
作者: aricyoung
標題: delphi中的Format函式詳解
關鍵字:
分類: 常用函式
密級: 保護
(評分: , 回覆: 0, 閱讀: 17) »»
Format是一個很常用，卻又似乎很煩的方法，本人試圖對這個方法的幫助進行一些翻譯，讓它有一個完整的概貌，以供大家查詢之用：

首先看它的宣告：
function Format(const Format: string; const Args: array of const): string; overload;

事實上Format方法有兩個種形式，另外一種是三個引數的，主要區別在於它是執行緒安全的，
但並不多用，所以這裡只對第一個介紹：
function Format(const Format: string; const Args: array of const): string; overload;
 
Format引數是一個格式字串，用於格式化Args裡面的值的。Args又是什麼呢，
它是一個變體陣列，即它裡面可以有多個引數，而且每個引數可以不同。
如以下例子：

Format('my name is %6s',['wind']);
返回後就是my name is wind

現在來看Format引數的詳細情況：
Format裡面可以寫普通的字串，比如'my name is',但有些格式指令字元具有特殊意義，比如"%6s"格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"開始,而以type結束，type表示一個具體的型別。中間是用來
格式化type型別的指令字元，是可選的。

先來看看type,type可以是以下字元：
d 十制數，表示一個整型值
u 和d一樣是整型值，但它是無符號的，而如果它對應的值是負的，則返回時是一個2的32次方減去這個絕對值的數,如：
Format('this is %u',[－2]);
返回的是：this is 4294967294

f 對應浮點數
e 科學表示法，對應整型數和浮點數，比如
Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,等一下再說明如果將數的精度縮小

g 這個只能對應浮點型，且它會將值中多餘的數去掉,比如
Format('this is %g',[02.200]);
返回的是：this is 2.2

n 只能對應浮點型，將值轉化為號碼的形式。看一個例子就明白了
Format('this is %n',[4552.2176]);
返回的是this is 4,552.22

  注意有兩點，一是隻表示到小數後兩位，等一下說怎麼消除這種情況, 二是，即使小數沒有被截斷，它也不會也像整數部分一樣有逗號來分開的

m錢幣型別，但關於貨幣型別有更好的格式化方法，這裡只是簡單的格式化,另外它只對應於浮點值
Format('this is %m',[9552.21]);
返回：this is ￥9,552.21

p 對應於指標型別，返回的值是指標的地址，以十六進位制的形式來表示
  例如：
var X:integer;
p:^integer;
begin
  X:=99;
  p:[email protected];
  Edit1.Text:=Format('this is %p',[p]);
end;
Edit1的內容是：this is 0012F548

s 對應字串型別，不用多說了吧
x 必須是一個整形值，以十六進位制的形式返回
Edit1.Text:=Format('this is %X',[15]);
返回是：this is F

型別講述完畢，下面介紹格式化Type的指令：
[index ":"]這個要怎麼表達呢，看一個例子
Format('this is %d %d',[12,13]);
其中第一個%d的索引是0，第二個%d是1，所以字元顯示的時候是這樣 this is 12 13

而如果你這樣定義：
Format('this is %1:d %0:d',[12,13]);
那麼返回的字串就變成了this is 13 12。現在明白了嗎，[index ":"] 中的index指示Args中引數顯示的順序還有一種情況，如果這樣
Format('%d %d %d %0:d %d', [1, 2, 3, 4])
將返回1 2 3 1 2。

如果你想返回的是1 2 3 1 4，必須這樣定：
Format('%d %d %d %0:d %3:d', [1, 2, 3, 4])

但用的時候要注意，索引不能超出Args中的個數，不然會引起異常如
Format('this is %2:d %0:d',[12,13]);
由於Args中只有12 13 兩個數，所以Index只能是0或1，這裡為2就錯了[width] 指定將被格式化的值佔的寬度，看一個例子就明白了

Format('this is %4d',[12]);
輸出是：this is   12,這個是比較容易，不過如果Width的值小於引數的長度，則沒有效果。
如：

Format('this is %1d',[12]);
輸出是：this is 12

["-"]這個指定引數向左齊，和[width]合在一起最可以看到效果：
Format('this is %-4d,yes',[12]);
輸出是：this is 12   ,yes

["." prec] 指定精度，對於浮點數效果最佳：
Format('this is %.2f',['1.1234]);
輸出 this is 1.12
Format('this is %.7f',['1.1234]);
輸出了 this is 1.1234000

而對於整型數，如果prec比如整型的位數小，則沒有效果反之比整形值的位數大，則會在整型值的前面以0補之
Format('this is %.7d',[1234]);
輸出是：this is 0001234]
         
對於字元型，剛好和整型值相反，如果prec比字串型的長度大則沒有效果，反之比字串型的長度小，則會截斷尾部的字元
Format('this is %.2s',['1234']);
輸出是 this is 12,而上面說的這個例子：

Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,怎麼去掉多餘的0呢，這個就行啦

Format('this is %.2e',[-2.22]);
    
好了，第一個總算講完了，應該對他的應用很熟悉了吧

///////////////////////////////////////////////////////////////
二 FormatDateTime的用法
他的宣告為：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
overload;

當然和Format一樣還有一種，但這裡只介紹常用的第一種,Format引數是一個格式化字串。DateTime是時間型別。返回值是一種格式化後的字串,重點來看Format引數中的指令字元

c 以短時間格式顯示時間，即全部是數字的表示
FormatdateTime('c',now);
輸出為：2004-8-7 9:55:40

d 對應於時間中的日期，日期是一位則顯示一位，兩位則顯示兩位
FormatdateTime('d',now);
輸出可能為1～31

dd 和d的意義一樣，但它始終是以兩位來顯示的
FormatdateTime('dd',now);
輸出可能為01～31

ddd 顯示的是星期幾
FormatdateTime('ddd',now);
輸出為: 星期六

dddd 和ddd顯示的是一樣的。 但上面兩個如果在其他國家可能不一樣。ddddd 以短時間格式顯示年月日
FormatdateTime('ddddd',now);
輸出為：2004-8-7

dddddd 以長時間格式顯示年月日
FormatdateTime('dddddd',now);
輸出為：2004年8月7日

e/ee/eee/eeee 以相應的位數顯示年
FormatdateTime('ee',now);
輸出為：04  （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
輸出為：8
FormatdateTime('mm',now);
輸出為  08
FormatdateTime('mmm',now);
輸出為  八月
FormatdateTime('mmmm',now);
輸出為  八月

 和ddd/dddd 一樣，在其他國家可能不同yy/yyyy 表示年
FormatdateTime('yy',now);
輸出為 04
FormatdateTime('yyyy',now);
輸出為 2004,

h/hh,n/nn,s/ss,z/zzz 分別表示小時，分，秒,毫秒

t  以短時間格式顯示時間
FormatdateTime('t',now);
輸出為 10:17

tt 以長時間格式顯示時間
FormatdateTime('tt',now);
輸出為10:18:46

ampm 以長時間格式顯示上午還是下午
FormatdateTime('ttampm',now);
輸出為：10:22:57上午

大概如此，如果要在Format中加普通的字串，可以用雙引號隔開那些特定義的字元，這樣普通字串中如果含特殊的字元就不會被顯示為時間格式啦：
FormatdateTime('"today is" c',now);
 輸出為：today is 2004-8-7 10:26:58

時間中也可以加"-"或"/"來分開日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy/mm/dd',now);
輸出為： today is 04-08-07

也可以用":"來分開時間 
FormatdateTime('"today is" hh:nn:ss',now);
輸出為：today is 10:32:23

/////////////////////////////////////////////////////////////////
三.FormatFloat的用法

常用的宣告：
function FormatFloat(const Format: string; Value: Extended): string; overload;

和上面一樣Format引數為格式化指令字元，Value為Extended型別為什麼是這個型別，因為它是所有浮點值中表示範圍最大的，如果傳入該方法的引數比如Double或者其他，則可以儲存不會超出範圍。

關鍵是看Format引數的用法
0  這個指定相應的位數的指令。
   比如：
FormatFloat('000.000',22.22);
輸出的就是022.220
 
注意一點，如果整數部分的0的個數小於Value引數中整數的位數，則沒有效果如：
FormatFloat('0.00',22.22);
輸出的是：22.22

但如果小數部分的0小於Value中小數的倍數，則會截去相應的小數和位數如：
FormatFloat('0.0',22.22);
輸出的是：22.2
  
也可以在整數0中指定逗號，這個整數位數必須大於3個，才會有逗號出句
FormatFloat('0,000.0',2222.22);
輸出是：2,222.2

如果這樣
FormatFloat('000,0.0',2222.22);
它的輸出還是：2,222.2

注意它的規律,#和0的用法一樣，目前我還沒有測出有什麼不同。

FormatFloat('##.##',22.22);
輸出是：22.00

E  科學表示法，看幾個例子大概就明白了
FormatFloat('0.00E+00',2222.22);
輸出是 2.22E+03
FormatFloat('0000.00E+00',2222.22);
輸出是 2222.22E+00
FormatFloat('00.0E+0',2222.22);
 22.2E+2
明白了嗎，全靠E右邊的0來支配的。
  
這個方法並不難，大概就是這樣子了。

上面三個方法是很常用的，沒有什麼技巧，只要記得這些規範就行了。

總結一下Format的用法:

Format('x=%d',[12]);//'x=12'//最普通
Format('x=%3d',[12]);//'x=12'//指定寬度
Format('x=%f',[12.0]);//'x=12.00'//浮點數
Format('x=%.3f',[12.0]);//'x=12.000'//指定小數
Format('x=%8.2f'[12.0])//'x=12.00';
Format('x=%.*f',[5,12.0]);//'x=12.00000'//動態配置
Format('x=%.5d',[12]);//'x=00012'//前面補充0
Format('x=%.5x',[12]);//'x=0000C'//十六進位制
Format('x=%1:d%0:d',[12,13]);//'x=1312'//使用索引
Format('x=%p',[nil]);//'x=00000000'//指標
Format('x=%1.1e',[12.0]);//'x=1.2E+001'//科學記數法
Format('x=%%',[]);//'x=%'//得到"%"
S:=Format('%s%d',[S,I]);//S:=S+StrToInt(I);//連線字串

StrPas