Delphi 的字符及字符串[3] - String 中的秘密

  str: ;
  pstr: PString;
  pc: PChar;

  
  ShowMessage(IntToStr(Integer(@str))); 

  
  ShowMessage(IntToStr(Integer(str)));  

  str := ;

  
  ShowMessage(IntToStr(Integer(@str))); 
  ShowMessage(IntToStr(Integer(str)));  

  
  pstr := @str;
  ShowMessage(pstr^); 

  
  pc := PChar(Integer(str));
  ShowMessage(pc);    
;

一个字符串(AnsiString 或 String, 譬如是 "Form1" )在内存中是这样储存的:

F

o

r

m

1

黄色区域是真正存字符串的位置, 前面说的字符串所在的内存地址, 就是本例中的 "F" 所在的位置;
蓝色的四个字节储存一个 Integer 值, 表示字符串的长度;
最后红色的一个字节储存一个空字符(#0), 表示字符串的结束, 同时也是为了和 Windows 的 null 结束的字符串兼容;
绿色的四个字节也是一个 Integer 值, 表示该字符串被引用的次数(也就是有几个字符串的指针指向它).

还是看例子吧:

---

  str,s1,s2: ;
  pint: PInteger;

  str := Self.Text; 
  s1 := str;        
  s2 := str;        

  
  ShowMessage(IntToStr(Integer(str))); 
  ShowMessage(IntToStr(Integer(s1)));  
  ShowMessage(IntToStr(Integer(s2)));  

  
  pint := PInteger(Integer(str) - );
  ShowMessage(IntToStr(pint^));      

  
  pint := PInteger(Integer(str) - );
  ShowMessage(IntToStr(pint^));      
;

当某段字符串内存的引用计数为 0 时, Delphi 就会自动释放它; 这也是字符串不需要手动释放的原因.
我在测试时发现: 所有常量和非全局的变量的引用计数一直是 "-1".

---

转载于:https://www.cnblogs.com/skysunmoon/archive/2009/04/07/1430854.html