[fpc-pascal] FindFirst/FindNex question
Bart
bartjunk64 at gmail.com
Sun Sep 13 19:50:00 CEST 2026
On Sun, Sep 13, 2026 at 7:35 PM Tomas Hajny via fpc-pascal
<fpc-pascal at lists.freepascal.org> wrote:
> However, you don't show the end of
> the repeat until cycle - depending on the exact condition there, the
> check might be relevant for the repetitions (not that I'd expect it,
> just for completeness sake).
The rest of the code is just iignored in that case:
====
repeat
// check if special file
if (FileInfo.Name='.') or (FileInfo.Name='..') or
(FileInfo.Name='') then
continue;
//handle file or dir
until {$IFDEF
FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FindNext(FileInfo)<>0;
====
--
Bart
More information about the fpc-pascal
mailing list