Главная страница
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.017 c
3-77266
Бобка
2002-05-30 12:17
2002.06.24
Помогите решить проблему с DBComboBox


4-77681
Yuri Btr
2002-04-23 15:18
2002.06.24
Console window!!!


4-77674
слон
2002-04-24 14:52
2002.06.24
Как определить зависла ли чужая программа?


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


7-77628
Fredericco
2002-03-13 21:17
2002.06.24
Этот вопрос уже задавался, но все же... Как мне работать с СОМ портом без ассемблера?