🚀 go-pugleaf

"The Scarlet Manuka" <sacha@maths.uwa.edu.au> wrote in message
news:9hetbt$ch0$1@fang.dsto.defence.gov.au...
> "Mr. Veli Suorsa" <veli.suorsa@surfeu.fi> wrote in message
> news:3B3B7A4E.471A1A3F@surfeu.fi...
> > 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

...

> > Can I use in Pascal something like this case- command (Note: many
case-
> > characters)?
> > ...
> >    case arg of
> >           '-N': doNuclearPower;
> > ...
> > And of cource all other arguments same way.
>
> No (I would have suggested it if so; it's much easier). You can't
use a
> string variable as a case selector, it needs to be an ordinal
expression.
> Single characters are OK (the char type is an ordinal type), but
strings
> are not - the best you can do is "if... else if... else if... "
chains
> for those.

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:

Const
  parCall = '-C';
  parNuke = '-N';
  parWind = '-W';

  Params : String =
      parCall+#0
     +parNuke+#0
     +parWind+#0;

  posCall=1;
  posNuke=posCall+length(parCall)+1;
  posWind=posNuke+length(parNuke)+1;

var
  i : Integer;
Begin
  writeln(ParamCount,' parameters');
  For i := 1 to ParamCount do
  Begin
    write(i,': "',ParamStr(i),'" - ');
    case pos(paramStr(i)+#0, Params) of
      posCall: Writeln('Call');
      posNuke: Writeln('Nuke');
      posWind: Writeln('Wind');
    else
      writeln('Unrecognised');
    end;
  end;
end.



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

FP