работа с файлами

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

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

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

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