Работа с тектовыми файлами

← →
align (2006-04-05 13:58) [0]

Скажите пожалуйста, что не нравится дельфи7:

Если файл существует(if FileExists("C:\otkl.log")), то
AssignFile(txtfile,"C:\otkl.log");
Append(txtfile);
Writeln(txtfile,"");
и все хорошо

а если файла нет, то я делаю так
Filecreate("C:\otkl.log");
AssignFile(txtfile,"C:\otkl.log");
Append(txtfile);
Writeln(txtfile,"");

и результат - файл создался, но данные не внеслись и выдает I/O 32.
Подскажите пожалуйста!

← →
Плохиш © (2006-04-05 14:01) [1]

Во втором случае rewrite. Пора почитать чего-нибуть.

← →
icWasya © (2006-04-05 14:19) [2]

а если файла нет, то я делаю так
AssignFile(txtfile,"C:\otkl.log");
rewrite(txtfile);
Writeln(txtfile,"");

← →
align (2006-04-05 16:05) [3]

А, спасибо, вспомнил, точно была такая команда, извените...

http://www.delphikingdom.ru/lyceum/seminar.asp?ID=2

Работа с тектовыми файлами Найти похожие ветки