为什么我这个导入到文本文件不好用

Question

procedure TMainForm.RzToolbarButton3Click(Sender: TObject);
var
  i: Integer;
  slist: TStringList;
  strFile:string;
begin
  //不存在，就创建文件
  if SaveDialog1.Execute then
    begin
        strFile:=SaveDialog1.FileName;
        if not FileExists(strfile) then
           begin
              FileCreate(strFile);
           end;
        slist := TStringList.Create;
        dm.notesbakenew.First;
        for i := 0 to dm.notesbakenew.Recordcount - 1 do
           begin
              sList.Add(dm.notesbakenew.FieldByName('sj').AsString + ',' + dm.notesbakenew.FieldByName('fsz').AsString);
              dm.notesbakenew.Next;
            end;
        slist.SaveToFile(strFile);
    end;
end;
end.
为什么有时候好用，有时候提示进程在被占用，不能创建文件？

Answer 1

http://community.csdn.net/Expert/topic/3590/3590400.xml?temp=.5893976
你不是问过吗 还没解决啊

Answer 2

我有个文本文件的导入导出的程序，写的很简单，这里没有办法上传附件，没有办法的
[email protected]

Answer 3

刚刚解决了，正确的写法如下
  //不存在，就创建文件
  if SaveDialog1.Execute then
    begin
        strFile:=SaveDialog1.FileName;
        slist := TStringList.Create;
        dm.notesbakenew.First;
        for i := 0 to dm.notesbakenew.Recordcount - 1 do
           begin
              sList.Add(dm.notesbakenew.FieldByName('sj').AsString + ',' + dm.notesbakenew.FieldByName('fsz').AsString);
              dm.notesbakenew.Next;
            end;
        slist.SaveToFile(strFile);
        slist.Free;
    end;