ошибка в программе Опции

[Lili]

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

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

Var F : Text;

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

Сообщение отредактировано: Lili - 23.12.2010 13:02

[мисс_граффити]

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

[volvo]

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

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

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

[TarasBer]

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

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

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