<!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=us-ascii">
<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>@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
P.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Courier New"
}
LI.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Courier New"
}
DIV.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Courier New"
}
SPAN.EmailStyle17 {
COLOR: windowtext; FONT-FAMILY: Arial; mso-style-type: personal-compose
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-GB vLink=purple link=blue>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>If you have a default other than zero then you need to
specify it as the default for the property.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>e.g.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>property Bob: Integer read FBob write SetBob default
1;</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>This does not set the value of the property at all, so you
still have to set it in the constructor.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>The only think this really does, is that the property is
not written to the DFM if it is the deault value.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>This is good, because it allows you to change the default
value, and any property that has not set it specifically will get the new
default.</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=714115318-01122005><FONT face=Arial
color=#0000ff size=2>Stacey</FONT></SPAN></DIV><BR>
<BLOCKQUOTE dir=ltr
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> delphi-bounces@ns3.123.co.nz
[mailto:delphi-bounces@ns3.123.co.nz] <B>On Behalf Of </B>Moretti,
Giovanni<BR><B>Sent:</B> Thursday, 1 December 2005 15:43<BR><B>To:</B> NZ
Borland Developers Group - Delphi List<BR><B>Subject:</B> [DUG] Zero-valued
Real Properties not being stored to .DFM file???(D7
Enterprise)<BR></FONT><BR></DIV>
<DIV></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></BLOCKQUOTE></BODY></HTML>