procedure ....
var
pData,pMem: pointer;
i: integer;begin
pData := pMem + 54;//为什么非得加54???
for i:=0 to size-54-1 do
begin
pData^ := char(not Integer(pData^)); //这句可以达到取反的操作吗???
pData := pData + 1;
end;
end;
var
pData,pMem: pointer;
i: integer;begin
pData := pMem + 54;//为什么非得加54???
for i:=0 to size-54-1 do
begin
pData^ := char(not Integer(pData^)); //这句可以达到取反的操作吗???
pData := pData + 1;
end;
end;
解决方案 »
- 虚拟桌面发送消息续管理虚拟桌面的问题
- delphi 有什么 "输入框" 控件 可以实现 背景 渐变色 效果 (图) !!!!!!!!!!!!! 急!!!!!!!!!!!!!!!!!
- 如何能够随着记录的移动,image控件中的照片也随着更新
- 字符串怎样转换到字符类型啊?!
- 如何将字符串(如'2003-8-9 21:11')写入日期型的表字段里头?在线等!
- 如何将窗体分离开(我编译后的文件太大了,有5M,想减小)
- 各位程式員,我有個問想請教一下?多謝!
- TQRDBText能支持换行吗?如不行有什么控件可以?可以讲讲吗?高分相送,不够再加
- 快进来看这个问题吧,我被晾了一天了!!
- Record/Key deleted
- dbgrid如何读取一行?谢谢指点
- https(protocol)的用法
var
pData,pMem: pointer;
i: integer;
begin
//你这里应该给PMem分配内存,然后给PMem指向的地址赋初始值,这些你都没有做。
pData := pMem + 54;
for i:=0 to size-54-1 do //这里的Size是什么?
begin
pData^ := char(not Integer(pData^)); //这句可以达到取反的操作吗???可以的
pData := pData + 1;
end;
//这里应该给PData释放内存。
end;