有一个LongInt 的记录文件16字节,但只有四个记录
如果一直第三个记录,则指向的13个字节

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
        Edit1: TEdit;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    var f: file of Byte; size: Longint;
    begin AssignFile(f, 'c:\readme.txt');
      Reset(f);
      size := FileSize(f);
      edit1.text := IntToStr(size);
      CloseFile(f);
    end;end.
      

  2.   

    FileSize是返回记录数
    FIlePosb是指按记录定位的
    Seek也是按记录定位的
    FileSeek应该是和seek一样的吧?
      

  3.   

    如果文件是记录型文件(如股票的日线数据), FileSize是返回记录数
    反之,返回的是文件的实际大小FileSeek应该是和seek类似
     
      

  4.   

    Seek是把文件当前位置移到指定部分。
    FileSeek是改变当前文件指针的位置。
    区别:
    1、Seek仅用于记录文件。
    2、FileSeek的参数是文件句柄、偏移量、起始位置。其中起始位置有文件首、当前位置、文件尾三种选择。Seek的参数是文件变量、偏移量,偏移量是从文件首开始定位的。
    3、FileSeek的偏移量以字节数来计算,而Seek是根据记录号进行移动。
      

  5.   

    在Delphi程序员开发人员指南里,我看到Seeek(-1,3) ,seek(0,1)
    这样又是什么意思呢?
      

  6.   

    to ac214
    请详谈Seeek(-1,3)是什么意思,谢谢.