新手求助！！！数据写入，导出TXT文本后，系统报错the specified file was not found

[第五阿辉]

用了一个Tsavedialog控件。导出文本后系统返回错误the specified file was not found，但是如果文本不存在的话，文本还是能生成的。如果文本已经存在了，那么这次的文本就会加入到原来的文本里面。没办法只能做了一个错误提示，防止重复写入一个文本。怎么改都还是要报错，求教要怎么改？是否思路要换过？

Procedure TMOText.ConVert(const Dir:String);
var
i,v:Integer;
A:TextFile;
s:String;
begin
AssignFile(A,Dir);
try
append(A);
except
Rewrite(A);
end;
begin
Writeln(A,'start');
end;
s:='';
For i:=0 to adodsCustomer1.RecordCount-1 do
begin
For v:=0 to adodsCustomer1.Fields.Count-1 do
begin
S:=S+adodsCustomer1.Fields.Fields[v].AsString;
if v < adodsCustomer1.Fields.Count-1 then
S:=S+'|';
end;
adodsCustomer1.Next;
Writeln(A,s);
S:='';
end;
begin
Writeln(A,'END');
end;
CloseFile(A);
end;

procedure TMOText.Button3click(Sender: TObject);
var
A:TextFile;

begin
if SaveDia.Execute then
begin
if fileexists(SaveDia.FileName) then
begin
showmessage ('文件已存在');
end else
ConVert(SaveDia.FileName);
end;
end;

[sololie]

没看懂你究竟想干嘛。 是想保存一个文件，如果文件已存在则不保存？ 还是想如果文件已存在就追加内容进这个文件？

[第五阿辉]

只想把数据库里面的东西，按照固定的格式导出文本，导出的时候碰到问题了。本来想没有文件就新建一个，有的话就替换掉。结果出错了

[sololie]

如果文件已存在则替换掉它的话那就很简单啊，怎么给弄得那么复杂？

var
  f: TextFile;
  fname: string;
begin
  fname := 'c:\1.txt';
  DeleteFile(fname); // 不管是否存在都先执行删除
  AssignFile(f, fname);
  try
    Rewrite(f);
    // 写内容
  finally
    CloseFile(f);
  end;

[sololie]

如果文件删除不掉，检查下是否被其他进程打开了该文件还未关闭。

var
  f: TextFile;
  fname: string;
begin
  fname := 'c:\1.txt';
  if DeleteFile(fname) then
  begin
    AssignFile(f, fname);
    try
      Rewrite(f);
      // 写内容
    finally
      CloseFile(f);
    end;
  end
  else
    raise Exception.CreateFmt('文件 %s 删除失败', [fname]);
end;