2019獨角獸企業重金招聘Python工程師標準>>>

在Delphi中，所有流對象的基類為TStream類，

其中定義了所有流的共同屬性和方法。TStream類中定義的屬性介紹如下：1、Size: 此屬性以字節返回流中數據大小。2、Position: 此屬性控制流中存取指針的位置。Tstream中定義的虛方法有四個：1、Read:此方法實現將數據從流中讀出。函數原形為：Function Read(var Buffer;Count:Longint):Longint; virtual;abstract;參數Buffer為數據讀出時放置的緩沖區，Count為需要讀出的數據的字節數，該方法返回值為實際讀出的字節數，它可以小于或等于Count中指定的值。2、Write:此方法實現將數據寫入流中。函數原形為：Function Write(var Buffer;Count:Longint):Longint;virtual;abstract;參數Buffer為將要寫入流中的數據的緩沖區，Count為數據的長度字節數，該方法返回值為實際寫入流中的字節數。3、Seek:此方法實現流中讀取指針的移動。函數原形為：Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;參數Offset為偏移字節數,參數Origint指出Offset的實際意義，其可能的取值如下：soFromBeginning:Offset為移動后指針距離數據開始的位置。此時Offset必須大于或者等于零。soFromCurrent:Offset為移動后指針與當前指針的相對位置。soFromEnd:Offset為移動后指針距離數據結束的位置。此時Offset必須小于或者等于零。該方法返回值為移動后指針的位置。4、Setsize:此方法實現改變數據的大小。函數原形為：Function Setsize(NewSize:Longint);virtual;另外，TStream類中還定義了幾個靜態方法：1、ReadBuffer:此方法的作用是從流中當前位置讀取數據。函數原形為：Procedure ReadBuffer(var Buffer;Count:Longint);參數的定義跟上面的Read相同。注意：當讀取的數據字節數與需要讀取的字節數不相同時，將產生EReadError異常。2、WriteBuffer:此方法的作用是在當前位置向流寫入數據。函數原形為：Procedure WriteBuffer(var Buffer;Count:Longint);參數的定義跟上面的Write相同。注意：當寫入的數據字節數與需要寫入的字節數不相同時，將產生EWriteError異常。3、CopyFrom:此方法的作用是從其它流中拷貝數據流。函數原形為：Function CopyFrom(Source:TStream;Count:Longint):Longint;參數Source為提供數據的流，Count為拷貝的數據字節數。當Count大于0時，CopyFrom從Source參數的當前位置拷貝Count個字節的數據；當Count等于0時，CopyFrom設置Source參數的Position屬性為0,然后拷貝Source的所有數據；TStream還有其它派生類，其中最常用的是TFileStream類。使用TFileStream類來存取文件，首先要建立一個實例。聲明如下：constructor Create(const Filename:string;Mode:Word);Filename為文件名（包括路徑）,參數Mode為打開文件的方式，它包括文件的打開模式和共享模式，其可能的取值和意義如下：打開模式：fmCreate :用指定的文件名建立文件，如果文件已經存在則打開它。fmOpenRead :以只讀方式打開指定文件fmOpenWrite :以只寫方式打開指定文件fmOpenReadWrite:以寫寫方式打開指定文件共享模式：fmShareCompat :共享模式與FCBs兼容fmShareExclusive:不允許別的程序以任何方式打開該文件fmShareDenyWrite:不允許別的程序以寫方式打開該文件fmShareDenyRead :不允許別的程序以讀方式打開該文件fmShareDenyNone :別的程序可以以任何方式打開該文件TStream還有一個派生類TMemoryStream，實際應用中用的次數也非常頻繁。它叫內存流，就是說在內存中建立一個流對象。它的基本方法和函數跟上面是一樣的。寫流：如果把文本框中的字符串寫入流中，最好使用字符指針Pchar.例如：varpstr:Pchar;mestr:string;FS:TFilestream;beginFS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmCreate );mestr:=edit1.text;pstr:=Pchar(mestr);//把字符串轉成字符指針FS.Writebuffer(pstr^,Length(pstr));//把字符串寫入流中讀流流的讀取比寫入要困難一些，下面談讀流的幾個注意點:1.如果是字符串的讀取，最好也使用字符指針Pchar2.要給字符指針申請內存用GetMem3.要把字針轉成字符型,直接付值就行4.要限定字符串長度,用SetLength,這條是很關鍵的5.要釋放內存用FreeMemvarpstr:Pchar;mestr:string;FS:TFilestream;meint:integer;beginFS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmOpenRead );getmem(pstr,meint);//申請字符指針內存fs.Readbuffer(pstr^,meint);//在流里讀出meint大小的字符串到字符指針mestr:=pstr;//字符指針轉成字符SetLength(mestr,meint);//限定字符大小 freemem(Pstr);//釋放內存FS.Free;//釋放流end;

轉載于:https://my.oschina.net/u/582827/blog/1488591

總結

以上是生活随笔為你收集整理的Delphi中流对象 TStream的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。