<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">It's years since I saw anybody use the "absolute" keyword. The number of times I've had to explain what it does and why you'd use it:-) What better example could you find.<div><br></div><div>Regards</div><div><br></div><div>Roger</div><div><br><div><div>On 15/10/2009, at 11:11 AM, Robert martin wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div bgcolor="#ffffff" text="#000000">That worked a charm :)<br><br>Cheers<br><br><div class="moz-signature"><div class="Section1"><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span lang="EN-NZ" style="color: rgb(255, 153, 0); "><o:p> </o:p></span></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span lang="EN-NZ"><o:p> </o:p></span></div></div></div><br><br>Jolyon Smith wrote:<blockquote cite="mid:005201ca4d19$6673d9b0$335b8d10$@co.nz" type="cite"><div class="Section1"><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); ">As has been mentioned you can use the “built in” enumerator, but that will only yield Pointer values, so you would then have to typecast the results, or you should be able to use “absolute” to achieve the typecast “declaratively” in the var declarations:<o:p></o:p></span></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p> </o:p></span></div><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">var<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> addrFormatEnum: Pointer;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> addrFormat: TCountryAddressFormat absolute addrFormatEnum;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> for addrFormatEnum in Self do<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> Strings.AddObject(addrFormat.CountryName, <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> TObject(addrFormat.CountryRefAsInteger));<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> end;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">end;<o:p></o:p></pre><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p> </o:p></span></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); ">But note that the above code is untested either for compilation or behaviour. <span class="Apple-converted-space"> </span></span><span style="font-size: 11pt; font-family: Wingdings; color: rgb(31, 73, 125); ">J</span><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p></o:p></span></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p> </o:p></span></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p> </o:p></span></div><div><div style="border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; border-top-width: 1pt; border-right-width: medium; border-bottom-width: medium; border-left-width: medium; padding-top: 3pt; padding-right: 0cm; padding-bottom: 0cm; padding-left: 0cm; "><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><b><span style="font-size: 10pt; font-family: Tahoma, sans-serif; color: windowtext; ">From:</span></b><span style="font-size: 10pt; font-family: Tahoma, sans-serif; color: windowtext; "><span class="Apple-converted-space"> </span><a class="moz-txt-link-abbreviated" href="mailto:delphi-bounces@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi-bounces@delphi.org.nz</a><span class="Apple-converted-space"> </span>[<a class="moz-txt-link-freetext" href="mailto:delphi-bounces@delphi.org.nz" style="color: blue; text-decoration: underline; ">mailto:delphi-bounces@delphi.org.nz</a>]<span class="Apple-converted-space"> </span><b>On Behalf Of<span class="Apple-converted-space"> </span></b>Robert martin<br><b>Sent:</b><span class="Apple-converted-space"> </span>Thursday, 15 October 2009 10:45 a.m.<br><b>To:</b><span class="Apple-converted-space"> </span>NZ Borland Developers Group - Delphi List<br><b>Subject:</b><span class="Apple-converted-space"> </span>Re: [DUG] Stupid /easy question<o:p></o:p></span></div></div></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><o:p> </o:p></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; ">Hi<br><br>Yeah I read examples of how to add enumerators but since TObjectList already has one I didn't think I needed to. Guess I do. Seems like it is a bit too much work for basic (small) classes not frequently used (such as the one im working on). Will give it a go anyway :)<br><br>Thanks<br>Rob<o:p></o:p></div><div><div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><o:p> </o:p></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span lang="EN-NZ" style="color: rgb(255, 153, 0); "> </span><o:p></o:p></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><span lang="EN-NZ"> </span><o:p></o:p></div></div></div><div style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 12pt; font-family: 'Times New Roman', serif; color: black; "><br><br>Jolyon Smith wrote:<o:p></o:p></div><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">You will have to implement an enumerator for your TCountryAddressFormats<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">class that returns TCountryAddressFormat references.<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">This isn't a language feature that "just works" - you have to put some<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">infrastructure in place to support it.<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">The feature appears to "just work" for a bunch of VCL types (TStringList<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">etc) because the VCL already contains the necessary infrastructure additions<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">(and which should provide the examplar implementations on which you could<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">base your own).<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">-----Original Message-----<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">From: <a moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi-bounces@delphi.org.nz</a> [<a moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz" style="color: blue; text-decoration: underline; ">mailto:delphi-bounces@delphi.org.nz</a>] On<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Behalf Of Robert martin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Sent: Thursday, 15 October 2009 10:06 a.m.<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">To: NZ Borland Developers Group - Delphi List<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Subject: [DUG] Stupid /easy question<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Hi<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">After the D2010 presentation yesterday I decided I should actually use <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">some of the D2007 features I had not gotten around to using. <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Specifically the For .. in construct.<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">I am sure I am missing something but here iss what I want to do<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">I have the following 'old school code' (note the base class here <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">inherits from TObjectList)<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">TStrings);<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">var<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> Counter : Integer;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> for Counter := 0 to Self.Count - 1 do begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> Strings.AddObject( <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">TCountryAddressFormat(Self.Items[Counter]).CountryName, <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Tobject(TCountryAddressFormat(Self.Items[Counter]).CountryRefAsInteger) );<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> end;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">end;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">I wanted to replace it with<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">TStrings);<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">var<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> CountryAddressFormat : TCountryAddressFormat;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> for CountryAddressFormat in Self do begin<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> Strings.AddObject( CountryAddressFormat.CountryName, <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">TObject(CountryAddressFormat.CountryRefAsInteger) );<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> end;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">end;<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">but I get the following error<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">[DCC Error] AddressFormat.pas(157): E2010 Incompatible types: <o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">'TCountryAddressFormat' and 'Pointer'<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">what am I missing ?<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Cheers<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Rob<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">_______________________________________________<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Post: <a moz-do-not-send="true" href="mailto:delphi@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi@delphi.org.nz</a><o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Admin: <a moz-do-not-send="true" href="http://delphi.org.nz/mailman/listinfo/delphi" style="color: blue; text-decoration: underline; ">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Unsubscribe: send an email to <a moz-do-not-send="true" href="mailto:delphi-request@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi-request@delphi.org.nz</a> with Subject:<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">unsubscribe<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">_______________________________________________<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Post: <a moz-do-not-send="true" href="mailto:delphi@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi@delphi.org.nz</a><o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Admin: <a moz-do-not-send="true" href="http://delphi.org.nz/mailman/listinfo/delphi" style="color: blue; text-decoration: underline; ">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; ">Unsubscribe: send an email to <a moz-do-not-send="true" href="mailto:delphi-request@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<o:p></o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><o:p> </o:p></pre><pre style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "> <o:p></o:p></pre></div><pre wrap="" style="margin-top: 0cm; margin-right: 0cm; margin-bottom: 0.0001pt; margin-left: 0cm; font-size: 10pt; font-family: 'Courier New'; color: black; "><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" style="color: blue; text-decoration: underline; ">delphi@delphi.org.nz</a>
Admin: <a class="moz-txt-link-freetext" href="http://delphi.org.nz/mailman/listinfo/delphi" style="color: blue; text-decoration: underline; ">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" style="color: blue; text-decoration: underline; ">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</pre></blockquote>_______________________________________________<br>NZ Borland Developers Group - Delphi mailing list<br>Post:<span class="Apple-converted-space"> </span><a href="mailto:delphi@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi@delphi.org.nz</a><br>Admin:<span class="Apple-converted-space"> </span><a href="http://delphi.org.nz/mailman/listinfo/delphi" style="color: blue; text-decoration: underline; ">http://delphi.org.nz/mailman/listinfo/delphi</a><br>Unsubscribe: send an email to<span class="Apple-converted-space"> </span><a href="mailto:delphi-request@delphi.org.nz" style="color: blue; text-decoration: underline; ">delphi-request@delphi.org.nz</a><span class="Apple-converted-space"> </span>with Subject: unsubscribe</div></span></blockquote></div><br></div></body></html>