[Moxa]

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

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

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

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

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

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

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

Спасибо.

[NumLock]

Код:

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;

[Admin]

http://www.delphisources.ru/forum/sh...ad.php?t=21718