seek()的使用，它的参数所代表的意义。

Question

seek函数的作用是：把文件当前位置移到指定部分。它有两个参数：文件变量和偏移量，偏移量从文件首开始定位。
  Seek与FileSeek区别是：
1、Seek仅用于记录文件。
2、FileSeek的参数是：文件句柄、偏移量、起始位置。其中起始位置有文件首、 当前位置和文件尾三种选择。Seek的参数是文件变量和偏移量，偏移量从文件首开始定位。
3、FileSeek的偏移量以字节数来计算，而Seek是根据记录号进行移动。
Seek、FileSeek仅用于记录文件。
以下例子说明了他们的用法：（下接）

Answer 1

offset：偏移量
Origin:计算方式
以下三个是Origin的值
soFromBeginning 从头开始
soFromCurrent 从当前位置开始
soFromEnd Offset 从最后位置开始

Answer 2

接上：
uses dialogs;
var
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.