<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:p="urn:schemas-microsoft-com:office:powerpoint" xmlns:a="urn:schemas-microsoft-com:office:access" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" xmlns:b="urn:schemas-microsoft-com:office:publisher" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:odc="urn:schemas-microsoft-com:office:odc" xmlns:oa="urn:schemas-microsoft-com:office:activation" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:q="http://schemas.xmlsoap.org/soap/envelope/" xmlns:rtc="http://microsoft.com/officenet/conferencing" xmlns:D="DAV:" xmlns:Repl="http://schemas.microsoft.com/repl/" xmlns:mt="http://schemas.microsoft.com/sharepoint/soap/meetings/" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ppda="http://www.passport.com/NameSpace.xsd" xmlns:ois="http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir="http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:dsp="http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc="http://schemas.microsoft.com/data/udc" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sub="http://schemas.microsoft.com/sharepoint/soap/2002/1/alerts/" xmlns:ec="http://www.w3.org/2001/04/xmlenc#" xmlns:sp="http://schemas.microsoft.com/sharepoint/" xmlns:sps="http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:udcs="http://schemas.microsoft.com/data/udc/soap" xmlns:udcxf="http://schemas.microsoft.com/data/udc/xmlfile" xmlns:udcp2p="http://schemas.microsoft.com/data/udc/parttopart" xmlns:wf="http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:dsss="http://schemas.microsoft.com/office/2006/digsig-setup" xmlns:dssi="http://schemas.microsoft.com/office/2006/digsig" xmlns:mdssi="http://schemas.openxmlformats.org/package/2006/digital-signature" xmlns:mver="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:mrels="http://schemas.openxmlformats.org/package/2006/relationships" xmlns:spwp="http://microsoft.com/sharepoint/webpartpages" xmlns:ex12t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:ex12m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:pptsl="http://schemas.microsoft.com/sharepoint/soap/SlideLibrary/" xmlns:spsl="http://microsoft.com/webservices/SharePointPortalServer/PublishedLinksService" xmlns:Z="urn:schemas-microsoft-com:" xmlns:st="" 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 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
color:black;}
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph
{mso-style-priority:34;
margin-top:0cm;
margin-right:0cm;
margin-bottom:0cm;
margin-left:36.0pt;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:Consolas;
color:black;}
span.EmailStyle19
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle20
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:634064891;
mso-list-type:hybrid;
mso-list-template-ids:1710765128 67698703 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;}
@list l0:level1
{mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l1
{mso-list-id:1851293082;
mso-list-type:hybrid;
mso-list-template-ids:158514116 -595455006 67698691 67698693 67698689 67698691 67698693 67698689 67698691 67698693;}
@list l1:level1
{mso-level-number-format:bullet;
mso-level-text:-;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:18.0pt;
text-indent:-18.0pt;
font-family:"Calibri","sans-serif";
mso-fareast-font-family:Calibri;
mso-bidi-font-family:"Times New Roman";}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body bgcolor=white lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Delphi 2007 was mentioned – no (Win32) generics. And
that creates a not insignificant problem with using generics and other new
language features in code from (or that may be shared with) existing (i.e. pre-D2009)
projects:<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoListParagraph style='margin-left:18.0pt;text-indent:-18.0pt;
mso-list:l1 level1 lfo2'><![if !supportLists]><span style='font-size:11.0pt;
font-family:"Calibri","sans-serif";color:#1F497D'><span style='mso-list:Ignore'>-<span
style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>They were introduced in Delphi 2009, along with the unavoidable
transition to Unicode<o:p></o:p></span></p>
<p class=MsoListParagraph style='margin-left:54.0pt'><span style='font-size:
11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoListParagraph style='margin-left:18.0pt;text-indent:-18.0pt;
mso-list:l1 level1 lfo2'><![if !supportLists]><span style='font-size:11.0pt;
font-family:"Calibri","sans-serif";color:#1F497D'><span style='mso-list:Ignore'>-<span
style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Consequently if you convert existing classes derived from
TObjectList to TObjectList<T> or similar then you also have to migrate your
code to Unicode<o:p></o:p></span></p>
<p class=MsoListParagraph><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoListParagraph style='margin-left:18.0pt;text-indent:-18.0pt;
mso-list:l1 level1 lfo2'><![if !supportLists]><span style='font-size:11.0pt;
font-family:"Calibri","sans-serif";color:#1F497D'><span style='mso-list:Ignore'>-<span
style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>If you find (or fear) that Unicode creates issues for your code
that you don’t have time to deal with for your next release you have
created (generics) code that does not migrate back to Delphi 2007 and the “sanctuary”
of ANSIString<o:p></o:p></span></p>
<p class=MsoListParagraph><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoListParagraph style='margin-left:18.0pt;text-indent:-18.0pt;
mso-list:l1 level1 lfo2'><![if !supportLists]><span style='font-size:11.0pt;
font-family:"Calibri","sans-serif";color:#1F497D'><span style='mso-list:Ignore'>-<span
style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Similarly you cannot use these language features if your code
has to be shared with other projects that are not migrating to Unicode,
although that is perhaps a less likely scenario.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>The only safe way to deal with this is to deal with Unicode
migration as a separate, pre-requisite project before then making any changes
that exploit or take advantage of new language features introduced in the
Unicode only version(s) of Delphi.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Only once you are 100% certain that the Unicode transition has
not introduced undesirable side effects can you consider using language
features which commit your code to the Unicode compiler/RTL.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Sadly successful compilation without errors or warnings is no guarantee
against some side effects, so unless you have 100% automated test coverage,
achieving that certainty is not necessarily going to be straightforward.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif";
color:windowtext'>From:</span></b><span style='font-size:10.0pt;font-family:
"Tahoma","sans-serif";color:windowtext'> delphi-bounces@delphi.org.nz
[mailto:delphi-bounces@delphi.org.nz] <b>On Behalf Of </b>Sean Cross<br>
<b>Sent:</b> Thursday, 15 October 2009 11:41 a.m.<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] Stupid /easy question<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>If you are using a version of Delphi with generics, you should
be able to use a generic list and it'll work fine.<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>eg<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>var myList : TObjectList<TMyObject>;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Regards<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Sean Cross<br>
CIO<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Catalyst Risk Management<br>
PO Box 230<br>
Napier 4140<br>
DDI: 06-8340362<br>
Mobile: 021270 3466<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Visit us at <a href="http://www.catalystrisk.co.nz/"
target="_blank">http://www.catalystrisk.co.nz</a><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Offices in Auckland, Hamilton, Napier, Wellington, Christchurch
& Dunedin<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Disclaimer:<br>
</span><span lang=EN-NZ style='font-size:10.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>"The information contained in this document is confidential
to the addressee(s) and may be legally privileged. Any view or opinions
expressed are those of the author and may not be those of Catalyst Risk
Management. No guarantee or representation is made that this communication is
free of errors, viruses or interference. If you have received this e-mail
message in error please delete it and notify me. Thank you."</span><span
lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> <o:p></o:p></span></p>
</div>
<p class=MsoNormal><span lang=EN-NZ style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div style='border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt'>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif";
color:windowtext'>From:</span></b><span style='font-size:10.0pt;font-family:
"Tahoma","sans-serif";color:windowtext'> delphi-bounces@delphi.org.nz
[mailto:delphi-bounces@delphi.org.nz] <b>On Behalf Of </b>Robert martin<br>
<b>Sent:</b> Thursday, 15 October 2009 10:45 a.m.<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] Stupid /easy question<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><span lang=EN-NZ><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-NZ>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></span></p>
<div>
<div>
<p class=MsoNormal><span lang=EN-NZ><o:p> </o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-NZ style='color:#FF9900'> </span><span lang=EN-NZ><o:p></o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-NZ> <o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><span lang=EN-NZ><br>
<br>
Jolyon Smith wrote: <o:p></o:p></span></p>
<pre><span lang=EN-NZ>You will have to implement an enumerator for your TCountryAddressFormats<o:p></o:p></span></pre><pre><span
lang=EN-NZ>class that returns TCountryAddressFormat references.<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>This isn't a language feature that "just works" - you have to put some<o:p></o:p></span></pre><pre><span
lang=EN-NZ>infrastructure in place to support it.<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>The feature appears to "just work" for a bunch of VCL types (TStringList<o:p></o:p></span></pre><pre><span
lang=EN-NZ>etc) because the VCL already contains the necessary infrastructure additions<o:p></o:p></span></pre><pre><span
lang=EN-NZ>(and which should provide the examplar implementations on which you could<o:p></o:p></span></pre><pre><span
lang=EN-NZ>base your own).<o:p></o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>-----Original Message-----<o:p></o:p></span></pre><pre><span
lang=EN-NZ>From: <a href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a> [<a
href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>] On<o:p></o:p></span></pre><pre><span
lang=EN-NZ>Behalf Of Robert martin<o:p></o:p></span></pre><pre><span
lang=EN-NZ>Sent: Thursday, 15 October 2009 10:06 a.m.<o:p></o:p></span></pre><pre><span
lang=EN-NZ>To: NZ Borland Developers Group - Delphi List<o:p></o:p></span></pre><pre><span
lang=EN-NZ>Subject: [DUG] Stupid /easy question<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>Hi<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>After the D2010 presentation yesterday I decided I should actually use <o:p></o:p></span></pre><pre><span
lang=EN-NZ>some of the D2007 features I had not gotten around to using. <o:p></o:p></span></pre><pre><span
lang=EN-NZ>Specifically the For .. in construct.<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>I am sure I am missing something but here iss what I want to do<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ>I have the following 'old school code' (note the base class here <o:p></o:p></span></pre><pre><span
lang=EN-NZ>inherits from TObjectList)<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></span></pre><pre><span
lang=EN-NZ>TStrings);<o:p></o:p></span></pre><pre><span lang=EN-NZ>var<o:p></o:p></span></pre><pre><span
lang=EN-NZ> Counter : Integer;<o:p></o:p></span></pre><pre><span
lang=EN-NZ>begin<o:p></o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ> for Counter := 0 to Self.Count - 1 do begin<o:p></o:p></span></pre><pre><span
lang=EN-NZ> Strings.AddObject( <o:p></o:p></span></pre><pre><span
lang=EN-NZ>TCountryAddressFormat(Self.Items[Counter]).CountryName, <o:p></o:p></span></pre><pre><span
lang=EN-NZ>Tobject(TCountryAddressFormat(Self.Items[Counter]).CountryRefAsInteger) );<o:p></o:p></span></pre><pre><span
lang=EN-NZ> end;<o:p></o:p></span></pre><pre><span
lang=EN-NZ>end;<o:p></o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ>I wanted to replace it with<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></span></pre><pre><span
lang=EN-NZ>TStrings);<o:p></o:p></span></pre><pre><span lang=EN-NZ>var<o:p></o:p></span></pre><pre><span
lang=EN-NZ> CountryAddressFormat : TCountryAddressFormat;<o:p></o:p></span></pre><pre><span
lang=EN-NZ>begin<o:p></o:p></span></pre><pre><span lang=EN-NZ> for CountryAddressFormat in Self do begin<o:p></o:p></span></pre><pre><span
lang=EN-NZ> Strings.AddObject( CountryAddressFormat.CountryName, <o:p></o:p></span></pre><pre><span
lang=EN-NZ>TObject(CountryAddressFormat.CountryRefAsInteger) );<o:p></o:p></span></pre><pre><span
lang=EN-NZ> end;<o:p></o:p></span></pre><pre><span
lang=EN-NZ>end;<o:p></o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ>but I get the following error<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>[DCC Error] AddressFormat.pas(157): E2010 Incompatible types: <o:p></o:p></span></pre><pre><span
lang=EN-NZ>'TCountryAddressFormat' and 'Pointer'<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>what am I missing ?<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ>Cheers<o:p></o:p></span></pre><pre><span lang=EN-NZ>Rob<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ>_______________________________________________<o:p></o:p></span></pre><pre><span
lang=EN-NZ>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></span></pre><pre><span
lang=EN-NZ>Post: <a href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></span></pre><pre><span
lang=EN-NZ>Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></span></pre><pre><span
lang=EN-NZ>Unsubscribe: send an email to <a
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject:<o:p></o:p></span></pre><pre><span
lang=EN-NZ>unsubscribe<o:p></o:p></span></pre><pre><span lang=EN-NZ><o:p> </o:p></span></pre><pre><span
lang=EN-NZ>_______________________________________________<o:p></o:p></span></pre><pre><span
lang=EN-NZ>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></span></pre><pre><span
lang=EN-NZ>Post: <a href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></span></pre><pre><span
lang=EN-NZ>Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></span></pre><pre><span
lang=EN-NZ>Unsubscribe: send an email to <a
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<o:p></o:p></span></pre><pre><span
lang=EN-NZ><o:p> </o:p></span></pre><pre><span lang=EN-NZ> <o:p></o:p></span></pre></div>
</div>
</body>
</html>