PChar 类型的又一些用法
PChar 类型的又一些用法
涂孟超 发表于3年前
PChar 类型的又一些用法
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

//使用 PChar^
var
  p: PChar;
begin
  p := PChar('abcd');
  ShowMessage(p);    {abcd}
  ShowMessage(p^);   {a}
  p := p + 2;
  ShowMessage(p^);   {c}
  Dec(p);
  ShowMessage(p^);   {b}
  ShowMessage(p);    {bcd}
end;

 
 
 
 
 

 

 

  
//遍历 PChar 中的字符 var p: PChar; begin p := PChar('abcd'); while p^ <> #0 do begin ShowMessage(p^); {分别显示: a、b、c、d} Inc(p); end; end;
//替代缓冲区与内存分配的简单方法 var p: PChar; begin p := PChar(StringOfChar(#0, 255)); GetWindowsDirectory(p, 255); {譬如获取 Windows 目录} ShowMessage(p); {C:\WINDOWS} end;

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: