为什么创建完TXT文件打开出错？

Question

procedure TForm1.Button1Click(Sender: TObject);
var txt :TextFile;
begin
  filecreate('D:\bb.txt');
  AssignFile(txt, 'D:\bb.txt');
    Append(txt);
    Writeln(txt,'ErrorTime:');
    CloseFile(txt);

Answer 1

报 IO Error 32 文件已创建完！
但如果手工创建文件用代码打开就没有问题！

Answer 2

在filecreate后，你应该要再fileclose掉procedure TForm1.Button1Click(Sender: TObject);
var
  txt :TextFile;
  i: Integer;
begin
  i:= filecreate('D:\bb.txt');
  FileClose(i);
  AssignFile(txt, 'D:\bb.txt');
  Append(txt);
  Writeln(txt,'ErrorTime:');
  CloseFile(txt);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  txt :TextFile;
begin
   AssignFile(txt,'D:\bb.txt');
   if FileExists('D:\bb.txt') then
     Append(txt)
   else
     ReWrite(txt);
   Writeln(txt,'ErrorTime:');
   CloseFile(txt);
end;

Answer 4

  try
    if FileExists('D:\bb.txt') = False then
    begin
      i :=FileCreate('D:\bb.txt');
      FileClose(i);
    end;
    AssignFile(txt,'D:\bb.txt');
    Append(txt);
    Writeln(txt,'ErrorTime:');
    finally
       CloseFile(txt);
      end;

Answer 5

帮助里这么写
Do not use AssignFile on a file variable that is already open