Байты в стринги

[FaTaL]

Есть бинарный файл.
При чтении первого байта в определённом адресе, текст отображается хорошо. Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
f:TFileStream;
s:Byte;
begin
f:=TFileStream.Create(ExtractFilePath(application.ExeName)+'123.dat', fmOpenReadWrite);
f.Seek($000050, 1);
f.Read(s, 1);
Edit1.Text:=Char(s);
f.Free;
end;

Но если попробывать так же прочитать второй байт (f.Seek($000050, 1)(заведомо зная что там тоже находиться символ), то он его не выдает, а пишет какой иероглиф. Как быть?
Заранее благодарен.
P.S. Поиск по форуму не дал результатов.

[Stilet]

А ты сравни байты считываемого и нужного символа.
Кстати Эдит не каждый символ выводит.

[Serge_Bliznykov]

полностью согласен со Stilet.

Кстати, read и так, имхо, перемещает указатель на следующий байт...
попробуй такой код, вместо своего:

  f.Seek($000050, 1);
  f.Read(s, 1);
  Edit1.Text := 'byte1 = ' + IntToStr(s);
  {читаем следующий байт}
  f.Read(s, 1);
  Edit1.Text := Edit1.Text + ' byte2 = ' + IntToStr(s);

[FaTaL]

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

полностью согласен со Stilet.

Кстати, read и так, имхо, перемещает указатель на следующий байт...
попробуй такой код, вместо своего:

  f.Seek($000050, 1);
  f.Read(s, 1);
  Edit1.Text := 'byte1 = ' + IntToStr(s);
  {читаем следующий байт}
  f.Read(s, 1);
  Edit1.Text := Edit1.Text + ' byte2 = ' + IntToStr(s);

Попробывал, работает. Спасибо.
А как мне прочитать сразу несколько байт, например 6 первых байт?

[mihali4]

А вы разберитесь, что за параметр в виде единички в f.Read(s, 1);
Нельзя же заниматься программированием по принципу мартышки с очками из знаменитой басни Крылова...

[FaTaL]

Единичка это сколько байт будет прочитано. Т.е. если я поставлю 6, то S надо обьявлять массивом, но тогда компилятор ругается на строчку Edit1.Text := 'byte1 = ' + IntToStr(s);

[Stilet]

Ну да и видимо ошибка на китайском.

[mihali4]

S надо обьявлять массивом, но тогда компилятор ругается на строчку Edit1.Text := 'byte1 = ' + IntToStr(s);

А как к элементам массива обращаться следует? Пра-а-а-вильно, S[I]...

[Stilet]

Я чет не понял что мешает определить s как array[0..6] of char ?

[FaTaL]

Всем спасибо.