Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
FileSize
Функция
Выдает размер открытого файла в записях System unit
  function FileSize ( var FileHandle : File; ) : Integer;
Описание
Функция FileSize выдает размер открытого файла в записях.

Прежде, чем эта функция может использоваться, файл должен быть назначен дескриптору, используя AssignFile и открыт используя подпрограммы Append, Reset или ReWrite.
Примечания
Для получения размеров текстовых файлов в байтах используйте GetFileSize или FindFirst, FindNext, которые возвращают размер и значения даты последнего изменения одного или более файлов.
Похожие команды
DiskFree  Выдает число свободных байтов на указанном диске

DiskSize  Выдает размер указанного диска в байтах

 
Пример кода : Получение размера в записях типизированного двоичного файла
var
  myWord, myWord1, myWord2, myWord3 : Word;
  myFile : File of Word;

begin
  // Попытка открыть двоичный файл Test.cus в режиме только для записи
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Перед записью в файл, показываем размер файла
  ShowMessage('Размер файла = '+IntToStr(FileSize(myFile)));

  // Запись нескольких строк Word данных в файл
  myWord1 := 123;
  myWord2 := 456;
  myWord3 := 789;
  Write(myFile, myWord1, myWord2, myWord3);

  // Перед закрытием файла, покажем новый размер файла
  ShowMessage('Размер файла теперь = '+IntToStr(FileSize(myFile)));

  // Закрытие файла
  CloseFile(myFile);
end;

Размер файла = 0
Размер файла теперь = 3
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия