VCL有了创建，应该还有销毁，才是健康的代码

VCL有了创建，应该还有销毁，才是健康的代码 destructor TClipboard.Destroy;

begin

if (FClipboard = Self) then

FClipboard := nil;

inherited Destroy;

end;

initialization

{ The following strings should not be localized }

CF_PICTURE := RegisterClipboardFormat('Delphi Picture');

CF_COMPONENT := RegisterClipboardFormat('Delphi Component');

FClipboard := nil;

finalization

FClipboard.Free;

end.

其中的FClipboard是Clipbrd单元内的一个全局变量。所以使用initialization和finalization来初始化和销毁该对象。我就是随便说两句，更多详细的内容大家自己看代码吧。



　　　　　　　　　　　　　 查看评论 回复