mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 11:42:42 +02:00
examples fixed compilation
git-svn-id: trunk@16239 -
This commit is contained in:
parent
ce192d3f70
commit
3dd7e95998
@ -82,7 +82,7 @@ unit FileFind;
|
||||
interface
|
||||
|
||||
uses LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
|
||||
SysUtils, Classes, FileUtil, Graphics, Controls, Forms, Dialogs;
|
||||
|
||||
type
|
||||
TFindFileEvent = procedure(fullpath:string;info:TSearchRec)of object;
|
||||
|
Loading…
Reference in New Issue
Block a user