問幾個操作文件流的函數

Question

將文件流指針移動到首位。
將文件流指針移動到末尾。

Answer 1

//將文件流指針移動到首位。
  Reset(file)    // file　存在 
或Rewrite(file)　// file　不存在//將文件流指針移動到末尾。
Seek(file, sizeof(file));
Append(file);　　//文件尾追加

Answer 2

fancier(小武) :fsSource: TFileStream;
是對fsSource進行操作。

Answer 3

var
  fs:TFileStream;
begin
  fs:=TFileStream.create('c:\asdf.txt',fmopenread or fmsharedenynone);
  fs.seek(0,soFromBeginning);//移到首位
  fs.seek(0,soFromEnd);//移到末尾
  fs.free;
end;