Wow...
I never knew you could use:
TItemStatusType = (ItmRegular = 1, ItmOpenPrice, ItmScale, ItmService);
in Delphi 7, but apparantly it can be used... It's even funnier, since
I altered it to:
TItemStatusType = (ItmRegular = 1, ItmOpenPrice = 4, ItmScale = 7,
ItmService = 10);
And then wrote this code:
var I: TItemStatusType;
begin
for I := Low(I) to High(I) do
WriteLn(IntToStr(Ord(I)));
end;
And it writes the numbers 1 to 10! Interesting. :D Of course it would
have a minor flaw since for values 2, 3, 5, 6, 8 and 9 there are no
names defined but okay, that's just a minor issue. In a small test
application it does work fine, though. Still, it is something that
could be useful in some cases. :-)
I wonder if this error is caused because you are using this type in
array declarations or whatever.
I found an article on Quality Central
(http://qc.borland.com/wc/qcmain.aspx?d=2166) so the error is
reported, yet not fixed. Try deleting all your DCU's (Better, copy
them to a safe location) and rebuild your application. I wonder if
that will fix it. (And sorry for the late response.)
With kind regards,
X Katja Bergman.
--- In delphi-en@yahoogroups.com, "Vahan Yoghoudjian" <[EMAIL PROTECTED]> wrote:
> At Last!!!!
>
> After 3 days of work and commenting many many units in the
application I could trace the source of the problem
>
> In one of my tables I had the following declarations
>
> TItemStatusType = (ItmRegular =
1,ItmOpenPrice,ItmScale,ItmService);
> TItemTypeScope = set of TItemStatusType;
>
> If I comment the second declaration TItemStatusScope or erase
the = 1 intialization it works fine. Of course I erased the =1 as I
need the second declaration.
>
> I don't know why Delphi does not display this as an error, why
it neglects it while building the project but not when I compile the
package... anyway, they were 3 long days and now I can have a good
weekend. I just wanted to inform you so that no one falls in this
>
> Nice weekend
> Vahan
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12hn8o86s/M=362329.6886308.7839368.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1124463097/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</a>.</font>
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
