| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Разве нельзя читать самаво себя? [D6, WinXP]
Sur © (2004-12-03 20:12:00)Кто нибуть может мне сказать почему не работает этот код.
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);
Sur (2004-12-03 20:37:00) [1]ах да точно :)
спасибо.
begin...end (2004-12-03 20:16:00) [2]> Sur © (03.12.04 20:12)
По умолчанию Reset открывает на чтение/запись, поэтому перед Reset явно укажите: FileMode := 0.
| |
