Вниз
Скачать: CL | DM;

Проверьте на глючность   Найти похожие ветки 

 
engine ©   (2007-10-22 10:54) [0]

Господа, раз уж пошло такое увлечение файлами и фаловыми системами вцелом, позвольте внести свою лепту.
Какими недостатками обладает первый кусок по сравнению со вторым. Свиду никаких глюков пока замечено не было.
От данного кода требуется только получение размера файла. Никаких других действий с файлами не предусматривается.
Ну и главное требование — скорость подсчета.

for i := 0 to CheckFileList.Items.Count — 1 do
  if CheckFileList.Checked[i] then
    if  FindFirstFile(PChar(CheckFileList.Items[i]),FindData) <> INVALID_HANDLE_VALUE
    then
      Result := Result + FindData.nFileSizeLow;

   

for i := 0 to CheckFileList.Items.Count &#151; 1 do
  if CheckFileList.Checked[i] then
    begin
      HANDLE := FindFirstFile(PChar(CheckFileList.Items[i]),FindData);
      if  HANDLE <> INVALID_HANDLE_VALUE
      then
        begin
          Windows.FindClose(Handle);
          Result := Result + FindData.nFileSizeLow
        end
    end;


 
MBo ©   (2007-10-22 11:04) [1]

имена файлов уже были занесены в CheckFileList, так почему бы не запомнить и их размеры?


 
engine ©   (2007-10-22 11:38) [2]

> [1] MBo ©   (22.10.07 11:04)

Имена файлов берутся из плей-листа , а там нет размеров


 
Denis__ ©   (2007-10-22 12:54) [3]

А плей-лист не ты писал? почему бы не запомнить размеры сразу?(но не показывать их пользователю).


 
Desdechado ©   (2007-10-22 12:59) [4]

> Какими недостатками
В первом поиск не финализируется, а во втором зачем-то после каждой неудачи в цикле.


 
engine ©   (2007-10-22 13:29) [5]

> [4] Desdechado ©   (22.10.07 12:59)

А возможно финализировать поиск в первом случае, без введения дополнительной переменной?


> [3] Denis__ ©   (22.10.07 12:54)

Плей-лист не я писал.


 
engine ©   (2007-10-22 13:31) [6]

> [4] Desdechado ©   (22.10.07 12:59)

Во втором случае, стормозил.


 
Denis__ ©   (2007-10-22 13:36) [7]

Исходники есть? Поправь под себя.


 
clickmaker ©   (2007-10-22 13:36) [8]


> Какими недостатками обладает первый кусок по сравнению со
> вторым

там нету FindClose )


 
engine ©   (2007-10-22 13:38) [9]

> [8] clickmaker ©   (22.10.07 13:36)

Да, знаю я , что его там нет. Сам же писал. :)
Чем это грозит?


 
engine ©   (2007-10-22 13:44) [10]

> [4] Desdechado ©   (22.10.07 12:59)

Кстати, судя по справке, во втором случае FindClose должен
вызываться на каждой итерации, т.к. имя файла на новой итерации меняется.
Не стоит торопиться с FindClose, если мы собираемся искать FindNextFile.
Или я опять что-то не так понял?


 
clickmaker ©   (2007-10-22 13:53) [11]


> Чем это грозит?

утечка ресурсов


 
Anatoly Podgoretsky ©   (2007-10-22 16:37) [12]

> engine  (22.10.2007 11:38:02)  [2]

Для плей листов не интересны размеры файлов, а интересно время воспроизведения.


 
engine ©   (2007-10-22 19:00) [13]

> [12] Anatoly Podgoretsky ©   (22.10.07 16:37)

Дык и я о том же, а мне интересны размеры :)



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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.014 c
4-1178892371
Zagaevskiy
2007-05-11 18:06
2007.11.18
Handle иконок рабочего стола


15-1192070591
Slider007
2007-10-11 06:43
2007.11.18
С днем рождения ! 11 октября 2007 четверг


15-1192398982
Мирандовец
2007-10-15 01:56
2007.11.18
MIRANDА - plugin на Delphi


15-1192042472
Galinka
2007-10-10 22:54
2007.11.18
Когда "кило" это 2 в 10-ой, а когда - в 10 в 3-ей?


2-1193124346
QAlexey
2007-10-23 11:25
2007.11.18
TPopupMenu




   Наверх