熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI文件、磁盤操作函數

2022-06-13   來源: Delphi編程 

  軟件大多都要對文件磁盤進行操作熟悉掌握這些函數可以幫助你輕松實現創建刪除保存文件等功能

  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
    推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.