Справочник функций и процедур Delphi: FileSize

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

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

Delphi Sources

Описание
Функция 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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте