掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
更新日付との比較について (ID：17397)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
にしのさん、ありがとうございます。 やはりそういう仕様なんでしょうか。 .FindData.ftLastWriteTimeを使ってみたいと思います。 ところで、DateTimeToFileTime関数が未定義と出てしまうんですが、 Delphiのバージョンが古いからですかね... ちなみにv.4で、uses FileNameCtrls で見つからないそうです。 なんだか持ち替えばかりでスマートじゃないですが、こんな感じでしょうか。 var SysTime : SystemTime; dt0, dt1: datetime; begin dt0:= StrToDateTime('2005/09/05 11:20:58'); if FindFirst('ファイル名',faAnyFile, searchrec)=0 then begin FileTimeToSystemTime(searchrec.FindData.ftLastWriteTime, SysTime); dt1:= SystemTimeToDateTime(SysTime); if (dt > dt1) then begin {処理} end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.