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 网卡mac地址随机生成函数

Delphi 批量生成 a到z 字母

Delphi 获取unixtime

Delphi一个简单的多线程例子

Delphi 两个exe之间共享数据

Delphi 把字节数显示成kb或gb的函数

Delphi使用xmlhttp组件代码

Delphi webservices传base64字串

Delphi 方法的类型

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

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

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