Pacal再入門:ファイルの存在の確認
指定されたファイルが存在するかどうかだけを確認するプログラム。
あくまでもエチュード。
program fexist;
Uses sysutils;
var
filename: string;
acnt:integer;
count:integer;
begin
acnt := argc;
writeln('arg count is ', acnt);
for count:=1 to argc-1 do writeln(argv[count]);
if acnt<2 then writeln('Missing arg');
if acnt>2 then writeln('Too much args');
if acnt=2 then begin
filename := argv[1];
if FileExists(filename) then writeln(filename, ' is exisits') else writeln(filename, ' is no exisits');
end;
end.
初歩的な事を確認しながら書いたので、この短いコードには洗練の欠片もない。
if文じゃなくてcase文を使うべきだし、argv, argcの代入も気持ち悪い。
FilleExists関数を使う為には、Uses節で'Sysutils'を宣言しておく必要がある。
文字列リテラルは"ではなくて'で囲む。
代入の:=と、等号の=を取り違えない。久し振りなので本当にいろんな事を忘れている。
発見としては、'01-Dancing Queen.mp3'のようなスペースの入るファイル名もちゃんと認識できる事。以前もそうだったかどうか覚えていない。
もともと、ファイル名にスペースを入れる習慣はなかったし、既存のファイルを読み込むようなプログラムを書くことがなかったので、確認しなかっただけかもしれない。