有如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
I := I * I;
end;
选中:I := I * I;后点"注释"得到如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
// I := I * I;
end;
这个时候按CTRL + Z出现BUG,得到如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
// I := I * I;
I := I * I;
end;Author:
kendling Time: 2009-10-10 11:53
