Delphi,Update2出来了,赶紧去!
bug:
代码如下:
procedure TForm1.Button1Click(Sender: TObject);var strings :TStringList;begin if not Assigned(strings) then begin strings :=TStringList.Create;// ShowMessage(''''sfdasfd'''');如果加上这样或那样的句子就没有问题,否则,哈哈. end; strings.free; strings := nil;end;
汇编代码如图:错误图
正确图
在错误的结果中,窗口被Free了,所以就没有窗口了.
你还可以写一些类似的代码去验证.好了注意就是了.
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18