[DungeonLords]

Здравствуйте,
возникла большая проблема. Я почему-то не могу записать данные в .txt файл.
Делаю так:

Код:

VAR   Text:TextFile;
BEGIN
AssignFile(Text,'u.txt');
Rewrite(Text);
WriteLN(Text,'fs');
CloseFile(Text);
END; 

Копмилятор подчёркивает Rewrite(Text); и пишет "Project такой-то raised exception class EInOutError with message 'I/O error 32.'". Что делать?

[Страдалецъ]

Есть подозрение, что замена имени переменной Text на Txt исправит ситуевину.

[DungeonLords]

Сообщение от Страдалецъ

Есть подозрение, что замена имени переменной Text на Txt исправит ситуевину.

К моей великой скорби... нет!

["Hatchet" Harry]

Сообщение от DungeonLords

К моей великой скорби... нет!

как вариант, - вырубить ошибки...

Код:

{$IOChecks Off}
кинь свой код сюда
{SIOChecks On}

[PhoeniX]

Нашёл подобную тему...
http://www.delphisources.ru/forum/sh...ad.php?p=32792

[Страдалецъ]

У вас может Vista и вы просто неимеете права писать в каталог. Попробуйте в явном виде задать путь к каталогу где есть право на запись.

[DiAm]

Странно, ошибка 32 - Integer or real constant expected (Нужна целая или вещественная константа) .

Я попробовал твой код, у меня все работает.

[DungeonLords]

Ошибка найдена. Огромное спасибо всем за помощь. Оказалось всё дело было в операторе CloseFile и во мне. Я плохо осмотрел структуру кода и в результате оператор Rewrite(txt); оказался прописан в одной операторной скобке BEGIN-END, а CloseFile в другой. Из-за этого ничего не работало...

Всем ещё раз спасибо. В следующий раз буду внимательнее.

[Страдалецъ]

Ну поскольку данный код у меня в D7 и D2009 отрабатывает нормально, то предположу что у вас что-то ненормально с системой или дельфой. Проверьтесь на вирусы в первую очередь. Возможно просто перезагрузка поможет, возможно переустановка Дельфы поможет и т.д.