#99 Article 464 Posted at 1992/09/21 02:10:05 by 桑野誼智 (MAP2509) [A.PASCAL]
Subject: Re:*26 まだ登録書も出してないパスカルの質問。 /463 ........ /433 /432
> あたしはただ、何も指定しなかったときに
> パレット変更しておわりたかっただけなんですぅしくしく。
えーと、ちゃい先生のサンプルをちょこちょこっと入れ替えて、
var opt,s:string; i:integer;
begin
if paramCount>0 then begin
s:=paramStr(1);
if s[1]='-' then begin
opt:=s+'zs '; i:=2;
end else begin
opt:='-zs '; i:=1;
end;
while i<=paramCount do begin
exec(fsearch('ml1w.exe',getEnv('PATH')),
opt+paramStr(i));
inc(i);
end;
end;
{ここにパレット変更部分を入れる}
end;
こんな感じですか？（ほ、ほんとに入れ替えただけ…(^^;)）
パレット変更部分、ループの中じゃないと駄目なのかな。
桑野誼智♪
◎◎