| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
странная вещь с I/O error 32 [D7, WinXP]
Balex © (2005-11-20 12:55:00)Перевожу небольшую программульку с Turbo Pascal на Delphi и замечаю странную вещь:
Если на Delphi при попытке с открыть процедурой ReSet самого себя, то есть указать такие строчки: "AssignFile(F, ParamStr(0)); ReSet(F, 1);", то возникнет ошибка ввода/вывода. Вроде бы справедливо, да?
Если же такую операцию провести на Turbo Pascal, никакой ошибки не возникнет и файл благополучно откроется. Чудеса или что?
Так как же на Delphi открыть самого себя для использования процедур BlockRead/BlockWrite???
Если это действительно возможно, то за исходники буду очень благодарен.
Заранее благодарю за умные ответы.
Anton_K (2005-11-20 13:32:00) [1]Похоже, я нагнал, извиняюсь.
Defunct (2005-11-20 13:31:00) [2]Balex (20.11.05 12:55)
можно только читать:
TFileStream.Create( ParamStr(0), fmOpenRead + fmShareDenyNone);
Anatoly Podgoretsky (2005-11-20 13:28:00) [3]Нарушение взаимного использования файла. Надо указывать совместимый режим, а не монопольный.
Anton_K (2005-11-20 13:28:00) [4]Turbo Pascal - DOS, Delphi - Windows. Всё ясно?
| |
