[DUG] Is it a bug in latest version of Delphi?

[Conor Boyd]

It works as expected (i.e. displays -1) in Win32 D2007 for me in an
otherwise empty VCL Forms application.
 
Are you sure you have reproduced this exact code in a clean app in
D2007?

________________________________

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of sinu sudhakaran
 
I came across a strange bug(???) in latest versions of Delphi.

Have a look at the following code.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ComboBox1.Clear;
ComboBox1.Items.AddObject('All Locations', TObject(-1));
ComboBox1.Items.AddObject('Only this Location', TObject(0));
ComboBox1.Items.AddObject(Test Location', TObject(1));

i := Integer(ComboBox1.Items.Objects[0]);
showmessage(inttostr(i));
end;

When I tried to run this code in Delphi 6 and Delphi 2007 , I am getting
List Index out of bounds[0] error in Showmessage. When I tried -2, -3,
-4... instead of -1 object , I got the proper output without any 
List index out of bounds error. Also I am getting -1 without any error
when I tried this code in Delphi 3. 

Is it a bug in latest version of Delphi ? Any help is appreciated.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20100216/a7d9393e/attachment.html