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

работа с файлами   Найти похожие ветки 

← →
chips   (2002-06-11 16:34) [0]

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

---

← →
Atyka   (2002-06-11 16:48) [1]

Небольшой примерчик:
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;

---

← →
MBo ©   (2002-06-11 16:49) [2]

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

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

---

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

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



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