Delphi指针与string

 

要点：

1.我用的Delphi2010，每个Char占2个字节

 2.指针+1，是加了指针所对应的数据类型的大小的字节。Char型就是+2字节，Integer型就是+4字节。

program MyPoint;  //指针详解
{$APPTYPE CONSOLE}
uses
  SysUtils,windows,Generics.Collections ;

{指针与string}
procedure MyFunc7();//返回值
var
  MyStr: string;
  MyPointStr: PChar;//字符串指针
  I: Integer;
  ABC : Char;//测试一下Char的长度
begin
  MyStr := 'ABCDE,田攀最牛逼!';
  MyPointStr := PChar(MyStr); //指针指向字符串
  Writeln('地址为:',IntToHex(Integer(MyPointStr),2)+' Char型长度:'+IntToStr(SizeOf(ABC)));
{指针+1，相当于加了指向的数据类型的长度}
  for I := 0 to Length(MyStr) do
  begin
    Writeln(PChar(MyPointStr + I));
  end;
end;

{main主函数}
begin
 MyFunc7();
 Readln;//回车退出
end.

 

 

 

 

转载于:https://www.cnblogs.com/GodPan/p/3390120.html