Hi all,<br />
<br />
I came across a strange bug(???) in latest versions of Delphi.<br />
<br />
Have a look at the following code.<br />
<br />
procedure TForm1.Button1Click(Sender: TObject);<br />
var<br />
i : integer;<br />
begin<br />
ComboBox1.Clear;<br />
ComboBox1.Items.AddObject('All Locations', TObject(-1));<br />
ComboBox1.Items.AddObject('Only this Location', TObject(0));<br />
ComboBox1.Items.AddObject(Test Location', TObject(1));<br />
<br />
i := Integer(ComboBox1.Items.Objects[0]);<br />
showmessage(inttostr(i));<br />
end;<br />
<br />
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 <br />
List index out of bounds error. Also I am getting -1 without any error when I tried this code in Delphi 3. <br />
<br />
Is it a bug in latest version of Delphi ? Any help is appreciated.<br />
<br />
Thank you<br />
<br />
Regards,<br />
Sinu<br />
<br><Table border=0 Width=644 Height=57 cellspacing=0 cellpadding=0 style="font-family:Verdana;font-size:11px;line-height:15px;"><TR><td><A HREF="http://sigads.rediff.com/RealMedia/ads/click_nx.ads/www.rediffmail.com/signatureline.htm@Middle?" target="_blank"><IMG SRC="http://sigads.rediff.com/RealMedia/ads/adstream_nx.ads/www.rediffmail.com/signatureline.htm@Middle"></A></td></TR></Table>