客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
Strongly-typed smart pointers are now possible in Delphi, leveraging the work on generics. Here's a simple smart pointer type:
TSmartPointer<T: class> = record
strict private FValue: T; FLifetime: IInterface; public constructor Create(const AValue: T); overload; class operator Implicit(const AValue: T): TSmartPointer<T>; property Value: T read FValue; end; Here it is in action, where TLifetimeWatcher is a little class that executes some code when it dies:
procedure UseIt;
var x: TSmartPointer<TLifetimeWatcher>; begin x := TLifetimeWatcher.Create(procedure begin Writeln('I died.'); end); end; Here's the full project code that defines TSmartPointer<>, TLifetimeWatcher, and the above test routine:
{$APPTYPE CONSOLE}
uses SysUtils; type TLifetimeWatcher = class(TInterfacedObject) private FWhenDone: TProc; public constructor Create(const AWhenDone: TProc); destructor Destroy; override; end; { TLifetimeWatcher } constructor TLifetimeWatcher.Create(const AWhenDone: TProc); begin FWhenDone := AWhenDone; end; destructor TLifetimeWatcher.Destroy; begin if Assigned(FWhenDone) then FWhenDone; inherited; end; type TSmartPointer<T: class> = record strict private FValue: T; FLifetime: IInterface; public constructor Create(const AValue: T); overload; class operator Implicit(const AValue: T): TSmartPointer<T>; property Value: T read FValue; end; { TSmartPointer<T> } constructor TSmartPointer<T>.Create(const AValue: T); begin FValue := AValue; FLifetime := TLifetimeWatcher.Create(procedure begin AValue.Free; end); end; class operator TSmartPointer<T>.Implicit(const AValue: T): TSmartPointer<T>; begin Result := TSmartPointer<T>.Create(AValue); end; procedure UseIt; var x: TSmartPointer<TLifetimeWatcher>; begin x := TLifetimeWatcher.Create(procedure begin Writeln('I died.'); end); end; begin try UseIt; Readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.
Update: Fixed capture - was capturing a location in the structure, which of course will be freely copied etc.
原帖地址： http://barrkel.blogspot.com/2008/09/smart-pointers-in-delphi.html |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论