Re: Using constants & in

Article View: borland.public.delphi.language.objectpascal

Article #32475

Back to borland.public.delphi.language.objectpascal Previous Next

#32475

From: Stephen Froude
Date: Fri, 22 Nov 2002 12:26

19 lines
1634 bytes

>Are you sure that qryStatus.FieldByName('oldstatus').AsInteger return a
>value between 10 and 1000, where 10 and 1000 in included?

Thanks for your reply. Yes, I'm getting the value 370 in my testing.

I've just created a new app with the following code to make sure, any ideas?

procedure TForm1.Button1Click(Sender: TObject);
const
  STATUS_NEW: Integer = 100;
  STATUS_CANCELLED: Integer = 1000;
var
  iStatus: Integer;
begin
  iStatus := 370;
  if (iStatus in [STATUS_NEW..STATUS_CANCELLED]) then
    ShowMessage('Hello');
end;

Technical Details

Message-ID: <3dde225f$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-04!supernews.com!news.maxwell.syr.edu!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!news-hub.cableinet.net!blueyonder!btnet-peer!btnet!newsfeed.bt.es!195.5.65.34.MISMATCH!caladan.arrakis.es!newsgroups.borland.com!not-for-mail

References: <3dde1a3b$1@newsgroups.borland.com> <3dde1f33@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 109d30,1c6f6604b711dd81
X-Google-Attributes: gid109d30,public
X-Google-ArrivalTime: 2002-11-22 05:32:40 PST
From: "Stephen Froude" <sfroude@teleplan-uk.c0m>
Sender: "Stephen Froude" <sfroude@teleplan-uk.c0m>
Reply-To: "Stephen Froude" <sfroude@teleplan-uk.c0m>
Subject: Re: Using constants & in
Newsgroups: borland.public.delphi.language.objectpascal
X-User-Info: 193.130.174.58 193.130.174.58    
References: <3dde1a3b$1@newsgroups.borland.com> <3dde1f33@newsgroups.borland.com>
NNTP-Posting-Host: 207.105.83.65
Message-ID: <3dde225f$1@newsgroups.borland.com>
Date: 22 Nov 2002 04:26:07 -0800
X-Trace: newsgroups.borland.com 1037967967 207.105.83.65 (22 Nov 2002 04:26:07 -0800)
Lines: 19
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-04!supernews.com!news.maxwell.syr.edu!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!news-hub.cableinet.net!blueyonder!btnet-peer!btnet!newsfeed.bt.es!195.5.65.34.MISMATCH!caladan.arrakis.es!newsgroups.borland.com!not-for-mail

Reply to Parent Message