|
#1
|
|||
|
|||
Размер файлов
Здравствуйте, подскажите пожалуйста, как получит размер файлов, пути к которым добавлены в 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; Но получаю размер одного файла. Как получит размер всех файлов? |
#2
|
|||
|
|||
Дай угадаю - ты получаешь размер последнего файла в списке...
Ну дык ты в цикле просто затираешь данные по предыдущим файлам. Сделай хоть вот так: Код:
procedure TForm1.SizeF; var i: integer; begin for i:=0 to ListBox1.Count - 1 do Label2.Caption := Label2.Caption + ' ' + inttostr(FileSize(ListBox1.Items[i])); end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Alex7 (08.10.2019)
|