Einzelnen Beitrag anzeigen

Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#5

AW: Findfirst, Findnext geschachtelt?

  Alt 24. Jul 2010, 08:23
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;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG

Geändert von Aphton (24. Jul 2010 um 08:44 Uhr)
  Mit Zitat antworten Zitat