请问delphi里面怎么避免引用计数

Question

请问delphi里面怎么避免引用计数，特别是对string ，有什么好办法？？？？？

Answer 1

啊 ！ 
string的没想过 恐怕不行吧

Answer 2

ShortString和Variant都不使用引用计数。:)

Answer 3

当然可以了，你定义一个指针类型，然后使用 String 赋值就行了。如：
function GetString(AStr: String): Pointer;
begin
   New(PInteger(result));
   PString(result)^ := AStr;
end;procedure FreePointer(P: Pointer);
begin
   if Assigned(P) then
   begin
      PString(P)^ := '';
      Dispose(PInteger(P));
   end;
end;在别的地方使用时，这个字符串的引用计算一直存在，直到调用 FreePointer 释放时才释放字符串。