Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизНе могу разобраться, как определить размер файла??? Найти похожие ветки
← →
Adder (2002-01-14 19:52) [2]Вы неправильно используете FileSze - посмотрите help по этой функции :)
кусок прямо из help"a:
function FileSize(var F): Integer;
Description
Call FileSize to determine the size of the file specified by the file variable F. To use FileSize, the file must be open. If the file is empty, FileSize(F) returns 0.
Note: FileSize can"t be used on a text file.
var
f: file of Byte;
size : Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := "File size in bytes: " + IntToStr(size);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c