دخول

**kachwahed**

لم أتمكن من تنفيذ المشروع بسبب استخدام المكونات (AlphaSkin)
كان من المفروض أن تكون آخر شيء...
عموما، يبدو أن الخلل في إجراء البحث، أظن أنه في شرط توقف Repeat هنا:

كود :
Procedure tfrmMain.RS(Folder:TfileName);
Var Sr:TsearchRec;
begin
If FindFirst (Folder+ Ext ,FaAnyFile, Sr) = 0 Then
 try
    Repeat If ((Sr.Attr And Fadirectory)=0) Or (Sr.Name <> '.') And (Sr.Name <> '..') Then
            Begin
            ListBox1.Items.Add(Folder+Sr.Name);
            End;
[color=Red]    Until FindNext(Sr)<>0 ;[/color]
 except
  FindClose(Sr);
 end;
If FindFirst (Folder+ '*.*' ,FaAnyFile or Fadirectory, Sr) = 0 Then
 try
    Repeat If ((Sr.Attr And Fadirectory)<>0) Or  (Sr.Name <> '.') And (Sr.Name <> '..') Then
            Begin
            RS(Folder+Sr.Name+'\');
            End;
    Until FindNext(Sr)<>0 ;
 except
  FindClose(Sr);
 end
end;
//----------------------------------------------------------------
Procedure tfrmMain.RF(Folder:TfileName);
Var Sr:TsearchRec;
begin
If FindFirst (Folder+ '*.*' ,FaAnyFile, Sr) = 0 Then
 try
    Repeat If ((Sr.Attr And Fadirectory)=0) Or (Sr.Name <> '.') And (Sr.Name <> '..') Then
            Begin
            FrmScan.sCheckListBox1.Items.Add(Folder+Sr.Name);
            FrmScan.sLabelFX1.Caption:=Folder;
            FrmScan.sLabelFX1.Refresh;
            End;
    Until FindNext(Sr)<>0 ;
 except
  FindClose(Sr);
 end;
If FindFirst (Folder+ '*.*' ,FaAnyFile or Fadirectory, Sr) = 0 Then
 try
    Repeat If ((Sr.Attr And Fadirectory)<>0) Or  (Sr.Name <> '.') And (Sr.Name <> '..') Then
            Begin
            RF(Folder+Sr.Name+'\');
            End;
[color=Red]    Until FindNext(Sr)<>0 ;[/color]
 except
  FindClose(Sr);
 end
end;

حاول كتابة خوارزمية البحث بصيغة أخرى.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة