依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

限时开通VIP永久会员,可免费下载所有附件
查看: 98|回复: 0

delphi FileStream中Seek用法详情

[复制链接] |主动推送

1686

主题

1721

帖子

2378

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2378
发表于 2023-9-20 11:24:19 | 显示全部楼层 |阅读模式
delphi FileStream中Seek用法详情
在Delphi中, TFileStream 是用于文件读写操作的类。它提供了 Seek 方法来定位文件中的当前位置。
以下是 TFileStreamSeek 方法的详细用法示例:
  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.   stream.Position := 0;
  11.   stream.Read(C, 1);
  12.   ShowMessage(C); //A

  13.   {Read() 和 Write() 方法都会更新当前位置, 继续读取:}
  14.   stream.Read(C, 1);
  15.   ShowMessage(C); //B

  16.   {...}
  17.   stream.Seek(3, soBeginning);
  18.   ShowMessage(IntToStr(stream.Position)); //3

  19.   stream.Seek(2, soCurrent);
  20.   ShowMessage(IntToStr(stream.Position)); //5

  21.   stream.Seek(-2, soCurrent);
  22.   ShowMessage(IntToStr(stream.Position)); //3

  23.   stream.Seek(-1, soEnd);
  24.   ShowMessage(IntToStr(stream.Position)); //25
  25.   stream.Read(C, 1);
  26.   ShowMessage(C);                         //Z

  27.   stream.Seek(-stream.Size, soEnd);
  28.   ShowMessage(IntToStr(stream.Position)); //0
  29.   stream.Read(C, 1);
  30.   ShowMessage(C);                         //A

  31.   stream.Position := 4;
  32.   ShowMessage(IntToStr(stream.Position)); //4
  33.   stream.Read(C, 1);
  34.   ShowMessage(C);                         //E

  35.   stream.Free;
  36. end;
复制代码



您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|手机版|依星源码资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-2-23 04:35

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表