Delphi TStringList efcreate错误，由另一个进程使用的文件

Question

一直在寻找，但我似乎无法让这个工作。当我运行此代码时，我得到一个EFCreateError告诉我该文件被另一个进程使用。我是使用TStringLists的新手，所以我需要你的帮助！提前谢谢！

这是产生错误的地方：empFile.SaveToFile（'Data \ Emp \'+ emp +'\'+ emp +'。txt'）;

procedure TfmMain.btSaveRetClick(Sender: TObject);
var
    select, pos1, pos2, pos3, i: integer;
    fileBuffer, rentFile: TextFile;
    rCode, emp, buffer, retBuffer: string;
    empFile: TStringList;

begin
    if lbReturn.Items.Count <> 0 then 
    begin
        select:=Messagedlg('Retourner les items?', mtConfirmation, [mbYes, mbNo],0);
        if select=mrYes then 
        begin
            empFile:=TStringList.Create;
            AssignFile(fileBuffer, 'Data\filebuffer.dat');
            AssignFile(rentFile, 'Data\rented.dat');
            lbReturn.Items.SaveToFile('Data\filebuffer.dat');
            Reset(fileBuffer);
            Reset(rentFile);

            repeat 
            begin
                ReadLn(fileBuffer, buffer);
                pos1:=AnsiPos('|', buffer);
                rCode:=AnsiLeftStr(buffer, pos1-2);
                repeat 
                begin
                    ReadLn(rentFile, retBuffer);
                    pos2:=AnsiPos(rCode, retBuffer);
                    if pos2<>0 then 
                    begin
                        pos3:=AnsiPos('|', retBuffer);
                        emp:=AnsiRightStr(retBuffer, (Length(retBuffer))-pos3-1);
                        empFile.LoadFromFile('Data\Emp\'+emp+'\'+emp+'.txt');
                        i:=empFile.IndexOf(buffer);
                        empFile.Delete(i);
                        empFile.SaveToFile('Data\Emp\'+emp+'\'+emp+'.txt');
                        empFile.Clear;
                    end;   
                end;
                until EOF(rentFile);
            end;
            until EOF(fileBuffer);
        empFile.Free;
        end;
    end 
    else 
    begin
        MessageDlg('Aucun item à enregistrer!', mtError, [mbOK], 0);
    end;
end;

Answer 1

EFCreateError由无效的文件名，缺少访问权限或缺少磁盘空间引发：info