Delphi 2010 - 监视文件夹 - 检查文件是否正在使用 - 在列表框处于循环状态时将项目添加到列表框
Delphi 2010 - Watchfolder - Check if a file is in use - Add item to listbox while the listbox is in loop
我正在尝试使用 Delphi 2010 制作监视文件夹应用程序。
在主窗体上，我添加了 2 个列表框和一个计时器。
我列出了特定文件夹中的所有文件。
我每隔 5 秒检查一次列表框中的文件，看看哪个文件仍在使用中。
Listbox1 保存正在使用的文件，listbox2 保存未使用的文件。
如果有正在使用的文件（例如：它仍在被复制到文件夹中），我将它添加到 listbox1。
如果我监视的那个文件夹中的文件没有被使用，那么我将它们添加到 listbox2。
问题是我在 listbox2 上执行循环，以便将列出的所有文件发送到 ftp（对于 i:=0 到 listbox2.items.count-1 do ....）。
如果我在执行循环时向 listbox2 添加一个文件，我会得到 "List index out of bounds"?
如何在执行循环时将项目添加到 listbox2 循环？
非常感谢？
关于 watchfolder ideea 还有其他建议吗？
A for 循环的控制值仅在循环开始时计算一次。向列表中添加条目不应导致边界错误，因为 Count 不会缩小。当它到达旧的 Count 时，循环将停止。但是，删除一个项目会缩小 Count，因此一旦循环超过新的 Count 试图到达旧的 Count.
就会导致边界错误
也就是说，解决方案很简单 - 在循环浏览其内容时不要修改 ListBox！您将必须：
延迟任何修改，直到循环结束。
将当前的 ListBox 内容复制到一个单独的 TStringList 并循环遍历它而不是直接遍历 ListBox，然后您可以在循环繁忙时对 ListBox 做任何您想做的事情。
我正在尝试使用 Delphi 2010 制作监视文件夹应用程序。 在主窗体上，我添加了 2 个列表框和一个计时器。 我列出了特定文件夹中的所有文件。 我每隔 5 秒检查一次列表框中的文件，看看哪个文件仍在使用中。 Listbox1 保存正在使用的文件，listbox2 保存未使用的文件。 如果有正在使用的文件（例如：它仍在被复制到文件夹中），我将它添加到 listbox1。 如果我监视的那个文件夹中的文件没有被使用，那么我将它们添加到 listbox2。 问题是我在 listbox2 上执行循环，以便将列出的所有文件发送到 ftp（对于 i:=0 到 listbox2.items.count-1 do ....）。 如果我在执行循环时向 listbox2 添加一个文件，我会得到 "List index out of bounds"? 如何在执行循环时将项目添加到 listbox2 循环？ 非常感谢？ 关于 watchfolder ideea 还有其他建议吗？
A for 循环的控制值仅在循环开始时计算一次。向列表中添加条目不应导致边界错误，因为 Count 不会缩小。当它到达旧的 Count 时，循环将停止。但是，删除一个项目会缩小 Count，因此一旦循环超过新的 Count 试图到达旧的 Count.
也就是说，解决方案很简单 - 在循环浏览其内容时不要修改 ListBox！您将必须：
延迟任何修改，直到循环结束。
将当前的 ListBox 内容复制到一个单独的 TStringList 并循环遍历它而不是直接遍历 ListBox，然后您可以在循环繁忙时对 ListBox 做任何您想做的事情。