|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проблема с TMemoryStream
Здравствуйте.
Пытаюсь заполнить TMemoryStream одним числом таким способом: Код:
var MemStream: TMemoryStream; i, buf:byte; begin try MemStream := TMemoryStream.Create; buf := 5; for i := 0 to 4 do begin MemStream.Write(buf, SizeOf(buf)); end; StreamToMemo(MemStream, Memo); finally MemStream.Free; end; end; Смотрю как она выглядит функцией StreamToMemo, а там вместо чисел buf одни нули. Также при копировании ее в любую другую TStream выдает ошибку Stream read error. Функция StreamToMemo испробована на TFileStream и работает без косяков. |