Описать функцию IntFileSize целого типа, возвращающую размер файла

@Boris18 · Регистрация: 02.06.2009

Author24 — интернет-сервис помощи студентам

Доброе время суток господа! Помогите пожалуйста срочно с задачей:Описать функцию IntFileSize(Name) целого типа, возвращающую размер файла целых чисел с именем Name. Если файл не существует, то функция возвращает –1. С помощью этой функции определить размер трех файлов с данными именами.Спасибо

@Delphin_KKC · 11.06.2009, 21:59

Почитай про функцию FileSize.
А чтоб определить существует ли файл - надо попытаться его открыть. примерно так:

Pascal

assign(f,'nash.fail');
{$I-}
reset(f);
if ioresult <> 0 then writeln('файл не существует');
{$I+}

ioresult возвращает корректное значекние только первый раз! Потом информация об ошибке разрушается. И функция будет выводить ноль.

Добавлено через 5 минут 16 секунд
З.Ы. Забыл сказать (хотя должно быть и так ясно). В случае успешного открытия (т.е. файл таки существует и можно узнать его размер) после узнавания размера файл нужно закрыть.

@Boris18 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 16
		1
	Описать функцию IntFileSize целого типа, возвращающую размер файла 11.06.2009, 21:49. Показов 1640. Ответов 1 Метки нет (Все метки) Доброе время суток господа! Помогите пожалуйста срочно с задачей:Описать функцию IntFileSize(Name) целого типа, возвращающую размер файла целых чисел с именем Name. Если файл не существует, то функция возвращает –1. С помощью этой функции определить размер трех файлов с данными именами.Спасибо 0

	11.06.2009, 21:59

Описать функцию IntFileSize целого типа, возвращающую размер файла

Решение