http://transl-gunsmoker.blogspot.com/2008/11/blog-post_8830.html.
Добавлено @ 15:20
Цитата(Rrader @ 1.12.2008, 14:15  ) | | Проверьте и сравните эту дату с той, что в свойствах файла в проводнике. Должно совпадать. |
Неа, в первом варианте (как и Christoph) забыл из UTC перевести в местное время.
Добавлено @ 15:24
| Цитата(Martisha @ 1.12.2008, 15:06 ) | | вопрос закрыт! |
1. Всё же используйте правильно try/finally:
| Код | procedure TForm1.ScanFolder(Dir: String);
var
SearchRec: TSearchRec;
begin
if Dir <> '' then
Dir := IncludeTrailingPathDelimiter(Dir);
if FindFirst(Dir+'*.*', faAnyFile, SearchRec) = 0 then
try
repeat
...
until FindNext(SearchRec) <> 0;
finally
FindClose(SearchRec);
end;
end; |
2. SearchRec.Time - это время в формате DOS. Оно имеет низкую точность. Если вы сравните вывод своей программы с тем, что показывает Проводник - то увидите разницу в несколько секунд по времени. Лучше бы вам использовать метку времени записанную в SearchRec.FindData.ftCreationTime - это точное время.
| Код | var
LocalTime: TFileTime;
SysTime: TSystemTime;
...
repeat
if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.TXT' then
begin
FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalTime);
FileTimeToSystemTime(LocalTime, SysTime);
EditFile(Dir+SearchRec.name);
EditTime(TimeToStr(SystemTimeToDateTime(SysTime)));
end;
until FindNext(SearchRec) <> 0;
...
|
3. Кроме того, TSearchRec.Time эквивалентно TSearchRec.FindData.ftLastWriteTime - т.е. последней дате модификации, а вовсе не времени создания файла. |
точно!!!