开发学院软件开发Delphi 不知您是笨蛋,还是我是笨蛋,关于Delphi的大Bug 阅读

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

 2006-02-04 13:35:06 来源:WEB开发网   
核心提示: 我写了一个段落,在下面这个地址,不知您是笨蛋,还是我是笨蛋,关于Delphi的大Bug,Delphi的大Bug,您不用费神去看,但是如果您对类和对象的内存结构没有什么研究的话,我建议您:一、放任,我在此重复,但是我觉得后面的评论您可以一瞧
 

我写了一个段落,在下面这个地址,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

终止程序吧。

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

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

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

Tags:不知 笨蛋 还是

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接