| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2021/10/16 12:20:25 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 原在Delphi 7下面开发的程式，现在用Delphi 10改成64位,改之后Pointer 会出错, 各位大神有没有什么好的解决方法? ---------------------------------------------- - |
|||||
| 作者： |
|
2021/10/16 13:57:26 | ||||
| 1楼： | 补充： 如下代码: Delphi 10 下怎么取出指针 f_pLen^中的字符, 现在这么写取出会乱码. plen:=UInt64(f_pLen^); for i:=0 to plen-1 do begin //pData:=pData+Char(Pointer(Integer(f_pData) + i)^); // Delphi 7 pData:=pData+PChar(PUInt64(UInt64(f_pData) + i)^); end; ---------------------------------------------- - |
|||||
| 作者： |
|
2021/10/16 16:53:55 | ||||
| 2楼： | pData := pData + PChar(f_pData)[i]; ---------------------------------------------- - |
|||||
| 作者： |
|
2021/10/16 17:07:49 | ||||
| 3楼： | pansichar ---------------------------------------------- -- |
|||||
| 作者： |
|
2021/10/16 18:39:32 | ||||
| 4楼： | 感谢flcop, bahamut8348, pData := pData + PChar(f_pData)[i]; 这个可以, 非常感谢. 大神,能不能再帮忙看看,字串转指针后再取出的写法, 下面写法再取出时也是乱码 prlen:=length(prData); UInt64(f_pLen^):=prlen; for i:=1 to prlen do AnsiChar(Pointer(integer(f_pData) + i-1)^) := prData[i]; ---------------------------------------------- - |
|||||
| 作者： |
|
2021/10/16 18:48:36 | ||||
| 4楼： | 你这个问题与64无关,是字段宽度改变造成的。 看你的d7的代码, f_pData指向的应该是单字节字符,但为么用这么低效的处理方式呢? D10下，应该这样写 pData:=pData+AnsiChar(PUInt64(UInt64(f_pData) + i)^); ---------------------------------------------- UniKeeper V10.40 -- 您最贴心的个人数据管理助手 |
|||||
| 作者： |
|
2021/10/16 21:12:58 | ||||
| 5楼： | String(PAnsiChar(xxx))不就可以了么？ ---------------------------------------------- - |
|||||
| 作者： |
|
2021/10/16 23:43:08 | ||||
| 6楼： | 谢谢大家回复, 开始的问题用 flcop 的方法已经解决，我上一贴发的问题请大神们帮忙看看要怎么改. ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
