軟件大多都要對文件磁盤進行操作熟悉掌握這些函數可以幫助你輕松實現創建刪除保存文件等功能
Append功能說明追加內容到文件中文件必須要存在
參考實例
var
S String
F TextFile
begin
S = This is a book
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Append（F） // 以追加的方式打開文件
Writeln（F S） // 將S變量中的內容追加到文本尾後
CloseFile（F） // 關閉文件
end
AssignFile功能說明與指定的文件建立連接
參考實例
var
F TextFile // 聲明文本文件類型變量
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
end
ChDir功能說明改變當前目錄（文件夾）
參考實例
var
sDir String
begin
sDir = C\Windows
ChDir（sDir） // 此時系統的當前目錄則為C\Windows目錄
end
CloseFile功能說明關閉文件當對文件的操作完成後應該使用CloseFile函數關閉打開的文件
參考實例
var
S String
AllText String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
while not EOF（F） do begin // 使用While循環一直判斷是否到了文件未尾
Readln（F S） // 讀取一行文本
AllText = AllText + S
end
CloseFile（F） // 關閉文件
end
DeleteFile功能說明刪除指定的文件該函數只有一個參數此參數為欲刪除文件的完整路徑如果刪除成功則返回True若刪除失敗或文件不存在則返回False
參考實例
var
IsOK Boolean // 用於保存刪除狀態
begin
IsOK = DeleteFile（C\My Documents\l） // 函數執著後將結果返回給IsOK變量如果IsOK變量為True則表示文件刪除成功
if IsOK then ShowMessage（文件刪除成功！）
else ShowMessage（文件刪除失敗！）
end
DirectoryExists功能說明檢測指定的文件夾否存在如果存在則返回True反之則為False
參考實例
var
IsExists Boolean
begin
IsExists = DirectoryExists （C\Windows）
if IsExists then ShowMessage（Windows文件夾存在！）
else ShowMessage（Windows文件夾不存在！）
end
DiskFree功能說明獲取指定磁盤的剩余空間該函數只有一個參數該參數用於指定要獲取剩余空間的磁盤號當參數為時表示獲取當前磁盤的剩余空間為A盤為B盤以此類推如果返回值為
表示指定的磁盤無效
參考實例
var
FreeSize Int
begin
FreeSize = DiskFree（） // 獲取C盤中的剩余空間返回的值是以字節為單位的
end
DiskSize功能說明獲取指定磁盤的空間該函數只有一個參數該參數用於指定要獲取磁盤空間的磁盤號當參數為時表示獲取當前磁盤的空間為A盤為B盤以此類推如果返回值為表示指
定的磁盤無效
參考實例
var
DiskSize Int
begin
DiskSize= DiskSize（） // 獲取C盤的空間返回的值是以字節為單位的
end
EOF功能說明判斷文件指針是否移動到了文件未尾當EOF函數返回值為True時則不可以使用Readln函數進行讀取文件了
參考實例
var
S String
AllText String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
while not EOF（F） do begin // 使用While循環一直判斷是否到了文件未尾
Readln（F S） // 讀取一行文本
AllText = AllText + S
end
end
Erase功能說明刪除文件
參考實例
var
F File
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
CloseFile（F） // 關閉文件
Erase（F） // 刪除文件在刪除文件之前必須先關閉文件
end
FileExists功能說明檢測指定的文件否存在如果存在則返回True反之則為False
參考實例
var
IsExists Boolean
begin
IsExists = FileExists（C\Testtxt）
if IsExists then ShowMessage（該文件存在！）
else ShowMessage（該文件不存在！）
end
FileSize功能說明獲取文件大小返回的結果是字節為單位
參考實例
var
F file of Byte
nSize Longint
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
nSize = FileSize（F） // 獲取文件大小
CloseFile（F） // 關閉文件
end
ForceDirectories功能說明創建新的子目錄路徑中不存在的目錄將一同創建
參考實例
ForceDirectories（C\Flash\MyFolder） // 如果Flash文件夾本身不存的話那麼將會先創建Flash文件夾然後再創建MyFolder文件夾
MkDir功能說明創建一個新的子目錄（文件夾）
參考實例
MkDir（C\MyFolder） // 在C盤根目錄中創建了一個名叫MyFolder的文件夾
需要注意的是如果在本身不存在的目錄中創建子目錄將會失敗比如C盤根本不存在Flash文件夾寫成MkDir（C\Flash\MyFolder）這樣將不能成功創建MyFolder文件夾
Reset功能說明以只讀方式打開文件
參考實例
var
F TextFile // 聲明文本文件類型變量
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
end
Rewrite功能說明以可寫方式打開文件如果文件不存在將會自動創建使用該函數將會覆蓋文件中的所有內容
參考實例
var
F TextFile // 聲明文本文件類型變量
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Rewrite（F） // 打開文件如果文件不存在將會在C盤中創建MyFiletxt文件如果文件存在將會覆蓋MyFiletxt中的所有內容
end
Readln功能說明讀取一行文本
參考實例
var
S String
F TextFile
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Reset（F） // 打開文件
Readln（F S） // 讀取一行文本到S變量中
end
Rename功能說明更改文件名
參考實例
var
F File
begin
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
ReName（F C\NewFiletxt） // 更名為NewFiletxt
end
Writeln功能說明寫入一行文本
參考實例
var
S String
F TextFile
begin
S = This is a book
AssignFile（F C\MyFiletxt） // 將C\MyFiletxt文件與F變量建立連接後面可以使用F變量對文件進行操作
Rewrite（F） // 創建新文件
Writeln（F S） // 將S變量中的內容寫入文本中
end
From:http://tw.wingwit.com/Article/program/Delphi/201311/8445.html
