🚀 go-pugleaf

Must be a problem with the server given several idential replies (some with
the same name) but Martin James was first to suggest this particular
solution in response to my original post:

Or, even more impressive, use a set:
if not myString[index] in ['0'..'9'] then....

Wouldn't compile at first in Delphi 6 Enterprise (given the message
'Operator not applicable to this type of Operand') until I added parentheses
as follows:

if not (myString[index] in ['0'..'9']) then....

While there is more than one way to skin a chicken, this seems to work the
best. Thanks to all for your feedback.

Marty Potokar

"Dr John Stockton" <spam@merlyn.demon.co.uk> wrote in message
news:vg53EoBTFp39EwCM@merlyn.demon.co.uk...
> JRS:  In article <3dddff49@newsgroups.borland.com>, seen in news:borland
> .public.delphi.language.objectpascal, Martin James
> <mjames_falcon@dial.pipex.com> posted at Fri, 22 Nov 2002 09:53:32 :-
> >
> >Or, even more impressive, use a set:
> >
> >if not myString[index] in ['0'..'9'] then....
> >
> >If my solution gets higher marks that others that use a const string,
> >please send me the fee instead.  Jens can go hungry.
>
> D3 DCC32 will not compile that without the addition of () as shown
> below.
>
> var mystring : string ; index : integer ;
> begin
> if not (myString[index] in ['0'..'9']) then ;
> end.
>
> Any survivors of the D3 DCC32 development team may care to consider
> whether compiling that should give this :
> $$5566.pas(4) Fatal: Internal error: C1376
>
> But following the begin with    myString := 'fffff' ; index := 3 ;
> gives a good compile.
>
> --
> � John Stockton, Surrey, UK.  jrs@merlyn.demon.co.uk   D3  Turnpike v4
MIME. �
>   <URL:http://www.merlyn.demon.co.uk/> TP/BP/Delphi/&c., FAQqy topics &
links;
>   <URL:http://www.bancoems.com/CompLangPascalDelphiMisc-MiniFAQ.htm>
clpdmFAQ;
>   <URL:http://www.borland.com/newsgroups/guide.html> news:borland.*
Guidelines