[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