Поиск одинаковых файлов на диске

[MeTeOpA]

Доброе время суток ув. программисты!
Посоветуйте что - нибудь по поводу решения такой задачки :

Написать простую программу для поиска файлов-дупликатов.

Поиск можно осуществлять только по диску C:. Во время поиска программа должна
отображать полосу прогресса и над ним имя обрабатываемого на данный момент файла или
каталога. Поиск можно поставить на паузу или остановить. Искать дупликаты нужно путем
сравнивания размера файлов, даты их последнего изменения и названия (содержимое файлов
сравнивать не надо, для простоты). Поиск должен быть выполнен отдельным тредом.

После поиска вывести список найденных наборов повторяемых файлов. Список должен
заполняться быстро, независимо от количества найденных дупликатов. Никаких действий с
элементами списка предусматривать не нужно.

Ни кода, ни готовых исходников я не прошу... Хотя бы просто соображений как это можно реализовать(хотя если есть код то было бы неплохо)

[MeTeOpA]

А именно интересует вопрос по поводу нахождения и сравнения одинаковых файлов

[ArtGrek]

для поиска фаилов и названия получаеш там же
http://www.delphibasics.ru/FindFirst.php
размера файлов - FileSize(FileName);
даты их последнего изменения - http://www.delphibasics.ru/FileAge.php

[MeTeOpA]

Сообщение от ArtGrek

для поиска фаилов и названия получаеш там же
http://www.delphibasics.ru/FindFirst.php
размера файлов - FileSize(FileName);
даты их последнего изменения - http://www.delphibasics.ru/FileAge.php

Отличненько! Спасибо!

[Obey-Kun]

Хеши, главное — хеши!

[Serge_Bliznykov]

Сообщение от Obey-Kun

Хеши, главное — хеши!

э нет, коллега. Не в данном случае!

содержимое файлов сравнивать не надо,

MeTeOpA, советую Вам делать так - завести какую-нибудь динамическую структуру (да хоть свой связный список, хоть взять готовый (на основе TList или TStringList)
каждый найденный файл проверять на наличие в данном списке. Если нашёлся - то сразу писать о найденном дубликате в контрол вывод (TMemo или TList)
если не нашёлся - просто добавлять его в этот список.
Если не забудете в цикле делать Application.ProcessMessege;
то будет так, как в задании - дубликаты будут появляться сразу, по мере их нахождения...

[OlegVE]

Вам дал ответ ArtGrek.

1. Чтобы найти дубли, Вам нужен список всех файлов иначе, взяв первый файл, Вы будете искать дубль проходясь по всем папкам и так для каждого файла 1, 2... N-1, N.
2. С помощью FindFirst, FindNext и FindClose создаёте список. Думаю это ArtGrek имел ввиду.
3. Отсортировав полученный список, можно сравнивать соседние имена плюс другие аттрибуты. (ArtGrek Вам подсказал насчёт FileSize и FileAge).
4. При наличии совпадения необходимых аттрибутов делайте всё, что хотите: переименовывайте, удаляёте, заносите в "чёрный список" ...

Не забудьте сказать спасибо ArtGrek. Мне не нужно, я за "Репутацией" не гоняюсь.

P.S. Думаю, можно и в Вашей постановке задачу решить, но сузив сравнение до сравнения двух папок.

[_SERGEYX_]

Отсортировав полученный список, можно сравнивать соседние имена

а можно с первого прохода дубликат вычислить

if aStringList.IndexOf('....') <> -1  then
//значит это дубликат, какая строка уже есть

[Obey-Kun]

э нет, коллега. Не в данном случае!

Почему?? Сравнивать файлы по хешу -- по идее, наиболее трушный вариант.

[_SERGEYX_]

Конечно, сравнивать файлы по дате изменения это идиотизм.
Если совпадают хеш-сумма файла и его имя, то файлы можно считать полностью идентичными. Какая разница когда он изменен...