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

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

← →
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.

---

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

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

---

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

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



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