إقتباس :لايوجد خلل ! الاجراء يبحث في جميع المجلدات الفرعية .أجل، بدا لي كأنه يبحث في المجلدات الفرعية بمستوى واحد فقط.
-الاجراء يقوم بالبحث في الملفات الموجودة في مجلد ما بعدما ينتهي يفحص اذا كان هناك مجلد فرعي وهكذا
DupList.Duplicates := dupError;[color=Blue]try[/color]
MD5Hash := MD5Print(MD5File(directory+search.Name));
FileList.Add(directory + search.Name);
[color=Red] DupList.Add(MD5Hash);[/color]
[color=Blue]except[/color]
DupItem := fmain.lvDupFiles.Items.Add;
DupItem.Caption := search.Name;
DupItem.SubItems.Add(IntToStr(search.Size));
DupItem.SubItems.Add(MD5Hash);
DupItem.SubItems.Add(directory+search.Name);
[color=Blue]end[/color];