Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:18 PM
Начало » Статьи » Работа с файлами

Функция FileSize
Функция FileSize( var Vf ): Integer;

--------------------------------------------------------------------------------

Модуль: System

Описание
Функция возвращает размер файла, связанного с файловой переменной Vf в байтах. Для файлов типа Record функция возвращает количество записей. Если файл не содержит данных, то функция возвращает 0. Файл должен быть обязательно открыт. Данная функция не применима к текстовым файлам.

Пример
В данном примере определяется кол-во записей в файле и если файл содержит больше одной записи, то файл усекается и остается только первая запись.
var
Vf: File of MyRecord;
begin
AssignFile(Vf, 'MyFile.zzz');
Reset(Vf);
if FileSize(Vf)>1 then
begin
Seek(Vf, 1);
Truncate(Vf);
end;
CloseFile(Vf);
end;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 1477 | Комментарии: 1 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: