Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.19;
Скачать: 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 вся ветка

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
1-1102418056
Destroyer2
2004-12-07 14:14
2004.12.19
Отключение ловушки


1-1102070708
Mishenka
2004-12-03 13:45
2004.12.19
Компонент с PopupMenu


4-1099475511
paa
2004-11-03 12:51
2004.12.19
Изменить значения в регистрах


1-1102323409
_sulent
2004-12-06 11:56
2004.12.19
Про описания


1-1102032607
Garfunkel
2004-12-03 03:10
2004.12.19
Сворачивание в трей при загрузке Windows