双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒,抽取你的专属好礼

— 惊喜奖品抢先看 —

delphi11中动态数组赋值出错

W13726101612 W13726101612 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

请教哪位老师帮忙看看在这个里面strcopy总是出错,是还有什么没有注意到吗?   
function TF_main.DF_Copy_fromfile(PText:pchar;scontent:widestring):integer;
  var
      PText_s : array of Char;
      PText_l:integer; 
      PText_d:integer;
   begin

setlength(PText_s,length(PText) );
fillchar(PText_s, length(PText_s),#0);
StrCopy(@PText_s, PText); //在这地方一直提示写地址错误
PText_d:=integer(@PText_s);
PathText_l:=length(pchar(@Text_s));
showmessage(inttostr(ptext_d));
end;

...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部