标签：end Delphi Weak aweak 对接口 引用 Ptr procedure XE10.1
以往的Delphi版本，不支持接口的Weak，和UnSafe的引用，支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持。
现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持。
1.Weak
Weak引用，不影响引用计数器，但是如果对象被释放，Weak引用变量自动清0，来看例子：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
type
TA=class(TInterfacedObject)
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:IInterface;
[weak]aweak:IInterface;
begin
a:=TA.Create; //创建对象，复制给a，执行完成后引用计数器=1
aweak:=a; //由于aweak定义有[weak]属性，所以赋值给aweak后，引用计数器依旧为1，但aweak变量的地址被保存到一个weak关联列表中
Memo1.Lines.Add(Format('Ptr:%d', [NativeInt(Pointer(aweak))]));
a:=nil; //由于引用计数器=1，执行此句后，计数器清0，对象被释放，同时与此对weak关联列表中所有变量也被赋值为nil，包括aweak变量.
Memo1.Lines.Add(Format('Ptr:%d', [NativeInt(Pointer(aweak))]));
end;
|
运行结果
| 1 2 |
Ptr:16360080
Ptr:0
|
weak引用非常适合用于两个对象需要互相引用的情况下，如果以往的引用，将无法让引用计数器清0.
如下面的例子，互相引用后，两个对象的计数器都不清0，导致内存泄漏
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
type
ISimpleInterface = interface
procedure DoSomething;
procedure AddObjectRef (simple: ISimpleInterface);
end;
TObjectOne = class (TInterfacedObject, ISimpleInterface)
private
anotherObj: ISimpleInterface;
public
procedure DoSomething;
procedure AddObjectRef (simple: ISimpleInterface);
end;
.....................
procedure TObjectOne.AddObjectRef (simple: ISimpleInterface);
begin
anotherObj:=simple;
end;
.....................
var
one, two: ISimpleInterface;
begin
one := TObjectOne.Create;
two := TObjectOne.Create;
one.AddObjectRef (two);
two.AddObjectRef (one);
|
这时候在Delphi XE10.1 Berlin下可以用weak引用，来快速方便的解决泄漏问题：
| 1 2 |
private
[weak] anotherObj: ISimpleInterface;
|
2.UnSafe
unsafe引用,不影响引用计数，但不会向Weak引用那样清零引用的变量。
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
type
TA=class(TInterfacedObject)
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a:IInterface;
[unsafe]aunsafe:IInterface;
begin
a:=TA.Create;
aunsafe:=a;
Memo1.Lines.Add(Format('Ptr:%d', [NativeInt(Pointer(aunsafe))]));
a:=nil;
Memo1.Lines.Add(Format('Ptr:%d', [NativeInt(Pointer(aunsafe))]));
end;
|
运行结果
| 1 2 |
Ptr:42640064
Ptr:42640064
|
由于Unsafe引用，不影响应用计数器，下面的程序将导致内存泄漏：
| 1 2 3 4 5 6 7 |
procedure TForm1.Button2Click(Sender: TObject);
var
[unsafe] one: ISomeInterface;
begin
one := TSomeObject.Create;
one.DoSomething;
end;
|
https://www.cnblogs.com/hezihang/p/5536928.html#undefined
标签：end,Delphi,Weak,aweak,对接口,引用,Ptr,procedure,XE10.1 来源： https://www.cnblogs.com/findumars/p/11579222.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。