不知您是笨蛋，还是我是笨蛋，关于Delphi的大Bug_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

不知您是笨蛋，还是我是笨蛋，关于Delphi的大Bug

作者：闵涛文章来源：闵涛的学习笔记点击数：778 更新时间：2009/4/23 18:39:47

我写了一个段落，在下面这个地址，Delphi的大Bug，您不用费神去看，我在此重复。

但是我觉得后面的评论您可以一瞧。

http://www.csdn.net/Develop/read_article.asp?id=12525

原来的代码是这样，

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;

实际上，我要说的重点只有一行，那就是strings.Free;这一行。

但是恰好有别的代码存在，引起了很多不必要的麻烦，我也曾经强调过几次，但是核心的代码还是被其余的花环罩住了。而且总是引起误会，所以

我重写一遍代码，如下所示：

procedure TForm1.Button1Click(Sender: TObject);
var
strings :TStringList;
begin
strings.free;
end;

事实上，这个代码中的TStringList类可以替换成任何您想要去试一试的类。

这样，如果您使用CPU观察窗口就能发现东西，但是如果不使用它，您就按下Ctrl+F2

终止程序吧。

这个标题是否也有点笨蛋的意思，我不知道，反正是中文。您和我都能看懂。

实际上这段代码的主旨在于提醒您注意对象的正确使用，至于这段代码出错的原因，

我想，确实是编译器的一个疏漏，但是如果您对类和对象的内存结构没有什么研究的话，我建议您：一、放任，二、钻研它。

如果有空的话，我想，我该写一大段文字出来，以烹各位朋友（哈哈）。