Findfirst, Findnext geschachtelt?

[Aphton]

Delphi-Quellcode:

      DirPrdGroup:=AddBackSlash(Dir);

      if SysUtils.FindFirst(DirPrdGroup + '*.*',  SysUtils.faDirectory, SR) = 0 then try
        repeat
          if ((SR.attr and faDirectory) = faDirectory) and
             (SR.Name <> '.') and (SR.Name <> '..') then


            DirManuGroup:=AddBackSlash(DirPrdGroup + SR.Name);
{Warnung: WAS WENN DIE VORIGE IF-CONDITION NICHT ERFÜLLT IST? DANN IST DirMainGroup entweder '' oder eben das vorige Verzeichnis...
An deiner Stelle würde ich die Bedingung auch hier gelten lassen (einfach ein begin nach "then" machen und unterhalb der folgenden Routine ein "end"}
            if SysUtils.FindFirst(DirManuGroup + '*.*',  SysUtils.faDirectory, SR2) = 0 then try
              repeat
                if ((SR2.attr and faDirectory) = faDirectory)
                and (length(SR2.Name)=8)
                and (SR2.Name <> '.')
                and (SR2.Name <> '..')
                then
{WARNUNG: Hier fehlt wieder mal ein begin}
                  IdxRow:=RowCount-1;
                  Cells[0, IdxRow]:=SR2.Name;

                  AddRow; //leere Zeile dranhängen
{-- und ein end}


              until SysUtils.FindNext(SR2) <> 0;
            finally
              FindClose(SR2);
            end;


        until SysUtils.FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;

Nachdem du meinen Kommentaren Glauben schenkst, wirds bestimmt funktionieren

Edit: Ich bin mal so großzügug und zeig dir mal die Ausgebsserte und nach meinem Geschmack richtig eingerückte Variante deines Codes:

Delphi-Quellcode:

begin
  DirPrdGroup := AddBackSlash( Directory );
  if SysUtils.FindFirst( DirPrdGroup + '*.*', SysUtils.faDirectory, SR1 ) = 0 then
    try
      repeat
        if ( ( SR1.attr and faDirectory ) = faDirectory ) and
          ( SR1.Name <> '.' ) and ( SR1.Name <> '..' ) then
        begin
          DirManuGroup:=AddBackSlash(DirPrdGroup + SR1.Name);
          if SysUtils.FindFirst( DirManuGroup + '*.*', SysUtils.faDirectory, SR2 ) = 0 then
            try
              repeat
                if ( (SR2.attr and faDirectory) = faDirectory ) and ( length(SR2.Name)=8 ) and
                  ( SR2.Name <> '.' ) and ( SR2.Name <> '..' ) then
                begin
                  Cells[0, RowCount-1]:=SR2.Name;
                  AddRow();
                end;
              until SysUtils.FindNext( SR2 ) <> NO_ERROR;
            finally
              SysUtils.FindClose( SR2 );
            end;
        end;
      until SysUtils.FindNext( SR1 ) <> NO_ERROR;
    finally
      SysUtils.FindClose( SR1 );
    end;
end;