アーティクル

#99 Article 502 Posted at 1992/10/12 23:17:30 by Mai (MAP2260) [PASCAL.A]

Subject: Re: Re: {$I-} {$I+} 処理 /501 /500

参考までに、私のプログラムから対応箇所を抜き出すと・・・

Procedure OpenFile;
     Var Fname:String;
     Begin
          if paramcount>0 then Fname:=paramstr(1) else begin
          Writeln('File Name:[.PRC]');
          Readln(Fname);
          end;
          if Pos('.',Fname)=0 then fname:=fname+'.prc';
          {$I-}
          Assign(Fin,Fname);
          Reset(Fin,1);
          {$I+}
          if IOresult<>0 then Begin;Writeln('Not Found',Fname);Halt(1);End;
          Fpos:=0;
     End;

と、ちょっと長くなりましたが、拡張子省略時のデフォルト（この場合は．ＰＲＣ）も
いれて、こんな感じになると思います。

Ｍａｉ