delphi FileStream中Seek用法详情

源码资源网

delphi FileStream中Seek用法详情
在Delphi中， TFileStream 是用于文件读写操作的类。它提供了 Seek 方法来定位文件中的当前位置。
以下是 TFileStream 中 Seek 方法的详细用法示例：

1. var
   
2.   MyFileStream: TFileStream;
   
3.   Position: Int64;
   
4. begin
   
5.   MyFileStream := TFileStream.Create('myfile.txt', fmOpenReadWrite);
   
6.    // 将文件指针移动到指定位置（以字节为单位）
   
7.   Position := 100;
   
8.   MyFileStream.Seek(Position, soBeginning);
   
9.    // 在此处可以执行其他文件处理操作，如读取或写入数据
   
10.    MyFileStream.Free;  // 释放文件流对象
    
11. end;

复制代码

在上述示例中，我们创建了一个 TFileStream 对象 MyFileStream ，打开了文件 myfile.txt 以供读写操作。然后，使用 Seek 方法将文件指针移动到指定位置（以字节为单位）。你可以根据需要选择移动的位置，如从文件开头（ soBeginning ）、当前位置（ soCurrent ）或文件末尾（ soEnd ）。在定位文件指针后，你可以执行其他文件操作，如读取或写入数据。最后，记得释放 TFileStream 对象以释放资源。


TStream 有 Seek() 方法, 它的子类们(TFileStream、TMemoryStream、TBytesStream、TStringStream、TResourceStream、TStreamAdapter、THandleStream...)也都有 Seek() 方法, 且用法一样.


另外它们也都有 Position 属性, 使用 Position 属性完全可以代替 Seek() 方法, 通过 Position 还可以方便地 "读取" 当前位置;
但如果只是移动位置, 使用 Seek() 方法更方便.


方法的参数: Seek(偏移量, 偏移的起始点), 返回值是偏移后的当前位置.
偏移量: 以字节为单位, 负值表示向前偏移;
起始点: 0 表示从头算起、1 表示从当前位置算起、2 表示从尾部算起; 从尾部算起时, 偏移量应该是个负值.


指示起始点时, 可以使用 soFromBeginning、soFromCurrent、soFromEnd 三个常数, 但最好使用枚举 TSeekOrigin = (soBeginning, soCurrent, soEnd);
Seek() 方法有两个重载, 就是可以使用常数、也可以使用枚举来标识偏移的起始点.


例子:

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. var
   
3.   stream: TBytesStream; //以字节流举例
   
4.   C: Char; //用于读取字符的变量
   
5. begin
   
6.   {建立并初始化化流}
   
7.   stream := TBytesStream.Create(BytesOf('ABCDEFGHIJKLMNOPQRSTUVWXYZ'));
   
8.   ShowMessage(StringOf(stream.Bytes)); //测试赋值结果: ABCDEFGHIJKLMNOPQRSTUVWXYZ
   
9. 
   
10.   {从起始点读取一个字符}
    
11.   stream.Position := 0;
    
12.   stream.Read(C, 1);
    
13.   ShowMessage(C); //A
    
14. 
    
15.   {Read() 和 Write() 方法都会更新当前位置, 继续读取:}
    
16.   stream.Read(C, 1);
    
17.   ShowMessage(C); //B
    
18. 
    
19.   {...}
    
20.   stream.Seek(3, soBeginning);
    
21.   ShowMessage(IntToStr(stream.Position)); //3
    
22. 
    
23.   stream.Seek(2, soCurrent);
    
24.   ShowMessage(IntToStr(stream.Position)); //5
    
25. 
    
26.   stream.Seek(-2, soCurrent);
    
27.   ShowMessage(IntToStr(stream.Position)); //3
    
28. 
    
29.   stream.Seek(-1, soEnd);
    
30.   ShowMessage(IntToStr(stream.Position)); //25
    
31.   stream.Read(C, 1);
    
32.   ShowMessage(C);                         //Z
    
33. 
    
34.   stream.Seek(-stream.Size, soEnd);
    
35.   ShowMessage(IntToStr(stream.Position)); //0
    
36.   stream.Read(C, 1);
    
37.   ShowMessage(C);                         //A
    
38. 
    
39.   stream.Position := 4;
    
40.   ShowMessage(IntToStr(stream.Position)); //4
    
41.   stream.Read(C, 1);
    
42.   ShowMessage(C);                         //E
    
43. 
    
44.   stream.Free;
    
45. end;

复制代码