Delphi中指针和地址切换的方法

本文整理自网络，侵删。

 
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
tpldate ,s: AnsiString;     //ansistring
ptpl:PAnsiString;          //指针类型，其实就是个内存地址
begin
s:= AnsiString('whoami');  //定义个ansistring
ptpl:=@s;                  //把ansi的指针地址给ptpl
tpldate:= ptpl^ ;          //把ptpl地址对应的值给tpldate
ShowMessage(string(tpldate));     //把tptl弹出来
end;
 

相关阅读 >>

Delphi 苹果系统弹出链接

Delphi xe8 form.onshow的一个小问题

Delphi 关闭xp保护 替换explorer.exe

Delphi 中 findwindow 和 findwindowex 的语法和用法

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi开发中子窗口不能置顶的问题

Delphi提取网页中的图片

Delphi webbrowser 滚动条的去除、边框去除

Delphi memo1双击选中的文字内容

Delphi获取外部程序菜单并模拟点击菜单

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中指针和地址切换的方法