Приветствую всех!
Нужно папку с файлами проверить на предмет одинаковых файлов (по размеру).
Вывожу их размеры в список:
Цитата:
if FindFirst('c:\111\*.*', faAnyFile, tsr) = 0 then
repeat
memo1.lines.Add (inttostr(tsr.size));
until FindNext(tsr) <> 0;
FindClose(tsr);
|
А вот как
сравнить размеры, чтобы отыскать одинаковые ? Вероятно, тут необходимо прибегнуть к услугам массивов, но с ними пока не дружу на должном уровне.
Спасибо.