上傳人：大***

認(rèn)證信息

認(rèn)證類(lèi)型：個(gè)人認(rèn)證

認(rèn)證主體：庾**（實(shí)名認(rèn)證）

IP屬地：江西

IP屬地：江西 上傳時(shí)間：2021-12-16 格式：DOC 頁(yè)數(shù)：4 大?。?2.50KB 積分：12 舉報(bào) 版權(quán)申訴

1、Delphi編程中傳統(tǒng)文件操作與面向?qū)ο蟮牧魑募僮?Delphi的很多書(shū)講到文件操作時(shí)，都是講的以前Object Pascal的文件管理功能，其實(shí)在Delphi中我覺(jué)得更有效率的文件管理功能是使用Delphi中的流對(duì)象，使用流對(duì)象也更加符合面向?qū)ο缶幊痰乃枷?。使用流?duì)象進(jìn)行文件管理，與傳統(tǒng)的Object Pascal文件管理相比有哪些優(yōu)勢(shì)？Delphi中的流不僅僅可以針對(duì)文件管理操作，還可以處理動(dòng)態(tài)內(nèi)存數(shù)據(jù)、網(wǎng)絡(luò)數(shù)據(jù)、數(shù)據(jù)庫(kù)二進(jìn)制大對(duì)象等多種形式的數(shù)據(jù)。 在Delphi中，Tstream代表所有流的基類(lèi)，不過(guò)它是一個(gè)抽象類(lèi)，它的各子類(lèi)實(shí)現(xiàn)了它并形成了不同功能的流對(duì)象，如TFileStream

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

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

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

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

6、竟哪種方法更符合面向?qū)ο缶幊痰囊?、更便捷。這個(gè)例子以復(fù)制任意類(lèi)型的文件為一個(gè)指定名稱的目標(biāo)文件，下面是操作詳細(xì)步驟： 1.建立一個(gè)新的工程保存為Project1.dpr。2.在窗體中放置如下控件 兩個(gè)Tlabel組件、兩個(gè)Tedit組件、四個(gè)TButton組件，一個(gè)TopenDialog和一個(gè)TsaveDialog組件，分別設(shè)置組件的屬性，界面如圖一所示 3.編寫(xiě)“傳統(tǒng)方式復(fù)制文件”按鈕的OnClick事件，代碼與注釋如下：procedure TForm1.Button1Click(Sender: TObject); VarSourceFile,DestFile :File; Buf :Ar

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

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

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