Замена байта по заданному смещению

[Lvenok1987]

Требуется по заданному смещению, заменить один байт на другой.

Код поиска нужного нам байта:

f.Seek(i,soFromBeginning);
  f.Read(s,sizeof(s));
  t:=IntToHex(s, 2);
    if (t='6B')
     then
        a:=a+(IntToHex(144, 2)+' ')
                else
                    a:=a+(IntToHex(s, 2)+' ');

Проблема в том, что любой найденный байт "6В" заменяется на нужный нам байт "90".
Смещение, в котором находится данный байт: "00А0". Каким образом программе указать, что именно в данном смещении, нужно найти схожий байт, и заменить его на нужный...?

[mihali4]

f.Seek(смещение,soFromBeginning(отк уда отсчитывать));
Вы ведь в i указываете смещение?

[Lvenok1987]

С HEX-ом работаю в 1-й раз, поэтому вопросы могут показаться до простоты идиотскими, заранее извиняюсь.

Взял исходники HEX-редактора. В 1-м столбце выводится адрес смещения, во 2-м байты, в 3-м еще что-то.

Смещение мы выводим таким образом:

 
for i := 0 to f.Size-1 do
c:=c+IntToHex(i, 4)+#13#10;

Выводится строка типа: 10A0.

Пример.
По адресу смещения "0090", мы хотим заменить байт "6В" на какой-либо.
"0090" - адрес, переводим в 2-ю систему, это у нас будет "144".
Если написать:

f.Seek(144,0);

, то выводится белеберда...
Я скорее всего не могу понять, как правильно задать смещение и откуда отсчитывать...

В справочной Delphi нашел вот это:

 Stream1.Seek(60, 0); { Move to byte 60}

. Это как понять "смещаемся к байту 60"?

[Stilet]

Это как понять "смещаемся к байту 60"?

Эта команда передвигает указатель позиции в файле на 60-тый байт.

[Lvenok1987]

Сообщение от Stilet

Эта команда передвигает указатель позиции в файле на 60-тый байт.

Примерно понятно, но не понятно как в моей задаче перейти к этомй байту, зная адрес смещения. Напротив смещения, выводится 16 чисел, и вот реди этих 16-ти чисел, есть нужный нам байт. Тогда получается адрес смещения, к-й выводится у меня в 1-м столбце - это совсемне то?

Разобрался, пишем просто порядковый номер байта, в строке, тоесть: 0099 (он у меня 9й по счету).

[Lvenok1987]

Так, нажав кнопку, по заданному адресу у нас заменяется какой-либо байт на "3А".

procedure TForm1.Button1Click(Sender: TObject);
var
f:tfilestream;
s:byte;
a,i,t:integer;
begin
if opendialog1.Execute then
  begin
 f:=tfilestream.Create(opendialog1.FileName,fmopenRead);
            f.Seek(1,soFromBeginning);
            f.Write('3A',sizeof('3A'));
 f.Free;
  end;
end;

В данном случае, 2-й байт по счету, если смотреть через любой HEX-редактор, меняется на "3А"...точнее он по задумке должен меняться, но не меняется...в чем ошибка?