| 5.DeleteFile 功能說(shuō)明：刪除指定的文件。該函數(shù)只有一個(gè)參數(shù)。此參數(shù)為欲刪除文件的完整路徑。如果刪除成功，則返回True。若刪除失敗、或文件不存在則返回False。 參考實(shí)例： var IsOK: Boolean; // 用于保存刪除狀態(tài) begin IsOK := DeleteFile('C:\My Documents\Index.html'); // 函數(shù)執(zhí)著后，將結(jié)果返回給IsOK變量。如果IsOK變量為True，則表示文件刪除成功。 if IsOK then ShowMessage('文件刪除成功！') else ShowMessage('文件刪除失敗！'); end; 6.DirectoryExists 功能說(shuō)明：檢測(cè)指定的文件夾否存在。如果存在則返回True，反之則為False。 參考實(shí)例： var IsExists: Boolean; begin IsExists := DirectoryExists ('C:\Windows'); if IsExists then ShowMessage('Windows文件夾存在！') else ShowMessage('Windows文件夾不存在！'); end; 7.DiskFree 功能說(shuō)明：獲取指定磁盤的剩余空間。該函數(shù)只有一個(gè)參數(shù)。該參數(shù)用于指定要獲取剩余空間的磁盤號(hào)。當(dāng)參數(shù)為0時(shí)，表示獲取當(dāng)前磁盤的剩余空間，1為A盤，2為B盤，以此類推。如果返回值為-1，表示指定的磁盤無(wú)效。 參考實(shí)例： var FreeSize: Int64; begin FreeSize := DiskFree(3); // 獲取C盤中的剩余空間。返回的值是以“字節(jié)”為單位的。 end; 8.DiskSize 功能說(shuō)明：獲取指定磁盤的空間。該函數(shù)只有一個(gè)參數(shù)。該參數(shù)用于指定要獲取磁盤空間的磁盤號(hào)。當(dāng)參數(shù)為0時(shí)，表示獲取當(dāng)前磁盤的空間，1為A盤，2為B盤，以此類推。如果返回值為-1，表示指定的磁盤無(wú)效。 參考實(shí)例： var DiskSize: Int64; begin DiskSize:= DiskSize(3); // 獲取C盤的空間。返回的值是以“字節(jié)”為單位的。 end; 9.EOF 功能說(shuō)明：判斷文件指針是否移動(dòng)到了文件未尾。當(dāng)EOF函數(shù)返回值為True時(shí)，則不可以使用Readln函數(shù)進(jìn)行讀取文件了。 參考實(shí)例： var S: String; AllText: String; F: TextFile; begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Reset(F); // 打開文件 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變量對(duì)文件進(jìn)行操作。 Reset(F); // 打開文件 CloseFile(F); // 關(guān)閉文件 Erase(F); // 刪除文件。在刪除文件之前必須先關(guān)閉文件。 end; 11.FileExists 功能說(shuō)明：檢測(cè)指定的文件否存在。如果存在則返回True，反之則為False。 參考實(shí)例： var IsExists: Boolean; begin IsExists := FileExists('C:\Test.txt'); if IsExists then ShowMessage('該文件存在！') else ShowMessage('該文件不存在！'); end; 12.FileSize 功能說(shuō)明：獲取文件大小。返回的結(jié)果是字節(jié)為單位。 參考實(shí)例： var F: file of Byte; nSize: Longint; begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Reset(F); // 打開文件 nSize := FileSize(F); // 獲取文件大小。 CloseFile(F); // 關(guān)閉文件 end; 13.ForceDirectories 功能說(shuō)明：創(chuàng)建新的子目錄。路徑中不存在的目錄將一同創(chuàng)建。 參考實(shí)例： ForceDirectories('C:\Flash\MyFolder'); // 如果Flash文件夾本身不存的話，那么將會(huì)先創(chuàng)建Flash文件夾，然后再創(chuàng)建MyFolder文件夾。 14.MkDir 功能說(shuō)明：創(chuàng)建一個(gè)新的子目錄(文件夾)。 參考實(shí)例： MkDir('C:\MyFolder'); // 在C盤根目錄中創(chuàng)建了一個(gè)名叫MyFolder的文件夾。 需要注意的是，如果在本身不存在的目錄中創(chuàng)建子目錄將會(huì)失敗。比如C盤根本不存在Flash文件夾，寫成MkDir('C:\Flash\MyFolder');這樣將不能成功創(chuàng)建MyFolder文件夾。 15.Reset 功能說(shuō)明：以只讀方式打開文件。 參考實(shí)例： var F: TextFile; // 聲明文本文件類型變量 begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Reset(F); // 打開文件 end; 16.Rewrite 功能說(shuō)明：以可寫方式打開文件。如果文件不存在，將會(huì)自動(dòng)創(chuàng)建。使用該函數(shù)，將會(huì)覆蓋文件中的所有內(nèi)容。 參考實(shí)例： var F: TextFile; // 聲明文本文件類型變量 begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Rewrite(F); // 打開文件。如果文件不存在，將會(huì)在C盤中創(chuàng)建MyFile.txt文件。如果文件存在，將會(huì)覆蓋MyFile.txt中的所有內(nèi)容。 end; 17.Readln 功能說(shuō)明：讀取一行文本。 參考實(shí)例： var S: String; F: TextFile; begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Reset(F); // 打開文件 Readln(F, S); // 讀取一行文本到S變量中 end; 18.Rename 功能說(shuō)明：更改文件名。 參考實(shí)例： var F: File; begin AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 ReName(F, 'C:\NewFile.txt'); // 更名為NewFile.txt end; 19.Writeln 功能說(shuō)明：寫入一行文本。 參考實(shí)例： var S: String; F: TextFile; begin S := 'This is a book.'; AssignFile(F, 'C:\MyFile.txt'); // 將C:\MyFile.txt文件與F變量建立連接，后面可以使用F變量對(duì)文件進(jìn)行操作。 Rewrite(F); // 創(chuàng)建新文件 Writeln(F, S); // 將S變量中的內(nèi)容寫入文本中。 end; 四、內(nèi)存、指針操作函數(shù) 在編程中，動(dòng)態(tài)數(shù)組為我們處理數(shù)據(jù)帶來(lái)了很大的方便。Windows API函數(shù)也為增強(qiáng)程序的功能提供了強(qiáng)有力的保障。當(dāng)我們?cè)谑褂眠@些動(dòng)態(tài)數(shù)組及API函數(shù)時(shí)，常常需要?jiǎng)討B(tài)分配內(nèi)存空間，這樣動(dòng)態(tài)數(shù)組才能被我們使用，API函數(shù)才能正確的返回結(jié)果。因此，這些函數(shù)是必不可少的。 1.AllocMem 功能說(shuō)明：分配內(nèi)存空間并自動(dòng)初始化為零。如果不需要初始化為零，可以使用GetMem代替AllocMem。 參考實(shí)例： var Buffer: PChar; begin Buffer := AllocMem(256); // 分配大小為256個(gè)字節(jié)的內(nèi)存空間 end; 2.Dispose 功能說(shuō)明：釋放為指針?lè)峙涞膬?nèi)存空間。 參考實(shí)例： var P: Pinteger; // 聲明一個(gè)Integer(整型)指針 begin New(P); P^ := 100; Dispose(P) // 釋放內(nèi)存 end; 3.FreeMem 功能說(shuō)明：釋放分配的內(nèi)存空間。 參考實(shí)例： var Buffer: Pchar; begin GetMem(Buffer, 256); // 分配大小為256個(gè)字節(jié)的內(nèi)存空間。 FreeMem(Buffer); // 釋放內(nèi)存空間 end; 4.GetMem 功能說(shuō)明：分配內(nèi)存空間。 參考實(shí)例： var Buffer: PChar; begin GetMem(Buffer, 256); // 分配大小為256個(gè)字節(jié)的內(nèi)存空間。 end; 5.New 功能說(shuō)明：為指針?lè)峙鋬?nèi)存空間。 參考實(shí)例： var P: PInteger; // 聲明一個(gè)Integer(整型)指針 begin New(P); // 分配內(nèi)存 P^ := 100; // 賦值 end; 五、數(shù)學(xué)運(yùn)算函數(shù) 我們?cè)诰帉懜鷶?shù)學(xué)緊密相關(guān)的程序時(shí)，數(shù)學(xué)運(yùn)算函數(shù)將大有用處。比如圖像處理軟件，就會(huì)大量用到這些數(shù)學(xué)運(yùn)算函數(shù)。 默認(rèn)情況下，Delphi新建的工程里，沒(méi)有包含大多數(shù)的數(shù)學(xué)運(yùn)行函數(shù)，因此需要在Uses中加入Math單元。 1.Abs 功能說(shuō)明：求絕對(duì)值。 參考實(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è)自然對(duì)數(shù)基底。 參考實(shí)例： e := Exp(1.0); // e為real型變量 end; 3.Floor 功能說(shuō)明：取得小于等于X的最大的整數(shù)。 參考實(shí)例： Floor(-2.8) = -3 Floor(2.8) = 2 Floor(-1.0) = -1 4.Int 功能說(shuō)明：返回參數(shù)中的整數(shù)部分。 參考實(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è)數(shù)字，并返回最大的一個(gè)數(shù)字。 參考實(shí)例： var k: Integer; begin k := Max(10, 20); // k將為20 end; 6.Min(所在單元：Math) 功能說(shuō)明：比較兩個(gè)數(shù)字，并返回最小的一個(gè)數(shù)字。 參考實(shí)例： var k: Integer; begin k := Min(10, 20); // k將為10 end; 7.PI 功能說(shuō)明：精確計(jì)算返回圓周率。 參考實(shí)例： |
