нужна помощь грамотею в программировании - Помощь студентам - Страница 2

Xobotun · 27.12.2013, 18:37

Если ошибка в создании файла, можно бы вместо ReWrite сделать такое:

Код:

{$I-} ReSet(f); {$I+}
if IOResult <> 0 then ReWrite(f);

{$I-} - отключение контроля ошибок на создании файла; {$I+} - соответственно, включение.

Stilet · 27.12.2013, 19:46

Цитата:

Теперь вот так

Что так? Текст ошибки какой?

shalgan · 27.12.2013, 21:32

Цитата:

Сообщение от ZX Spectrum-128

Ну снова покажите скриншот

извиняяйте

123123вы.jpg

ZX Spectrum-128 · 27.12.2013, 21:50

А ошибка-то какая?

Stilet · 27.12.2013, 22:13

Кажется понял. Не хватает в секции var переменной i:integer

ZX Spectrum-128 · 27.12.2013, 22:42

Есть там i

shalgan · 27.12.2013, 23:29

Цитата:

Сообщение от ZX Spectrum-128

А ошибка-то какая?

Ошибки не пишет, слово begin выделяет тускло розовым.Консоль по прежнему запускается, но и так же сварачивается

ZX Spectrum-128 · 27.12.2013, 23:36

Пройдите трассировкой. F7, затем по f8 и смотрите на какой строке выпадает.

shalgan · 28.12.2013, 09:38

Цитата:

Сообщение от ZX Spectrum-128

Пройдите трассировкой. F7, затем по f8 и смотрите на какой строке выпадает.

на rewrite(f) выпадает

ZX Spectrum-128 · 28.12.2013, 10:32

Атрибуты у файла посмотрите. Или если некорректно программа завершилась, могла остаться висящей и держащей файл. Попробуйте удалить файл средствами ос.

27.12.2013, 18:37	#11
Xobotun Пользователь Регистрация: 25.12.2013 Сообщений: 12	Если ошибка в создании файла, можно бы вместо ReWrite сделать такое: Код: `{$I-} ReSet(f); {$I+} if IOResult <> 0 then ReWrite(f);` {$I-} - отключение контроля ошибок на создании файла; {$I+} - соответственно, включение. Последний раз редактировалось Xobotun; 27.12.2013 в 18:40.

27.12.2013, 22:13	#15
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Кажется понял. Не хватает в секции var переменной i:integer I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помощь в программировании	danteminte	Паскаль, Turbo Pascal, PascalABC.NET	15	04.11.2013 22:20
Помощь студентам в программировании	Михаил Lacoste	Фриланс	10	20.01.2013 19:00
нужна хорошая книга о программировании для начинающих	macdack	Обсуждение статей	16	26.02.2012 19:52
Нужна ваша консультация в данном вопросе о компонентном программировании	artemavd	Помощь студентам	0	12.01.2010 07:47
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь)	Farridjan	Помощь студентам	1	03.07.2009 12:24

27.12.2013, 21:50	#14
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	А ошибка-то какая?

27.12.2013, 22:42	#16
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Есть там i

27.12.2013, 23:36	#18
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Пройдите трассировкой. F7, затем по f8 и смотрите на какой строке выпадает.

28.12.2013, 10:32	#20
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Атрибуты у файла посмотрите. Или если некорректно программа завершилась, могла остаться висящей и держащей файл. Попробуйте удалить файл средствами ос.