| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с файлами [D6]

chips ©   (2002-06-11 16:34:00) 

Уважаемые мастера , как можно присвоить переменной Последние 300 байт произвольного по длине файла ?

---

MBo   (2002-06-11 16:49:00) [1]

a:array[1..300] of byte;
fs:Tfilestream;

fs:=TFilestream.create(filename,fmOpenread);
fs.Seek(-300,soFromEnd);
fs.read(a[1],300);

---

Atyka   (2002-06-11 16:48:00) [2]

Небольшой примерчик:
Var P:Pointer; //Указатель
F:File; //Файловая переменная

Begin
GetMem(P,300); //Выделяем память под указатель
AssignFile(F,"autoexec.bat"); //Связаем файловую переменную
//с файлом
Reset(F,1); //Открываем на чтение побайтно
Seek(F,FileSize(F)-300); //Перемещаемя на 300 байтов с
//конца файла
BlockRead(F,P^,300); // Читаем данные
CloseFile(F);
End;

---

Наверх