Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как перегнать данные из String в TMemoryStream?

Автор: Kashmir 21.8.2006, 19:20

Автор: Snowy 21.8.2006, 19:25

Интересует стандартный способ или вручную?
Стандартный - справка по TWriter и TReader. Методы WriteString и ReadString.
Вручную:

Код


// запись
var
  w: word;
begin
  w := Length(s);
  st.Write(w, SizeOf(w)); w := Length(s);
  st.Write(s[1], w);

.....

// чтение
var
  w: word;
begin
  w := st.Read(w, SizeOf(w)); SetLength(s);
  st.Read(s[1], w);

Здесь s - строка, st - стрим

Добавлено @ 19:26
Если нужно просто перегнать данные, а не записать строку, то совсем просто:

Код

st.Write(s[1], Length(s));