怎么防止重复打开文件？

Question

我用opendialog打开多个文件，文件的路径和名称加到一个listbox里面，
怎么样防止同一个文件被打开多次还往listbox里面添加？

Answer 1

在打开一个文件后，判断文件在ListBox的Items是否存在，如果存在报“文件已经打开”

Answer 2

s:tstring;//你要打开的文件
function IsIn(s:tstring):bool
begin
return:= false;
for i:= 0 to listbox.items.Count -1 do
begin
  if s=listbox.items.index[i] then
   begin
   showmessage('打开了！');
   result:= true;
   end;
end;
end;

Answer 3

但是我事先不知道那个文件名，我是想向listbox里面添加一群文件，然后就是不能添加重复的，就是说不能在在已经添加了之后还能再添家!

Answer 4

for i:= 0 to listbox.items.Count -1 do
完全可以用TStrings.IndexOf来实现