Что за фича с FileListBox?

← →
Biji (2004-02-17 12:42) [0]

Имеем следующий код:
procedure TForm1.Button1Click(Sender: TObject); Var FileID,FileALL:integer; begin FileALL:=FileListbox1.itemIndex; For FileID:=0 to FileALL do Begin if (FileListbox1.Selected[FileId]) then Begin Showmessage("Обработан: "+Copy(FileListbox1.Items[FileId],0,7)); { query1.SQL.Clear; Query1.SQL.Add("insert into temp"); Query1.SQL.Add("(El_Num_Doc,inn_plat,kpp_plat,inn_nalog,Kpp_Nalog,Tip_Oper,Tip_Doc_Os,Num_Doc_Os,Tip_Doc,Num_Doc,Tip_Bud ,Kod_Bud,KBK,OKATO,Summ,Date1,Date2,Name,Kod_Fk,Prim)"); Query1.SQL.Add("select El_Num_Doc,inn_plat,kpp_plat,inn_nalog,Kpp_Nalog,Tip_Oper,Tip_Doc_Os,Num_Doc_Os,Tip_Doc,Num_Doc,Tip_Bud,Kod_Bud,KBK,OKAT O,Summ,Date1,Date2,Name,Kod_Fk,Prim"); Query1.SQL.Add("from "+""""+Copy(FileListbox1.Items[i],0,7)+""""); query1.ExecSQL; } end else Showmessage("Не обработан: "+Copy(FileListbox1.Items[FileId],0,7)); // SqlView(True,True); end; end;
Свойство FileListBox1.MultiSelect задано true
Проблема в том, что если выделить группу файлов, затем CTRL+Левый клик отменяем выделение одного из них, код обрабатывается до этого файла(файл помеченный курсором), затем цикл прерывается подобно процедуре Break;
Вопрос в том как избежать этого, не хочется делать еще один цикл снизу в верх.
Мастера, может посоветуете еще что то?
Можно на асю: 287841998

← →
Guest (2004-02-17 12:53) [1]

Делать цикл не до ItemIndex, а до Count-1

← →
Biji (2004-02-17 12:58) [2]

:-)
Черт точно, большое спасибо.

Что за фича с FileListBox? Найти похожие ветки