WORD型整形怎么以2个字节放入内存流中?

gnolk 2014-08-10 03:25:39
比如:
var
i:Word;
ms: TMemoryStream;
str:string;
begin

I:=5;
str:='';
str:=str+inttostr(i);

Memo1.Lines.Text := str;

mStream := TMemoryStream.Create;

Memo1.Lines.SaveToStream(mStream);

输出以后 流只有一个字节了,怎么弄才是原来的2个呢,i本来是2个字节的哦
...全文
146 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mousetjq 2014-08-11
  • 打赏
  • 举报
回复
建议楼主补习下基础知识。
gnolk 2014-08-11
  • 打赏
  • 举报
回复
不是你们想的这么简单吧?
lyhoo163 2014-08-11
  • 打赏
  • 举报
回复
得加强基本功。
gnolk 2014-08-10
  • 打赏
  • 举报
回复
引用 2 楼 gnolk 的回复:
[quote=引用 1 楼 wr960204 的回复:] SaveToStream(i,sizeof(i)); Word本来就是两个字节的
报错:[Error] Unit1.pas(38): Incompatible types: 'TStream' and 'Word' [/quote] 语句是这样的: procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; i,j:word; set1:string; begin set1:='D:\yst\test.txt'; i:=5; j:=6; ms := TMemoryStream.Create; ms.SaveToStream(i,sizeof(i)); ms.SaveToStream(i,sizeof(j)); ms.SaveToFile(set1); ms.Free; end; 哪里不妥呢
gnolk 2014-08-10
  • 打赏
  • 举报
回复
引用 1 楼 wr960204 的回复:
SaveToStream(i,sizeof(i)); Word本来就是两个字节的
报错:[Error] Unit1.pas(38): Incompatible types: 'TStream' and 'Word'
武稀松 2014-08-10
  • 打赏
  • 举报
回复
SaveToStream(i,sizeof(i)); Word本来就是两个字节的

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧