Delphi編程中傳統文件操作與面向對象的流文件操作

1、Delphi編程中傳統文件操作與面向對象的流文件操作 Delphi的很多書講到文件操作時，都是講的以前Object Pascal的文件管理功能，其實在Delphi中我覺得更有效率的文件管理功能是使用Delphi中的流對象，使用流對象也更加符合面向對象編程的思想。使用流對象進行文件管理，與傳統的Object Pascal文件管理相比有哪些優(yōu)勢？Delphi中的流不僅僅可以針對文件管理操作，還可以處理動態(tài)內存數據、網絡數據、數據庫二進制大對象等多種形式的數據。 在Delphi中，Tstream代表所有流的基類，不過它是一個抽象類，它的各子類實現了它并形成了不同功能的流對象，如TFileStream

2、、TBlobStream、TMemoryStream等，其中TFileStream是操作文件的流類,TBlobStream是針對數據庫表中二進制大對象字段的流類，TMemoryStream是處理內存數據的流類。利用這些不同的流對象就能完成針對不同數據存儲的讀取操作。傳統文件管理要求操作文件按照一定的順序即：打開文件文件讀寫關閉文件。而流對象的操作方式與傳統的方式不同，程序員對流進行所有操作，而不用關心流的另一頭數據的真正流向，因此大大簡化了編寫程序的復雜度，使得文件處理對于用戶的透明度更高。流不但可以處理文件，還能處理動態(tài)內存數據、數據庫中的二進制大對象數據、網絡數據等多種數據存儲形式，如果我

3、們能在程序中利用流的性能，那會改善我們程序的效率。說了這么多流的好處，現在分別介紹一下傳統文件操作與流對象操作的異同。 傳統文件操作簡介：1.文件類型變量與磁盤文件的關聯 函數原型procedure AssignFile(Var F;FileName :String);F是文件類型變量，FileName表示實際文件名，也可以包括路徑。 2.文件的打開函數原型procedure Reset(Var F: File; RecSize: Word ); F是文件類型變量，其中RecSize表示每次讀取記錄的字節(jié)數。3.文件的讀寫操作 讀文件函數原型procedure BlockRead(var F:

4、 File; var Buf; Count: Integer ; var AmtTransferred: Integer);寫文件函數原型procedure BlockWrite(var f: File; var Buf; Count: Integer ; var AmtTransferred: Integer); F表示文件類型變量，Buf內存緩沖區(qū)，任意類型都可;Count讀取記錄數目;AmtTransferred表示實際讀取或者保存的記錄數目，當在正常讀取或保存時，該參數返回的值與Count相等。流對象操作方法簡介： 1.流是對象，要使用流對象就必須對其進行實例化，所以它有構造函數函數原

5、型constructor Create(const FileName: string; Mode: Word); overload; FileName表示文件名稱，也可以包括路徑；Mode以怎樣的模式創(chuàng)建流的實例。常用Mode取值及說明如下表： 2.CopyFrom函數能從其他流中復制數據 函數原型function CopyFrom(Source: TStream; Count: Int64): Int64;Source表示要從中復制數據的流對象;Count表示復制的字節(jié)數;返回實際復制的字節(jié)數。 下面我們舉一個文件復制的例子，來看看傳統的文件管理方式下與使用流對象方式下的不同之處，并能體會究

6、竟哪種方法更符合面向對象編程的要求、更便捷。這個例子以復制任意類型的文件為一個指定名稱的目標文件，下面是操作詳細步驟： 1.建立一個新的工程保存為Project1.dpr。2.在窗體中放置如下控件 兩個Tlabel組件、兩個Tedit組件、四個TButton組件，一個TopenDialog和一個TsaveDialog組件，分別設置組件的屬性，界面如圖一所示 3.編寫“傳統方式復制文件”按鈕的OnClick事件，代碼與注釋如下：procedure TForm1.Button1Click(Sender: TObject); VarSourceFile,DestFile :File; Buf :Ar

7、ray0.1023 of byte;/內存緩沖區(qū)Reads,Writes :Integer;/分別表示實際讀取和寫入的字節(jié)數 beginTry AssignFile(SourceFile,Edit1.Text);/關聯源文件Reset(SourceFile,1);/只讀方式打開源文件，并設置每次讀取記錄的字節(jié)數為1字節(jié) AssignFile(DestFile,Edit2.Text);/關聯目標文件Rewrite(DestFile,1);/以可寫覆蓋方式打開目標文件。 RepeatBlockRead(SourceFile,Buf,SizeOf(Buf),Reads);/讀取源文件SourceFi

8、le中的數據，并把每次讀取的字節(jié)數存入Reads變量中 BlockWrite(DestFile,Buf,SizeOf(Buf),Writes);/寫入Buf緩沖區(qū)的數據到目標文件DestFile中，并把每次實際寫入的字節(jié)數存入Writes變量中Until (Reads=0) or (Reads<>Writes);/當讀取的字節(jié)數等于0或者實際讀取的字節(jié)數與實際寫入的字節(jié)數不相等時，源文件已經到結尾結束文件的讀寫操作。 finallyCloseFile(SourceFile); CloseFile(DestFile);/必須關閉使用的文件，避免出現數據丟失end; end;4.編寫“

9、流方式復制文件”按鈕的OnClick事件，代碼與注釋如下： procedure TForm1.Button4Click(Sender: TObject);Var SourceStream,DestStream :TFileStream;/定義文件流類型變量begin TrySourceStream :=TFileStream.Create(Edit1.Text,fmOpenRead);/只讀方式打開源文件 DestStream :=TFileStream.Create(Edit2.Text,fmCreate);/打開目標文件，如果目標文件存在則打開它Try DestStream.CopyFrom(SourceStream,0);/從源文件的流對象中拷貝數據到目的文件的流對象中Finally DestStream.Free;End; FinallySourceStream.Free;/釋放對象 End;end; 總結：