|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.03.2013, 23:12 | #1 |
Пользователь
Регистрация: 11.02.2013
Сообщений: 12
|
Условие для проверки файла на пустоту Pascal
Какое условие поставить, чтобы проверить пустой ли файл
|
17.03.2013, 23:29 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
18.03.2013, 00:02 | #3 |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Сначала нужно определиться, что значит "файл пустой":
- должен ли он иметь длину равную 0, - должен ли он состоять исключительно из незначащих элементов (например, из нулей или символов пробела), - должен ли он содержать признак конца файла в первой позиции, - должны ли все содержащиеся в нем объекты содержать признак неактуальности/недействительности, ... |
18.03.2013, 01:24 | #4 |
Пользователь
Регистрация: 11.02.2013
Сообщений: 12
|
Должен иметь длину равную 0
Файл текстовый Последний раз редактировалось olga_v95; 18.03.2013 в 01:27. |
18.03.2013, 02:40 | #5 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 25
|
|
18.03.2013, 09:25 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Ольга, Вам же уже предложили готовый работающий код!
вот Вам ДВА различных варианта. Оба работают. Выбирайте тот, что больше нравится/понятнее... вариант 1. Код:
Код:
|
18.03.2013, 10:20 | #7 |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
1. Строго говоря, если файл имеет длину 0, то говорить о внутренней структуре не приходится. Поэтому вряд ли можно доподлинно утверждать, что такой файл является текстовым (хотя, никаких противоречий в этом тоже нет).
2. Если доподлинно известно, что файл именно текстовый, то проверка его на длину не дает уверенности, что он не пустой - текстовый файл может иметь длину большую 0 и при этом быть пустым. |
18.03.2013, 10:54 | #8 | |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Цитата:
И, строго говоря, должны выдавать разный результат на файле, содержащем единственный символ #26 (EOF - конец файла). Не знаю, как в других компиляторах, но в ТМТ этот стандарт нарушается. |
|
18.03.2013, 11:07 | #9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Тем более надо выбирать универсальный вариант с var f : file of byte; и FileSize(f)=0! кстати, рекомендую обратить внимание, файл должен быть типизированный (file of byte или file of char): Код:
Последний раз редактировалось Serge_Bliznykov; 18.03.2013 в 11:11. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить условие проверки вхождения числа в заданный диапазон (Delphi) | Hylim1991 | Помощь студентам | 1 | 22.03.2012 08:16 |
.NET Алгоритм проверки каждые n мсек наличие файла в текущей директории | omigos99 | Общие вопросы .NET | 2 | 10.12.2011 19:37 |
pascal, условие | ser2live | Помощь студентам | 0 | 04.06.2011 02:41 |
Разработать учебную программу для проверки знаний студентами алфавита языка Pascal | dimok5 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.04.2011 11:38 |
проверка файла на пустоту | vitaliy1911 | Общие вопросы Delphi | 7 | 19.05.2010 22:16 |