Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > сравнение 2 файлов по времени

Автор: larinva 19.10.2009, 13:45

Всем привет! Скажите пожалуйста, как мне реализовать сравнение двух 2 файлов по времени.

Автор: AKATAN 19.10.2009, 13:54

Что означает "по времени"? smile

Автор: larinva 19.10.2009, 14:06

один создан к примеру в 10:40:05 а второй 10:45:03

Автор: a_n_d_y 19.10.2009, 14:13

GetFileTime в помощь smile

Автор: AKATAN 19.10.2009, 14:32

Эх... когда же люди научаться пользоваться DRKB (http://www.drkb.ru/)

Копипаста с DRKB:

Попробуйте следующую функцию, которая не требует вызова FindFirst:

Код


function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
FileClose(FHandle);
end;

Одно маленькое предупреждение: время, возвращаемое Win32-функцией, отсчитывается от Гринвича, поэтому вам необходимо привести полученный результат к локальному времени. Чтобы быть уверенным, проверьте документацию. (Я уверен, что FindNextFile делает это правильно).
©Drkb::03143
http://delphiworld.narod.ru/
DelphiWorld 6.0

Примечание от Vit: Всё-таки лучше использовать FindFirst/FindNext/FindClose ибо приведенный выше способ требует открытия файла, а это не всегда возможно сделать (попробуйте например таким образом узнать дату создания файла подкачки!) и к тому же не всегда это желательно. В отличие от приведенного выше способа FindFirst не открывает файла, а лишь читает информацию с каталога диска, что и быстрее и надёжнее.
©Drkb::03144

Добавлено @ 14:33
Или действительно, как советует a_n_d_y использовать ф-цию GetFileTime
http://msdn.microsoft.com/en-us/library/ms724320(VS.85).aspx

Автор: larinva 19.10.2009, 14:42

спасибо попробую