如何将 integer 和 string 读入 TStream ?

Question

如题，将 integet/Char/String 写入 TStream ？
还有如何从 TStream 中读出？

Answer 1

请给出代码!我想做的是 在 tstream 写入 string ,然后后面还有一些数据,要实现写入和读出.

Answer 2

var
  a : TStream;
  b : string;
begin
  b := '123';
  a := TStringStream.Create(b);
  showmessage(TStringStream(a).DataString);

Answer 3

var i:integer; c:char; s:string; stream:TStream;
begin
  stream:=TStream.create;
  stream.read(i,sizeof(i)); //读integer
  stream.read(c,sizeof(c)); //读char
  stream.read(s[i],length(s)); //读string
  stream.free;
end;

Answer 4

CareYouOnly(只在乎你) : 我写的代码和你一样，一执行就错误了。

Answer 5

TStream是抽象类，改为TMemoryStream看看

Answer 6

最简单的写法
用classes单元中的
  TWriter
  TReader

Answer 7

Eastunfail(龍子龍孫)　　　　() : 可以正常写入和读出了，谢谢