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

странная вещь с I/O error 32   Найти похожие ветки 

← →
Balex   (2005-11-20 12:55) [0]

Перевожу небольшую программульку с Turbo Pascal на Delphi и замечаю странную вещь:

Если на Delphi при попытке с открыть процедурой ReSet самого себя, то есть указать такие строчки: "AssignFile(F, ParamStr(0)); ReSet(F, 1);", то возникнет ошибка ввода/вывода. Вроде бы справедливо, да?

Если же такую операцию провести на Turbo Pascal, никакой ошибки не возникнет и файл благополучно откроется. Чудеса или что?

Так как же на Delphi открыть самого себя для использования процедур BlockRead/BlockWrite???
Если это действительно возможно, то за исходники буду очень благодарен.

Заранее благодарю за умные ответы.

---

← →
Anatoly Podgoretsky ©   (2005-11-20 13:28) [1]

Нарушение взаимного использования файла. Надо указывать совместимый режим, а не монопольный.

---

← →
Anton_K ©   (2005-11-20 13:28) [2]

Turbo Pascal - DOS, Delphi - Windows. Всё ясно?

---

← →
Defunct ©   (2005-11-20 13:31) [3]

Balex   (20.11.05 12:55)  

можно только читать:

TFileStream.Create( ParamStr(0), fmOpenRead + fmShareDenyNone);

---

← →
Anton_K ©   (2005-11-20 13:32) [4]

Похоже, я нагнал, извиняюсь.

---

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

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



Память: 0.45 MB
Время: -0.952 c