Delphi 數據、文件常用函數
一、數據類型轉換函數
在我們編寫程序當中，根據不同情況，會使用到多種數據類型。當要對不同的類型進行操作時，必須要將不同的類型轉換成同樣的類型。因此熟練地掌握數據類型的轉換是非常重要的。
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);//連接字符串
Delphi 數據、文件常用函數