在Delphi中, TFileStream
是用于文件读写操作的类。它提供了 Seek
方法来定位文件中的当前位置。以下是 TFileStream
中 Seek
方法的详细用法示例:
var
MyFileStream: TFileStream;
Position: Int64;
begin
MyFileStream := TFileStream.Create('myfile.txt', fmOpenReadWrite);
// 将文件指针移动到指定位置(以字节为单位)
Position := 100;
MyFileStream.Seek(Position, soBeginning);
// 在此处可以执行其他文件处理操作,如读取或写入数据
MyFileStream.Free; // 释放文件流对象
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() 方法有两个重载, 就是可以使用常数、也可以使用枚举来标识偏移的起始点.
例子:
procedure TForm1.FormCreate(Sender: TObject);
var
stream: TBytesStream; //以字节流举例
C: Char; //用于读取字符的变量
begin
{建立并初始化化流}
stream := TBytesStream.Create(BytesOf('ABCDEFGHIJKLMNOPQRSTUVWXYZ'));
ShowMessage(StringOf(stream.Bytes)); //测试赋值结果: ABCDEFGHIJKLMNOPQRSTUVWXYZ
{从起始点读取一个字符}
stream.Position := 0;
stream.Read(C, 1);
ShowMessage(C); //A
{Read() 和 Write() 方法都会更新当前位置, 继续读取:}
stream.Read(C, 1);
ShowMessage(C); //B
{...}
stream.Seek(3, soBeginning);
ShowMessage(IntToStr(stream.Position)); //3
stream.Seek(2, soCurrent);
ShowMessage(IntToStr(stream.Position)); //5
stream.Seek(-2, soCurrent);
ShowMessage(IntToStr(stream.Position)); //3
stream.Seek(-1, soEnd);
ShowMessage(IntToStr(stream.Position)); //25
stream.Read(C, 1);
ShowMessage(C); //Z
stream.Seek(-stream.Size, soEnd);
ShowMessage(IntToStr(stream.Position)); //0
stream.Read(C, 1);
ShowMessage(C); //A
stream.Position := 4;
ShowMessage(IntToStr(stream.Position)); //4
stream.Read(C, 1);
ShowMessage(C); //E
stream.Free;
end;