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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.070795059204102 seconds