<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="country-region"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PlaceName"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PlaceType"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-GB link=blue vlink=purple>
<div class=Section1>
<p class=MsoPlainText><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt'>I'm using Delphi 7 Enterprise and I've finally tracked
down why some properties that can be changed in the object inspector don't have
any effect.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>I’ve written a component
that contains a real Published Property X of type REAL:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - X is initialised in the
Constructor to +1<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - I change X to ZERO using the
object inspector<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> - I run the program and find
that X still has its initialised value (+1)<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>AAARGH - it's taken quite a
while to find out why and it's (as usual) a single line buried in the help:<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>"STORAGE SPECIFIERS"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'> "For Reals, pointer and
strings there is an implicit default value of ZERO"<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>And it seems the values aren't
streamed from the object inspector into the .DFM file unless they differ from
the ASSUMED default (which is to be ZERO but in my case is actually +1 !!!<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>To me this seems like a
definite bug - you change a value in the Object Inspector at Design-time but it
doesn't make it to the .DFM file and has no effect on the executable.<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Setting STORED on the Property
line doesn't help and for Reals you can't specify a DEFAULT value).<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Has this been fixed in later versions
of <st1:place w:st="on">Delphi</st1:place>? <o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Any suggested work-arounds (such
as storing 1E-8 instead of zero). This component has several sets of X/Y/Z coords
and I really don’t want have to maintain another a dozen tiny procedures
each of which changes zero to 1E-8 …<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'><o:p> </o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Thanks<o:p></o:p></span></font></p>
<p class=MsoPlainText><font size=2 color=black face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;color:black'>Giovanni<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;font-family:"Courier New"'>=====================================================================<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;font-family:"Courier New"'>Giovanni Moretti
| <st1:place w:st="on"><st1:PlaceType w:st="on">Institute</st1:PlaceType> of <st1:PlaceName
w:st="on">Information Sciences</st1:PlaceName></st1:place> and Technology<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;font-family:"Courier New"'>Senior Lecturer
| <st1:PlaceName w:st="on">Massey</st1:PlaceName> <st1:PlaceType w:st="on">University</st1:PlaceType>,
Palmerston North, <st1:place w:st="on"><st1:country-region w:st="on">New
Zealand</st1:country-region></st1:place><o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;font-family:"Courier New"'>Computer Science
| Ph 64-6-3505799x2474 =Fax 64-6-3502259 == ZL2BOI <o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
lang=EN-NZ style='font-size:10.0pt;font-family:"Courier New"'>=====================================================================<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-NZ
style='font-size:10.0pt;font-family:"Courier New"'><a
href="http://www-ist.massey.ac.nz/moretti">http://www-ist.massey.ac.nz/moretti</a>
<a href="mailto:G.Moretti@massey.ac.nz">mailto:G.Moretti@massey.ac.nz</a></span></font><o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
</div>
</body>
</html>