同志们，请教对于文件的操作 ！！！

Question

FileSize, Seek, FilePos Examplevar
   f: file of Byte;
   size : Longint;
   S: string;
   y: Integer;
 begin
   if OpenDialog1.Execute then
   begin
     AssignFile(f, OpenDialog1.FileName);
     Reset(f);
     size := FileSize(f);
     S := 'File size in bytes: ' + IntToStr(size);
     y := 10;
     Canvas.TextOut(5, y, S);
     y := y + Canvas.TextHeight(S) + 5;
     S := 'Seeking halfway into file...';
     Canvas.TextOut(5, y, S);     y := y + Canvas.TextHeight(S) + 5;
     Seek(f,size div 2);
     S := 'Position is now ' + IntToStr(FilePos(f));
     Canvas.TextOut(5, y, S);
     CloseFile(f);
   end;
 end;请多多利用delphi本身的帮助

Answer 1

to txinfo(冰炎两重天) :
   首先，谢谢你。
   你给我得的DELPHI帮助中的例子，我已经看过了，seek()好像只是按照你给定的字节数移动指针，定位到某一位置。而我现在是想在文件中一行一行的移动指针，有没有办法 ？

Answer 2

你的意思是让指针在文件记录中一条一条的移动吧？
用Seek()就是完成这样的功能的。
Seek(FileName,Position);//Position 为整型，用来表示要移到的记录位置

Answer 3

TO blazingfire(烈焰):
   我已经试过了，不行啊，麻烦你给我一个可行的例子，谢谢 ！

Answer 4

对文件进行Readln操作～～Readln一次～～就是读取一行～～～
在Readln一次～～就是读取下一行～～～