[Moxa]

Приветствую всех!

Нужно папку с файлами проверить на предмет одинаковых файлов (по размеру).

Вывожу их размеры в список:

if FindFirst('c:\111\*.*', faAnyFile, tsr) = 0 then
repeat

memo1.lines.Add (inttostr(tsr.size));

until FindNext(tsr) <> 0;
FindClose(tsr);

А вот как сравнить размеры, чтобы отыскать одинаковые ? Вероятно, тут необходимо прибегнуть к услугам массивов, но с ними пока не дружу на должном уровне.

Спасибо.