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

← →
СержК (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 др. буквари.
А вообще вопрос в "Орешник"!!!!!!!!

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

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

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

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