Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Удалить файл в Корзину
   Категория: Приложение
  Установить в программу свои шрифты
   Категория: Приложение
  Число четное или нечетное
   Категория: Математика
  Получение списка всех сетевых дисков из Delphi
   Категория: Интернет и Сети
  Создание ярлыка на Рабочем столе
   Категория: Приложение
  Создание и удаление полей
   Категория: Базы данных
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Определение размера файла
   Категория: Файловая система
  Упаковка ZIPTV
   Категория: Компоненты
Delphi - База Знаний: Как получить размер текстового файла, не открывая его

  << Вернуться к Содержанию  

function TextfileSize(const name: string):
LongInt;  var   SRec: TSearchRec;
begin  
if FindFirst(name, faAnyfile, SRec) = 0 then  
begin    
Result := SRec.Size;     Sysutils.FindClose(SRec);  
end  
else     Result := 0;
end;
  << Вернуться к Содержанию