<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:m="http://schemas.microsoft.com/office/2004/12/omml" 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:"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;}
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-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;}
-->
</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-NZ link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span 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 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'>eg<o:p></o:p></span></p>
<p class=MsoNormal><span 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 style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Regards<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'>Sean Cross<br>
CIO<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'>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 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'>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 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'>Offices in Auckland, Hamilton, Napier, Wellington, Christchurch
& Dunedin<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'>Disclaimer:<br>
</span><span 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
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>
<p class=MsoNormal><span 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 lang=EN-US style='font-size:10.0pt;font-family:
"Tahoma","sans-serif";color:windowtext'>From:</span></b><span lang=EN-US
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><o:p> </o:p></p>
<p class=MsoNormal>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></p>
<div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
style='color:#FF9900'> </span><o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
</div>
</div>
<p class=MsoNormal><br>
<br>
Jolyon Smith wrote: <o:p></o:p></p>
<pre>You will have to implement an enumerator for your TCountryAddressFormats<o:p></o:p></pre><pre>class that returns TCountryAddressFormat references.<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>This isn't a language feature that "just works" - you have to put some<o:p></o:p></pre><pre>infrastructure in place to support it.<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>The feature appears to "just work" for a bunch of VCL types (TStringList<o:p></o:p></pre><pre>etc) because the VCL already contains the necessary infrastructure additions<o:p></o:p></pre><pre>(and which should provide the examplar implementations on which you could<o:p></o:p></pre><pre>base your own).<o:p></o:p></pre><pre><o:p> </o:p></pre><pre><o:p> </o:p></pre><pre>-----Original Message-----<o:p></o:p></pre><pre>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></pre><pre>Behalf Of Robert martin<o:p></o:p></pre><pre>Sent: Thursday, 15 October 2009 10:06 a.m.<o:p></o:p></pre><pre>To: NZ Borland Developers Group - Delphi List<o:p></o:p></pre><pre>Subject: [DUG] Stupid /easy question<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>Hi<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>After the D2010 presentation yesterday I decided I should actually use <o:p></o:p></pre><pre>some of the D2007 features I had not gotten around to using. <o:p></o:p></pre><pre>Specifically the For .. in construct.<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>I am sure I am missing something but here iss what I want to do<o:p></o:p></pre><pre><o:p> </o:p></pre><pre><o:p> </o:p></pre><pre>I have the following 'old school code' (note the base class here <o:p></o:p></pre><pre>inherits from TObjectList)<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></pre><pre>TStrings);<o:p></o:p></pre><pre>var<o:p></o:p></pre><pre> Counter : Integer;<o:p></o:p></pre><pre>begin<o:p></o:p></pre><pre><o:p> </o:p></pre><pre> for Counter := 0 to Self.Count - 1 do begin<o:p></o:p></pre><pre> Strings.AddObject( <o:p></o:p></pre><pre>TCountryAddressFormat(Self.Items[Counter]).CountryName, <o:p></o:p></pre><pre>Tobject(TCountryAddressFormat(Self.Items[Counter]).CountryRefAsInteger) );<o:p></o:p></pre><pre> end;<o:p></o:p></pre><pre>end;<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>I wanted to replace it with<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: <o:p></o:p></pre><pre>TStrings);<o:p></o:p></pre><pre>var<o:p></o:p></pre><pre> CountryAddressFormat : TCountryAddressFormat;<o:p></o:p></pre><pre>begin<o:p></o:p></pre><pre> for CountryAddressFormat in Self do begin<o:p></o:p></pre><pre> Strings.AddObject( CountryAddressFormat.CountryName, <o:p></o:p></pre><pre>TObject(CountryAddressFormat.CountryRefAsInteger) );<o:p></o:p></pre><pre> end;<o:p></o:p></pre><pre>end;<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>but I get the following error<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>[DCC Error] AddressFormat.pas(157): E2010 Incompatible types: <o:p></o:p></pre><pre>'TCountryAddressFormat' and 'Pointer'<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>what am I missing ?<o:p></o:p></pre><pre><o:p> </o:p></pre><pre><o:p> </o:p></pre><pre>Cheers<o:p></o:p></pre><pre>Rob<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>_______________________________________________<o:p></o:p></pre><pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre><pre>Post: <a
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre><pre>Admin: <a
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre><pre>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></pre><pre>unsubscribe<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>_______________________________________________<o:p></o:p></pre><pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre><pre>Post: <a
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre><pre>Admin: <a
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre><pre>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></pre><pre><o:p> </o:p></pre><pre> <o:p></o:p></pre></div>
</div>
</body>
</html>