打开的文件太多

我得到的消息“打开的文件太多”的EInOutError从多个客户端线程的重复执行这个代码块一段时间时：打开的文件太多

var InputFile : Text; 
... 
Assign (InputFile, FileName); 
Reset (InputFile) 
try 
    // do some stuff 
finally 
    CloseFile (InputFile); 
end;

客户端线程的数量大约是10 ，所以任何时候只能打开10个文件。 Delphi有没有可能立即拒绝关闭文件？我能确保它确实吗？或者我在这里犯了一个错误？这是我打开文件的唯一地方，try..finally块应该保证打开的文件关闭，不是吗？

REEDIT：忘记编辑

来源

2009-03-02 jpfollenius

你的意思是AssignFile（），对吧？ – mghie 2009-03-02 09:40:51

也许AssignFile>重置不是线程安全的？ >。>按照mghie的建议尝试使用流。 – PetriW 2009-03-02 10:19:39

我只能建议你使用更“现代”的设施来处理文件。我不知道是否存在使用Windows API打开文件的限制，但我只是测试，并可以很容易地开1000流并行：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Strs: TList; 
    i: integer; 
begin 
    Strs := TList.Create; 
    try 
    for i := 1 to 1000 do begin 
     Strs.Add(TFileStream.Create('D:\foo.txt', fmOpenRead or fmShareDenyWrite)); 
    end; 
    finally 
    FreeObjectList(Strs); 
    end; 
end;

我也永远无法理解为什么人们仍然使用非类型化的文件，而不是TStream及其后代新代码。

编辑：在您的评论你写的，你只需要阅读纯文本文件 - 如果是这样只需创建一个的TStringList并使用其LoadFromFile（）方法。

来源

2009-03-02 09:52:08 mghie