странная вещь с 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);

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

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