掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FileExistsのマスク文字が、D2007で無効になる (ID:29878)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じな関数を作ればOKかな function FileExists(Path:String):Boolean; var SearchRec: TSearchRec; begin Result := False; if FindFirst(Path,faAnyFile,SearchRec) = 0 then Result := True; if SearchRec.Attr and faDirectory = faDirectory then Result := False; if SearchRec.Attr and faVolumeID = faVolumeID then Result := False; FindClose(SearchRec); end; function DirecotryExists(Path:String):Boolean; var SearchRec: TSearchRec; begin Result := False; if FindFirst(Path,faAnyFile,SearchRec) = 0 then Result := True; if SearchRec.Attr and faDirectory <> faDirectory then Result := False; FindClose(SearchRec); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.