delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

السلام عليكم ورحمة الله وبركاته
اليوم أقدم لكم البرنامج الدي يقوم بالبحت عن الملفات
أشكر الصديق rober الدي قام بمساعدتي في انشاء هدا البرنامج
البرنامج في المرفق
سلام بالتوفيق

تفضل خوارزمية بحت عن الملفات وهي اسرع من السابقة بأقل اسطر

PHP كود :
procedure FileSearch(const PathName, FileName : string; ListBox1 : TlistBox);
  var Rec       : TSearchRec;
      Path      : string;
 begin
   Path := IncludeTrailingBackslash(PathName);
   if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
     Begin
       repeat
          listBox1.items.add(Path+Rec.Name);
       until FindNext(Rec) <> 0;
       FindClose(Rec);
     end;
    if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
     Begin
        repeat
          if (Rec.Attr = faDirectory)  and (Rec.Name<>'.') and (Rec.Name<>'..') then
            FileSearch(Path + Rec.Name, FileName,ListBox1);
        until FindNext(Rec) <> 0;
       FindClose(Rec);
     end;
 end; 

وننتطر تعقيباتكم وملاحظاتكم عليها

" بدأ انشتاين يسترجاع مكانته بينكم " ههههههههه :tong::tong:

بتوفيق

انامن وضعت هذا السؤال من قبل حيث قم في الاخير باستعمال اداة البحث FindFile عند ايجاد اسم مطابق مع قاعدة بيانتات يتم حذفه
لكن واحهة مشالكلعدة لذا لم اتمه ا ولها كن عدد اسمء الفيروسات وثانيايوجد عدد كبير من الفيروسات تغير اسمءها لذا اعتمدت على حجمها في البحث,,,
رغم كل هذا فشلت في مراحل كثيرة لعدم تحكمي لجيد في الدلفي و كذلك عدد المعطيات عندي

السلام عليكم
اخواني بالنسبة للأداة TFindFile كيف أستطيع اضافتها إلى Delphi 2010
علمماً أنني لم أجد اصدار خاص بـ 2010 على موقع DelphiArea

اخواني الطريقة عامة لتنصيب المكونات بشكل pas
http://forum.delphiarea.com/viewtopic.php?f=7&t=1430
شكرا لجميع أعضاء المنتدى

الصفحات : 1 2

delphi4arab منتديات دلفي للعرب

abdelmalek

abdelmalek

Benhlell

FPS

FPS