Разве нельзя читать самаво себя?

← →
Sur © (2004-12-03 20:12) [0]

Кто нибуть может мне сказать почему не работает этот код.

const
My_Len = 15872;

var
My_File: file;
My_Body_Buf: array [0..My_Len-1] of Char;
...
AssignFile(My_File, ParamStr(0));
Reset(My_File, 1); //здесь ошибка
BlockRead(My_File, My_Body_Buf, My_Len);
CloseFile(My_File);

← →
begin...end © (2004-12-03 20:16) [1]

> Sur © (03.12.04 20:12)

По умолчанию Reset открывает на чтение/запись, поэтому перед Reset явно укажите: FileMode := 0.

ах да точно :)
спасибо.

Разве нельзя читать самаво себя? Найти похожие ветки