Занесение содержимого строковой переменной в поток

[DannerDOS]

Здравствуйте! Как занести содержимое строковой переменной в поток?

TMemoryStream(WString).SaveToStream(MStream);

Где, WString: WideString; MStream: TMemoryStream...

В Delphi 7...

[Stilet]

Вместо TMemoryStream используй TStringStream

[DannerDOS]

Нужно хранить данные в юникоде!

т.е. что бы была возможность записать в поток юникод и затем вытащить от туда так же юникод...

[Stilet]

Ну string в Delphi200X как раз юникодовый, соответственно и TStrinStream должен быть юникодовый

[DannerDOS]

Да... В этом и проблема что не в Delphi 7...

[DannerDOS]

MStream := TMemoryStream.Create;
  WString := TntMemo1.Text;
  UString := UTF8Encode(WString);
  MStream.Write(UString, SizeOf(WideString) * Length(UString));
  MStream.Position := 0;
  MStream.Read(UString, MStream.Size);
  WString := UTF8Decode(UString);
  TntMemo1.Text := WString;