Главная страница
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.019 c
7-77636
Ruslan
2002-03-11 16:01
2002.06.24
Работа с com-портом


1-77367
Shoroh
2002-06-13 13:09
2002.06.24
Как сделать меню такое же, как


4-77696
Jek_218
2002-04-27 15:53
2002.06.24
Вопрос тупой, но как найти дочернее окно по заголовку?


1-77355
hooky-mars
2002-06-10 20:55
2002.06.24
Пмагите найти ошибку! С removedir


6-77518
Yakudza
2002-04-16 15:50
2002.06.24
Как вырубить прогу удаленно ?