为什么写不进去啊

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array of integer;
  f:Tfilestream;;
begin
  f:=Tfilestream.Create(fname,fmcreate);;
  setlength(a,2);
  a[0]:=7;
  a[1]:=2;
  f.Write(a,sizeof(a));
  f.Free ;
end;
为什么写不到文件里啊

Answer 1

f.Write(a, Length(a)*SizeOf(Integer));—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

使用Textfile
即改为f:textfile;就可以了