On 2026-09-13 19:50, Bart via fpc-pascal wrote:
On Sun, Sep 13, 2026 at 7:35 PM Tomas Hajny via fpc-pascal
<[email protected]> 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;
====
Indeed, then it cannot make any difference either because FindNext is
checked to be 0 there as well.
Tomas
_______________________________________________
fpc-pascal maillist - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
