<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Sinu,<br>
<br>
I dont know if its been answered satisfactorily. There are too many
replies to wade through. I recall that along the way Windows standard
changed from 0 being a null pointer to -1. I had to change some of my
code in stringlist to work. I think my solution was to just multiply
by 2 and then store it. Found my note - it happened in 2003. My
conclusion now, is that its a combination of windows version/updates
and version of Delphi that causes this issue.<br>
<br>
Rohit<br>
<br>
sinu sudhakaran wrote:
<blockquote
cite="mid:20100215202227.7920.qmail@f4mail-234-231.rediffmail.com"
type="cite">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
style="font-family: Verdana; font-size: 11px; line-height: 15px;"
border="0" cellpadding="0" cellspacing="0" height="57" width="644">
<tbody>
<tr>
<td><a moz-do-not-send="true"
href="http://sigads.rediff.com/RealMedia/ads/click_nx.ads/www.rediffmail.com/signatureline.htm@Middle?"
target="_blank"><img moz-do-not-send="true"
src="http://sigads.rediff.com/RealMedia/ads/adstream_nx.ads/www.rediffmail.com/signatureline.htm@Middle"></a></td>
</tr>
</tbody>
</table>
<pre wrap="">
<hr size="4" width="90%">
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: <a class="moz-txt-link-abbreviated" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a>
Admin: <a class="moz-txt-link-freetext" href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a>
Unsubscribe: send an email to <a class="moz-txt-link-abbreviated" href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</pre>
</blockquote>
<br>
</body>
</html>