Delphi的大Bug

Delphi教程 2025-08-10

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;