seek

Question

procedure TRecordStream.First;
begin
  { This function positions the file pointer to the beginning
     of the stream }
  Seek(0, 0);
end;procedure TRecordStream.Last;
begin
  // This procedure positions the file pointer to the end of the stream
  Seek(0, 2);
  Seek(-GetRecSize, 1);
end;
Seek 怎么理解啊？

Answer 1

Seek文件指针的位置
不过我没用过 也不清楚参数的意思

Answer 2

Call Seek to move the current position of the stream in its particular storage medium (such as memory or a disk file).
将流移入特定的介质，  soFromBeginning = 0;
  soFromCurrent = 1;
  soFromEnd = 2;soFromBeginning Offset is from the beginning of the resource. Seek moves to the position Offset. Offset must be >= 0.soFromCurrent Offset is from the current position in the resource. Seek moves to Position + Offset.soFromEnd Offset is from the end of the resource. Offset must be <= 0 to indicate a number of bytes before the end of the file.

Answer 3

function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;

Answer 4

Offset 偏移量 
Origin起始点
0表示从开头
1表示从当前点
2表示从最后