#99 Article 473 Posted at 1992/09/23 07:47:32 by 桑野誼智 (MAP2509) [Q.PASCAL]
Subject: Re:*33 まだ登録書も出してないパスカルの質問。 /470 .......... /433 /432
>（パラメータ無しでパレット変えてくれませんし、
んーと、それは、
|if ParamCount < 1 then Exit;
ParamCount=0 の時に、ここでプログラムから抜けちゃうからです。
>複数のファイル指定してもあいだのスペースひろてくんないですけど
パラメータってそういうものだと思いますが(^^;)。
で（笑）、
{$M 14000,0,0}
uses Dos,Vram;
var opt:string; i:integer;
begin
if ParamCount > 0 then begin
opt := '-zs';
for i := 1 to ParamCount do
opt := opt + ' ' + ParamStr(i);
exec(fsearch('ml1w.exe',getEnv('PATH')),opt);
end;
Pal( 0,0,0,0);
中略。
Pal(15,7,7,7);
end.
…ってしておけば、パラメータがあるときはまずml1wを起動します。
パレット変更のところは if文（if～then begin～end;）の外ですから、
パラメータの有無にかかわらず実行されるのです。
桑野誼智♪
◎◎