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获取系统默认的useragent的方法

Delphi中判断字符串是否为数字

Delphi有无生成空格的函数，like vb的space(1)

Delphi fdquery1查询，有无返回集

Delphi for 循环的例子 多种用法

Delphi获取access中的表名代码

Delphi开发linux包

Delphi版inf方式加载驱动

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

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

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