ПОМОЩЬ

[пукарь]

Мужики!
Скажите пожалуйста.
Как сделать код в паскале чтобы он читал 16ти ричный формат файла и мог доставать нужные строки из файла на экран?

[Tkirill]

поясни точно задание, непонятно что за 16ричный формат файла

[пукарь]

Я взял маленький bmp фаил и нарисовал в нутри черный вадрат.
Потом открыл в Hex Editor и пиксель квадрата = 00 00 00.
Возможно сделать програмку которая изменит цвет пикселя на который ты хочишь?

[пукарь]

или, как сохранять и записывать данные в файл, по шестнадцатиричной системе, как в Hex Editor

[pomoshnic]

Кажется вот так

Write (f,$3b);

[pomoshnic]

А с отображением в шестнадцатеричной системе посмотри здесь.

[Greblin]

Файлы не шестнадцатеричные, файлы двоичные, просто их hex редактор отображает в 16ой системе. Напишете oct редактор - будет отображать в восьмеричной
И чтобы данные записывать в двоичном виде, надо просто файл сделать типизированным:

type myrec = record surname, name: string[16]; age: integer end;
var f: file of integer;
     g: file of myrec;
     mr: myrec;
...
write(f, 16); {вовсе не обязательно 16 писать как $10}
mr.surname := 'Pupkin'; mr.name := 'Vasya'; mr.age := 18;
write(g, mr);

[пукарь]

Выглядет не сложно. Спасибо. Постараюсь разобраться.

[пукарь]

Ну а если кто напишет прогу считывание информацию файла в двоичном или более формате, то будет круто.

[pomoshnic]

var t:text;
f:file of byte;
b,b1,b2,b3,b4,b5,b6,b7,b8:byte;
s:string;
begin
readln(s);
assign(f,s);
reset (f);
assign(t,'res.txt');
rewrite(t);
repeat
read(f,b);
b2:=b mod 2;
b:=b div 2;
b3:=b mod 2;
b:=b div 2;
b4:=b mod 2;
b:=b div 2;
b5:=b mod 2;
b:=b div 2;
b6:=b mod 2;
b:=b div 2;
b7:=b mod 2;
b:=b div 2;
b8:=b mod 2;
b:=b div 2;
b1:=b mod 2;
b:=b div 2;
write(b1,b2,b3,b4,b5,b6,b7,b8,' ');
write(t,b1,b2,b3,b4,b5,b6,b7,b8,' ');
until eof(f);
close(f);
close(t);
readln
end.