Registriert seit: 31. Mai 2009
1.198 Beiträge
Turbo Delphi für Win32
|
AW: Findfirst, Findnext geschachtelt?
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)
|