Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

Что за фича с 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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.038 c