Delphi实例演示直接操作引用计数和串长

摘要:Delphi源码,系统相关,计数引用,串长 　　本Delphi示例源码用于演示直接操作引用计数和串长。 　　 　　输出结果是： 　　______________________________________________________ 　　Str: 123456 　　 　　Ref: 1 　　Len: 6 　　 　　Ref: 10 　　Len: 3000 　　______________________________________________________ 　　 　　可以通过访问字符串负偏移，来操作引用计数位和串长位来操作。 　　这些操作被实现成四个函数： 　　function GetStringRef(Const Str:AnsiString) : Integer; 　　function GetStringLen(Const Str:AnsiString) : Integer; 　　procedure SetStringRef(Const Str:AnsiString; Ref:Integer); 　　procedure SetStringLen(Const Str:AnsiString; Len:Integer); 　　 　　直接修改引用计数是不安全的。除非能确知这样做的后果，请不要 　　使用函数SetStringRef()和SetStringLen ()。