Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.25;
Скачать: 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 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
1-1081410481
LORDMAXX
2004-04-08 11:48
2004.04.25
КАК ЛЕЧИТЬ File not found DsgnIntf ???


14-1080627971
Babay
2004-03-30 10:26
2004.04.25
Поговорим о Delphi 8


14-1080899426
Andryk
2004-04-02 13:50
2004.04.25
Народ есть вопросец!


1-1081594422
Liona
2004-04-10 14:53
2004.04.25
Помогите советом ... (про многооконный интерфейс)


8-1073812295
Demian3797
2004-01-11 12:11
2004.04.25
Книга