Вместо

seek(f,002470A1);

Совершенно очевидно надо

seek(f,$002470A1);

так как это шестнадцатиричное число

Цитата(Vit @ 31.5.2002, 19:36)

Вместо seek(f,002470A1); Совершенно очевидно надо seek(f,$002470A1); так как это шестнадцатиричное число

Простите, что задолбал, но очень надо!

Что я делаю открываю файл с помощью hview ! Делаю представление кода в HEX, нахожу нужную мне строку по смещению 000266A0, нашел далее вижу строку
04270A0 0F84B7000000 je 0042715D
Теперь помогите как поменять OF84B7000000 на 0F85B7000000!!!
Денло в том, что 04270А0 это смещение на всю строку а если шагать в право начиная с OF то через каждых два числа меняется 004270A0 на 004270A1 (именно та строка что мне нужна , в этой строке представлено число 84 которое нужно поменять на 85!!) и так дальше!
Я пишу!
procedure TForm1.Button1Click(Sender: TObject);
var f:file of byte;
   b:Byte;
begin
b:=??;
AssignFile(f,'c:\jpegopt.exe');
Reset(f);
seek(f,$004270A1);
write(f,b);
CloseFile(f);
end;

end.

Помогите как в шестнадцатирично формате представить число 85 и заменить!
Посмотрите на мой алгоритм и исправте!!
Простите за ошибки!
ПОМОГИТЕ ПОЖАЙЛУСТА!!

Значит так...смещение известно или его надо найти? я тебе дал код как его найти, зная байты

procedure TForm1.Button1Click(Sender: TObject);
var f:file of byte;
   b:Byte;
begin
b:=$85;
AssignFile(f,'c:\jpegopt.exe');
Reset(f);
seek(f,$004270A1);
write(f,b);
CloseFile(f);
end;