<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2769" name=GENERATOR><o:SmartTagType
name="country-region"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="PlaceName"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="PlaceType"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="place"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><!--[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 vLink=purple link=blue bgColor=#ffffff>
<DIV><FONT face=Arial size=2>I suppose there is a good reason why the
constructor sets the X value to 1.0, but is it absolutely necessary, since
it can be set at design time in the object editor?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=G.Moretti@massey.ac.nz href="mailto:G.Moretti@massey.ac.nz">Moretti,
Giovanni</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=delphi@ns3.123.co.nz
href="mailto:delphi@ns3.123.co.nz">NZ Borland Developers Group - Delphi
List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, December 01, 2005 3:42
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [DUG] Zero-valued Real
Properties not being stored to .DFM file???(D7 Enterprise)</DIV>
<DIV><BR></DIV>
<DIV class=Section1>
<P class=MsoPlainText><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt">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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; COLOR: black"> - X is initialised in
the Constructor to +1<o:p></o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; COLOR: black"> - I change X to ZERO
using the object inspector<o:p></o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; COLOR: black">"STORAGE
SPECIFIERS"<o:p></o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ style="FONT-SIZE: 10pt; 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 face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black">Thanks<o:p></o:p></SPAN></FONT></P>
<P class=MsoPlainText><FONT face="Courier New" color=black size=2><SPAN
lang=EN-NZ
style="FONT-SIZE: 10pt; COLOR: black">Giovanni<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">=====================================================================<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; 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><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; 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><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; 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><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">=====================================================================<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; 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 face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Delphi mailing
list<BR>Delphi@ns3.123.co.nz<BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR>
<P>
<HR>
<P></P>No virus found in this incoming message.<BR>Checked by AVG Free
Edition.<BR>Version: 7.1.362 / Virus Database: 267.13.10/188 - Release Date:
29/11/2005<BR></BLOCKQUOTE></BODY></HTML>