Данный код читает данные из фаила как массив баит.
Может пригодится когда работаешь не со строками.
Код
type
ByteFile = File of Byte;
ByteArray = array of byte;
/*
Входные параметры:
FileName - имя файла
startpos - позиция с которой надо начинать читать данные файла
endpos - позиция которой кончается читение данных файла
array_ - массив в который будут читаться данные, передается по ссылке
*/
Procedure ReadBytes(FileName:string;startpos,endpos:integer;array_:^ByteArray);
var
arraypos:integer;//текущая позиция в массиве
bytescount:integer;//количество баитов которые осталось прочитать
begin
// В FileName передаешь имя своего файла
AssignFile(File_,FileName);//получаем хендл файла
FileMode := fmOpenRead;// устанавливаем режим открытия только для чтения
Reset(File_);// открываем фаил
bytescount:=startpos-endpos;// получаем количество байтов которые надо прочитать
setlength(array_^,bytescount);//устанавливаем длинну массива равную количеству баит которые нужно прочитать
//читаем байты
for arraypos:= 0 to bytescount do
begin
//переход на нужный баит
Seek(File_, arraypos+startpos);
//читаем баит
Read(File_, array_^[arraypos]);
end;
//Закрываем фаил
CloseFile(File_);
end;
