PChar 类型的又一些用法

最新推荐文章于 2022-11-16 23:27:58 发布

weixin_34149796

最新推荐文章于 2022-11-16 23:27:58 发布

阅读量163

点赞数

原文链接：https://my.oschina.net/hermer/blog/320547

版权

为什么80%的码农都做不了架构师？>>>

//使用 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;

转载于:https://my.oschina.net/hermer/blog/320547