var
s:string;
p:string;
mem:Tmemorystream;
beging
s:='fdsfsfsf';
getmem(p,length(s));
strpcopy(p,s);
给mem负值
mem.write(p^,length(s));
mem.write(pchar(s)^,length(s));
给s.p负值
mem.read(pchar(s)^,mem.size);
mem.read(p^,mem.size)
end;
s:string;
p:string;
mem:Tmemorystream;
beging
s:='fdsfsfsf';
getmem(p,length(s));
strpcopy(p,s);
给mem负值
mem.write(p^,length(s));
mem.write(pchar(s)^,length(s));
给s.p负值
mem.read(pchar(s)^,mem.size);
mem.read(p^,mem.size)
end;
解决方案 »
- 如何让多台单机系统生成编号互相不重复
- 如何通过编程锁住注册表
- 关于鼠标滚轮消息的编程,请教各位.
- 请问如何获取滚动条所在的位置?
- 用ComObj操纵excel表,怎么合并单元格?
- 为什么DBEdit在默认状态下不能输入?
- TDBChart中Axis的问题
- DBGrid1如何获得2个表里的数据
- 怎样象rave报表里写值
- 想出国读研?哪位知道要先取得什么资格(或考试)吗?
- 求调用IE和Outlook的代码.
- 用TTable控件连接数据库时,为什么总要出现DatabaseLogin对话框?要求输入用用户名和密码,在程序运行时也是这样,怎么样才能不出现这个对话框呢?因为我的数据库不用用户名和密码,谢谢!!
ss: TStringStream;ss := TStringStream.Create(s);
mem := TMemoryStream.Create;
mem.LoadFromStream(ss);