Побайтно записывать TMemoryStream

[Kronos913]

Как побайтово записывать данные в TMemoryStream?

[p51x]

Вызвать метод Write с Count = 1

[Kronos913]

Провёл такой тест
Решил вывести в мемо чтобы проверить что туда записалось - ничего не вывелось

procedure TForm1.Button1Click(Sender: TObject);
var
  ST:TMemoryStream;
  a:byte;

begin
  ST:=TMemoryStream.Create;

  For a:=49 to 59 do begin
    ST.Write(a, 1);
  end;

  Memo1.Lines.LoadFromStream(ST);
  ST.Free;
end;

[Kronos913]

procedure TForm1.Button1Click(Sender: TObject);
var
  ST:TMemoryStream;
  a:char;

begin
  ST:=TMemoryStream.Create;

  For a:=#49 to #59 do begin
    ST.Write(a, 1);
  end;
  label1.Caption:=intToStr(st.Size);
  Memo1.Lines.LoadFromStream(ST);

  St.SaveToFile('1.txt');
  ST.Free;
end;

Хм, а в файл все нормально записалось

[p51x]

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

Решил вывести в мемо чтобы проверить что туда записалось - ничего не вывелось

Перед загрузкой из стрима позицию в нем надо на 0 вернуть