|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск одинаковых файлов
Приветствую всех!
Нужно папку с файлами проверить на предмет одинаковых файлов (по размеру). Вывожу их размеры в список: Цитата:
А вот как сравнить размеры, чтобы отыскать одинаковые ? Вероятно, тут необходимо прибегнуть к услугам массивов, но с ними пока не дружу на должном уровне. Спасибо. |
#2
|
||||
|
||||
Код:
type TFileInfo = record Name: String[$ff]; Size: Int64; end; var Arr: array of TFileInfo; begin SetLength(Arr, 1); Arr[0].Name:='one'; Arr[0].Size:=1024; SetLength(Arr, 2); Arr[1].Name:='two'; Arr[1].Size:=2048; SetLength(Arr, 3); Arr[2].Name:='four'; Arr[2].Size:=4096; Memo1.Lines.Add(Arr[0].Name); Memo1.Lines.Add(IntToStr(Arr[0].Size)); Memo1.Lines.Add(Arr[1].Name); Memo1.Lines.Add(IntToStr(Arr[1].Size)); Memo1.Lines.Add(Arr[2].Name); Memo1.Lines.Add(IntToStr(Arr[2].Size)); end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Moxa (19.07.2012)
|
#3
|
||||
|
||||
|