小妹求求各位帮个忙，问题简单！！！！

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 xfile:textfile;
 s:string;
begin
 assignfile(xfile,'d:\a.txt');
 rewrite(xfile);
 s:='nihao';
 write(xfile,s);
end;
可以通过运行
但是可我单击Button1时d:\a.txt中并未添加什么东西
请问我的问题出在哪里？
如果要实现我的功能（单击Button1时在d:\a.txt中添加字符串）该怎么写

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 xfile:textfile;
 s:string;
begin
 assignfile(xfile,'d:\a.txt');
 rewrite(xfile);
 s:='nihao';
 write(xfile,s);
 closefile(xfile)----------->>>
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  HTextFile: TextFile;
  FileName: String;
  WriteStr: String;
begin
  FileName := 'd:\test.txt';
  WriteStr := '技术不分性别';
  AssignFile(HTextFile,FileName);
  ReWrite(HTextFile);
  WriteLn(HTextFile,WriteStr);
  CloseFile(HTextFile);
end;

Answer 3

加上
closefile(xfile)
就沾了

Answer 4

加上
closefile(xfile)
这样才能真正的将数据写入文件