VPF::Общий размер - Форум программистов

Alkash

Дата 22.1.2009, 11:51 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

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

--------------------

Подпись >> /dev/null

THandle

Дата 22.1.2009, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

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

Данкинг

Дата 22.1.2009, 12:07 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Код


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;

--------------------

There's nothing left but silent epitaphs.

THandle

Дата 22.1.2009, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

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

Присоединённый файл ( Кол-во скачиваний: 7 )

ExampleCLBFiles.rar 8,48 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »