Скачать: CL | DM;

При создании ТХТ файла выдает ошибку   Найти похожие ветки 

← →
СержК   (2004-04-05 13:48) [0]

Мастера подскажите - что я делаю не так?
Хочу создать пустой ТХТ файл, затем забить его информацией, но вылетает ошибка. Подскажите в чем дело?

procedure TFormMain.MyТХТFile;
var F:TextFile;
begin
CreateFile(PChar(GetCurrentDir+"\MyFile.txt"), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, 0, 0);
AssignFile(F,GetCurrentDir+"\MyFile.txt");

Rewrite(F); - на этой строке вылетает "Project Zayvk.exe raised exeption class EInOutError with message "I/O error 32""

CloseFile(F);
end;

Что это такое и как с ним бороться?

---

← →
MBo ©   (2004-04-05 13:51) [1]

CreateFile - не нужно, AssignFile+Rewrite сделают все сами.

---

← →
Serge ©   (2004-04-05 13:51) [2]

AssignFile, Rewrite file - it"s enough to create a file

---

← →
KapitanSerg ©   (2004-04-05 13:53) [3]

Дорогой! Зачем CreateFile, если Rewrite(F) сама создает пустой файл!!!!!!!!!!!
Читай Help др. буквари.
А вообще вопрос в "Орешник"!!!!!!!!

---

← →
Fay ©   (2004-04-05 13:58) [4]

Это просто праздник какой-то! Общий заговор с целью снести мне крышу! СержК, зачем Вам AssignFile и Rewrite, если Вы знаете, что есть CreateFile (между прочим, функция)?

2KapitanSerg ©
>> сама создает пустой файл!!!!!!!!!!!
Это, наверное, очень сильное колдовство! CreateFile, по ходу, тоже Rewrite юзает.И ваще винда написана на турбо паскале!

---

← →
Anatoly Podgoretsky ©   (2004-04-05 14:12) [5]

Как тебе уже сказали это не нужно, но уж если применил, то надо сделать CloseHandle до использования в другом месте.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c