program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  sCode: string = 'ABC';

  p_code:PChar;

begin

   Writeln(Cardinal(@sCode),#);    //输出变量sCode地址

   Writeln(Cardinal(PChar(@sCode)),#);            //将变量sCode的地址转成PChar型的指针后输出

   p_code:=PChar(sCode);       //将变量sCode转成以#0结尾的字符数组指针

   Writeln(Cardinal(@(p_code)),#);      //输出'ABC'实际数据地址

   Writeln(Cardinal(@(p_code[])),#);  //输出sCode中'A'的地址

   Writeln(Cardinal(@(p_code[])),#);  //输出sCode中'B'的地址

   Writeln(PChar(@(p_code[]))^,#);  //输出sCode中'A'

   Writeln(p_code[],#);  //输出sCode中'B'

   Writeln(p_code,#);  //输出sCode

  Readln;

end.