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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
1-77438
TRex
2002-06-11 12:52
2002.06.24
Перемещение иконок в ListView


3-77277
First_May
2002-05-30 09:39
2002.06.24
Формирование отчета


1-77473
Sniffer
2002-06-11 19:29
2002.06.24
Чёртик, бегающий по экрану


8-77500
AlexDov
2002-02-13 16:06
2002.06.24
Формат mp3


1-77457
Dark Elf
2002-06-11 19:00
2002.06.24
Как найти ASCII-код символа?