VPF::Создание файлов в паскале - Форум программистов

Innuendo108

Дата 4.11.2008, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 3.4.2008

Репутация: нет
Всего: 2

Здравствуйте форум.
Можно средствами паскаля создавать файлы (к примеру пустые или с определенным текстом).
И ещё желательно бы получить в ответ ошибку если для создания файла больше не хватает места на диске.

Заранее спасибо.

volvo877

Дата 4.11.2008, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код


Assign(myFile, 'myFile.txt');
{$I-} { <--- Чтоб программа не вылетала при ошибке }
  Rewrite(myFile);
  { Здесь проверяй IOResult... Если не 0 - что-то произошло... }

  { Если все в порядке - продолжаем: }
  Writeln(myFile, 'Что-то пишем');
  { Опять проверяем IOResult, возможно диск переполнен }

  { и так далее... }
  
{$I+} { Вернем назад контроль за ошибками }

... что именно произошло при операции ввода-вывода - узнаешь по номеру ошибки: http://www.delphisources.ru/pages/faq/base...or_numbers.html

Аккуратнее с IOResult: код ошибки получаешь один раз, после первого же вызова значение кода ошибки обнуляется:

Код


Rewrite(f);
Writeln(IOResult, ' = ', IOResult);

Если при Rewrite произошла ошибка, то ее код будет напечатан только один раз... Второй вызов IOResult вернет ноль...

Innuendo108

Дата 5.11.2008, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 3.4.2008

Репутация: нет
Всего: 2

Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »