Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Общий размер

Автор: Alkash 22.1.2009, 11:51

Доброго времени суток...Есть Checked List Box, в него добавляются файлы. Тоесть название файла и путь. Естественно - файлы могут быть расположены в разных папках, и т.д. Собственно вопрос - как узнать общую сумму файлов,находящихся в лист боксе, отмеченых галкой?
Заранее благодарен...

Автор: THandle 22.1.2009, 11:57

Alkash, можно либо пробегаясь по списку, проверять, стоит ли галочка в текущей строке, если стоит то к некой переменной Size прибавлять размер этого файла. Еще можно сделать так что бы при нажатии на галочку к этой переменной либо прибавлялся размер(если устанавливаем) или вычитался размер этого же файла(если снимаем).

Автор: Данкинг 22.1.2009, 12:07

Код


function total: integer;
var i:integer;
begin
result:=0
for i:=0 to CheckListBox1.Count -1 do
  if CheckListBox1.Checked[i] then inc(result);
end;

Автор: THandle 22.1.2009, 12:43

Кстати, делать было нечего... Накидал экзампл.