Re: Need very good Argument switch program

Article View: comp.lang.pascal.borland

Article #160

Back to comp.lang.pascal.borland Previous Next

#160

From: The Scarlet Manuka
Date: Thu, 28 Jun 2001 10:52

25 lines
2093 bytes

"Frank Peelo" <fpeelo@eircom.net> wrote in message
news:9heus0$al2$1@kermit.esat.net...

> > > The Scarlet Manuka wrote:
> > > >
> > > >       arg := ParamStr(x);
> > > >       if (length(arg) = 2) and (arg[1] = '-') then
> > > >         case arg[2] of
>
> or case UpCase(arg[2]) if you didn't want to be case-sensitive

Yes, I mentioned that. ;-)

> it is possible to convert the string to an integer by searching in a
> larger string, as in the following example which compiles in BP7:

[snip]

> but it's probably more trouble than it's worth.

Er... yes. I don't think I *want* to understand how that bit of code
works. ;-)

--
The Scarlet Manuka

Technical Details

Message-ID: <9hf22o$e1r$1@fang.dsto.defence.gov.au>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news.mel.connect.com.au!newshub1.rdc1.nsw.optushome.com.au!news1.optus.net.au!optus!yorrell.saard.net!fang.dsto.defence.gov.au!not-for-mail

References:

<3B3A3561.13B23C0F@surfeu.fi> <9hccch$npp$1@fang.dsto.defence.gov.au> <3B3B7A4E.471A1A3F@surfeu.fi> <9hetbt$ch0$1@fang.dsto.defence.gov.au> <9heus0$al2$1@kermit.esat.net>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 108ebd,325c6695c14dd242
X-Google-Attributes: gid108ebd,public
X-Google-Thread: 111659,325c6695c14dd242
X-Google-Attributes: gid111659,public
X-Google-ArrivalTime: 2001-06-28 04:00:08 PST
From: "The Scarlet Manuka" <sacha@maths.uwa.edu.au>
Newsgroups: comp.lang.pascal.borland,borland.public.turbopascal
Subject: Re: Need very good Argument switch program
Date: Thu, 28 Jun 2001 18:52:47 +0800
Organization: Defence Science and Technology Organisation
Lines: 27
Message-ID: <9hf22o$e1r$1@fang.dsto.defence.gov.au>
References: <3B3A3561.13B23C0F@surfeu.fi> <9hccch$npp$1@fang.dsto.defence.gov.au> <3B3B7A4E.471A1A3F@surfeu.fi> <9hetbt$ch0$1@fang.dsto.defence.gov.au> <9heus0$al2$1@kermit.esat.net>
NNTP-Posting-Host: un-oranged.dsto.defence.gov.au
X-Trace: fang.dsto.defence.gov.au 993725336 14395 203.6.60.95 (28 Jun 2001 10:48:56 GMT)
X-Complaints-To: postmaster@dsto.defence.gov.au
NNTP-Posting-Date: 28 Jun 2001 10:48:56 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news.mel.connect.com.au!newshub1.rdc1.nsw.optushome.com.au!news1.optus.net.au!optus!yorrell.saard.net!fang.dsto.defence.gov.au!not-for-mail

Reply to Parent Message