// Если файл не существует, то вместо размера файла функция верн¸т -1 function GetFileSize(FileName: String): Integer; var
FS: TFileStream; begin try
FS := TFileStream.Create(Filename, fmOpenRead); except
Result := -1; end;
if Result <> -1 then Result := FS.Size;
FS.Free; end;
procedure TForm1.FormCreate(Sender: TObject); begin
ShowMessage(IntToStr(GetFileSize('c:\prova.pdf'))); end;
Опубликовал Kest
December 01 2008 20:34:17 ·
0 Комментариев ·
9857 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
