[DUG] Stupid /easy question

[Jolyon Smith]

You will have to implement an enumerator for your TCountryAddressFormats
class that returns TCountryAddressFormat references.

This isn't a language feature that "just works" - you have to put some
infrastructure in place to support it.

The feature appears to "just work" for a bunch of VCL types (TStringList
etc) because the VCL already contains the necessary infrastructure additions
(and which should provide the examplar implementations on which you could
base your own).


-----Original Message-----
From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz] On
Behalf Of Robert martin
Sent: Thursday, 15 October 2009 10:06 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Stupid /easy question

Hi

After the D2010 presentation yesterday I decided I should actually use 
some of the D2007 features I had not gotten around to using.  
Specifically the For .. in construct.

I am sure I am missing something but here iss what I want to do


I have the following 'old school code'  (note the base class here 
inherits from TObjectList)

procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: 
TStrings);
var
    Counter     : Integer;
begin

    for Counter := 0 to Self.Count - 1 do begin
        Strings.AddObject( 
TCountryAddressFormat(Self.Items[Counter]).CountryName,  
Tobject(TCountryAddressFormat(Self.Items[Counter]).CountryRefAsInteger) );
    end;
end;

I wanted to replace it with

procedure TCountryAddressFormats.LoadStringListWithCompanies(Strings: 
TStrings);
var
    CountryAddressFormat  : TCountryAddressFormat;
begin
    for CountryAddressFormat in Self do begin
        Strings.AddObject( CountryAddressFormat.CountryName, 
TObject(CountryAddressFormat.CountryRefAsInteger) );
    end;
end;

but I get the following error

[DCC Error] AddressFormat.pas(157): E2010 Incompatible types: 
'TCountryAddressFormat' and 'Pointer'

what am I missing ?


Cheers
Rob

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe