Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Авг

Delphi: Вывести N директорий в заданной (без рекурсии вложенных папок)

Posted by obzor under Delphi

Ищу рабочие примеры с правильным использованием FindFirst, FindNext.

hexor_boo

Код:

 Procedure CategoriesTreeUpdate(strCategory : String);
  Var
   searchResult : TSearchRec;
   nodeRoot     : TTreeNode;
   i            : Integer;
   intLicLimit  : Integer;
   intUseLimit  : Integer;
  Begin

    Case frmMain.Tag Of //frmMain.Tag=1
     0 : intLicLimit:=3;
     1 : intLicLimit:=6;
     2 : intLicLimit:=4000000;
    End;

   intUseLimit:=0;

   frmMain.treeCategories.Items.Clear;
   nodeRoot:=frmMain.treeCategories.Items.Add(Nil, ProjectsDrive);

   //Inc(intUseLimit, 1);

    If (FindFirst(ProjectsDrive+'\*', faDirectory, searchResult)=0) Then
     Begin

       Repeat
        
         If ((searchResult.Attr Or faDirectory)=faDirectory) Then
          Begin
            If (searchResult.Name<>'.') And (searchResult.Name<>'..') Then
             Begin
              frmMain.treeCategories.Items.AddChild(
               nodeRoot, searchResult.Name
              );
              Inc(intUseLimit, 1);
             End;
          End;


        
       Until ((FindNext(searchResult)<>0) Or (intUseLimit=intLicLimit));

      FindClose(searchResult);
     End;

   frmMain.treeCategories.Items.GetFirstNode.Expand(True);

    If Not (strCategory='') Then
     Begin
      SelRec.Category:=strCategory;

       For i:=0 To frmMain.treeCategories.Items.Count-1 Do
        Begin
          If (frmMain.treeCategories.Items.Text=strCategory) Then
           Begin
            frmMain.treeCategories.Selected:=frmMain.treeCategories.Items;
            frmMain.treeCategories.SetFocus;
          End;
        End;

     End; //If Not (strCategory='') Then

  End;