Dir ファイルの存在 Dir ファイルの存在
Dir関数はファイルの存在チェックに使われます。
Delphiでファイルの存在チェックを行うには FileExists関数を使用します。
VBのDir関数のようにファイルのタイプは返しませんが、Boolean型で返ってくるので使いやすくなっています。
| ■ FileExistsの使用例 |
procedure TForm1.Button1Click(Sender: TObject);
var
strFileName : string;
sltIniData : TStringList;
begin
sltIniData := TStringList.Create;
strFileName := ExtractFilePath(Application.ExeName) + 'init.dat';
//ファイルの存在チェック
if FileExists(strFileName) then begin
//ファイルがあった
sltIniData.LoadFromFile(strFileName);
Memo1.Lines.Assign(sltIniData);
end else begin
//ファイルが無かった
sltIniData.Add('いろんなデータ');
sltIniData.SaveToFile(strFileName);
end;
sltIniData.Free;
end;
|
ディレクトリの存在チェックは DirectoryExists関数を使用します。ただしこの関数は FileCtrlユニットに定義してあるので uses節に FileCtrlを追加しないと使用できません。