Размер файлов

[Alex711]

Здравствуйте, подскажите пожалуйста, как получит размер файлов, пути к которым добавлены в ListBox, пытаюсь так:

function FileSize(fileName : wideString) : Int64;
 var
   sr : TSearchRec;
 begin
   if FindFirst(fileName, faAnyFile, sr ) = 0 then
      result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
   else
      result := -1;
 
   FindClose(sr) ;
 end;

procedure TForm1.SizeF;
var i: integer;
begin
 for i:=0 to ListBox1.Count - 1 do
     Label2.Caption := inttostr(FileSize(ListBox1.Items[i]));
end;

Но получаю размер одного файла. Как получит размер всех файлов?

[p51x]

Вы все размеры записываете в ОДНУ переменную. Вы ожидаете, что они там сами сгрупируются, притрутся бочками и постоят?

[Аватар]

Можно в memo результат отобразить. В Label2.Caption тоже можно, но не так же, затирая, а накапливая, добавляя строку справа

[Alex711]

Вывел в ListBox2:

ListBox2.Items.Add(FloatToStr(FileSize(ListBox1.Items[i])));

В ListBox2 вижу:
- если в ListBox1 2 файла, в ListBox2 три значения (размер одного файла повторяется)
- если в ListBox1 3 файла, в ListBox2 шесть значений (размер первого файла повторяется 3 раза, второго 2 раза, третьего 1 раз)

[Pavia]

Так очистить его надо.

procedure TForm1.SizeF;
var i: integer;
begin
  ListBox2.Clear;
  for i:=0 to ListBox1.Count - 1 do
     ListBox2.Items.Add(IntToStr(FileSize(ListBox1.Items[i])));
end;

[Alex711]

Вес файлов в ListBox2, подскажите пожалуйста ещё как сложить (+) значения айтемов ListBox2?

[northener]

А нафига вам вообще ListBox2?
Сделайте так, например

function TForm1.SizeF: Int64;
begin
  Result:=0;  
  for i:=0 to ListBox1.Count - 1 do
    Result:=Result+FileSize(ListBox1.Items[i]);
end;
...
Label2.Caption:=IntToStr(SizeF);

[Alex711]

Спасибо всем за ответы!