Delphi Compiler Bug?

I found a Bug of Delphi XE3 Compiler,It may exists in XE4,XE5.

Here is the code to show the bug

procedure Test;overload;
begin
  ShowMessage('procedure Test;');
end;

procedure Test(Value:Integer);overload;
begin
  if Value=1 then ShowMessage('procedure Test(Value:Integer);');
end;

var
  T:procedure(Value:Integer);
procedure TForm1.FormCreate(Sender:TObject);
begin
  T:=@Test;
  T(1);
end;

 We expect The results is "procedure Test(Value:Integer);",

but it shows "procedure Test;"

 

我们期待的结果应该是显示"procedure Test(Value:Integer);"

实际上显示的是"procedure Test;"

哪位帮忙在xe4,xe5上测试下,是否还存在此bug

谁有embarcadero的账号,请到qc提交。

posted @ 2014-03-31 18:19  子航  阅读(622)  评论(3编辑  收藏  举报