Версия для печати темы

Автор: Lili 23.12.2010 5:10

помогите пожалуйста найти ошибку...

Uses WinCrt; // тут выводит ошибку 15

Var F : Text;

Begin
Assign(F, 'TEST.TXT');
ReWrite(F); { Создаем новый файл }
WriteLn(F, 'Немножко текста ;-)');
Close(F); { Закрываем файл }
Append(F); { Добавляем данные к концу файла }
WriteLn(F, 'Еще немножко текста !');
Close(F); { Закрываем файл }
End.

Автор: мисс_граффити 23.12.2010 13:45

пытаешься писать в закрытый файл.
и правила форума нарушаешь.

Автор: volvo 23.12.2010 14:01

Не вижу, в какой именно момент файл закрыт (при попытке записи в него)? Rewrite/Append файл открывают...

Ошибка на самом деле - в том, что надо пользоваться Crt вместо WinCrt на некоторых компиляторах... А еще лучше - вообще убрать первую строку, все равно модуль нигде не используется.

Автор: TarasBer 23.12.2010 15:19

> Uses WinCrt; // тут выводит ошибку 15

Наверное, ты допустила ошибку номер 15?

ТЕКСТ-ТО КАКОЙ компилятор при этом выдаёт?!