delphi对string采取的是copy on write的处理思路， 即在修改的时候才会发生copy，否则只是原来的引用++；

比如：

var
    str1 : string;
    str2 : string;
begin
    str1 := 'changym';  
    //分配内存并让str1计数管理；

    str2 := str1;  
    //并没有分配内存， 而是让str2指向str1的内存， str1的计数++；

    str2 := 'test';
    //这个时候才为str2分配新的内存存储test， 且开始自己管理引用计数；并且str1的计数--；
end;