On Mon, 07 Jun 2010 23:54:22 +0100 Howard Page-Clark <[email protected]> wrote:
> There is a minor bug in the very useful example application dircleaner. > The unit dircleaner.pp around line 441 has > > FileNameFits:=Pos(Ext,FWorkExt)<>0; > > to check if the current file under consideration fits the specified file > extension. > > This test is too simple since it does not look for an exact match. > Suppose FWorkExt contains 'PPU' and the current file extension is 'PP'. > > The program will delete all the .pp files it finds, as well as all the > .ppu ones. The test has to be stricter. I improved it. Please test. Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
