问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234

---

procedure TForm1.Button1Click(Sender: TObject);
var
  p: Pointer;
  str: string;
  size: Integer;
begin
  str := Edit1.Text;
  size := (Length(str) + 1) * SizeOf(Char);
  p := GetMemory(size);
  ZeroMemory(p, size);
  CopyMemory(p, @str[1], size);
  ShowMessage(PChar(p));
  FreeMemory(p);
end;

---

优质内容筛选与推荐>>
1、jQuery中的动画
2、codevs1839 洞穴勘测
3、LoadRunner录制脚本时没有响应——无法启动浏览器问题总结
4、17_10_18 vim快捷键
5、【名词解释】SQLServer安装后默认生成的数据库

赞赏

长按二维码向我转账

受苹果公司新规定影响，微信 iOS 版的赞赏功能被关闭，可通过二维码转账支持公众号。

阅读

已发送

发送中