字符转化问题

ganfang 2017-11-18 05:25:13
iFileHandle,iFileLength: Integer;
Buffer: PwideChar;

sWZ :WideString;


iFileHandle := FileOpen(filedir +'info.txt', fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PWideChar(AllocMem(iFileLength +2));
FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);

sWZ:=widechartostring(buffer);

执行 sWZ:=widechartostring(buffer)总报地址错误,如果不用这函数,怎么转换成widestring

谢谢
...全文
240 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ganfang 2017-11-19
  • 打赏
  • 举报
回复
我的版本是delphi xe7
doloopcn 2017-11-18
  • 打赏
  • 举报
回复
如果是XE版的,可以直接用MEMO控件进行转换

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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