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 case of

Delphi编程之桌面图标设置

Delphi xe7检查android蓝牙权限

Delphi 新版内存表 fdmemtable

Delphi Delphi写的一个上位机

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi indy 10tidftp中的directorylisting使用

Delphi检测用户是否具有administrator权限

Delphi xe 在图片上写字

Delphi 字符串是否包含

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

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