Как узнать размер файла в Кб?

phomm:
С потоком так :

var fs : tfilestream;

...

fs := tfilestream.create('full_file_name', fmopenread);

теперь размер файла в fs.size

Можно с assign :

var f : file of ...;

...

assign(f, 'full_file_name');

size := filesize(f); // только тут будет размер соответственно типу файла, поэтому для Вашей цели лучше объявлять file of byte

Можно через findfirst :

var sr : tsearchrec;

...

if findfirst('full_file_name', faanyfile, sr) = 0 then

теперь размер файла в sr.size

Получить размер в Кб – надо потом разделить то, что получили на 1024.

тема на форуме

Последние записи

made in programmersforum 1

Как узнать размер файла в Кб?

Похожие статьи