Vadimluk1 писал(а):
Ищем копии файловКопия по содержанию — точное воспроизведение текста какого-либо документа.
А копия по имени - это одноименные файлы.
Vadimluk1 писал(а):
Что можно поменять?Число одноименных файлов:
Add(MainForm,2953706,182,189)
{
Width=322
link(onCreate,11413846:doCount,[])
}
Add(ArrayCountRepeats,11413846,245,203)
{
link(onCount,4940698:doStr,[])
link(Array,14955310:Array,[])
}
Add(Memo,14955310,231,133)
{
Left=15
Top=10
Width=70
Height=245
Strings=#4:Вася|4:Петя|3:Оля|4:Коля|4:Вася|4:Петя|4:Вася|4:Петя|3:Оля|4:Коля|4:Вася|4:Петя|4:Коля|
ScrollBars=2
}
Add(MT_String,4940698,308,203)
{
link(onResult,12997333:doAdd,[])
}
Add(StringTable,12997333,371,203)
{
Left=100
Top=10
Width=185
Height=125
Columns=#3:Имя|5:Число|
}
прим.
Сейчас придет Galkov и скажет свое "фэ".
Это не готовая программа. Это подсказка - в какую сторону копать.
Это не готовая программа. Это подсказка - в какую сторону копать.
Для подсчета одинаковых по содержимому можно использовать компонент HashSum