mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-04 07:42:59 +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
|
interface
|
||||||
|
|
||||||
uses LResources,
|
uses LResources,
|
||||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
|
SysUtils, Classes, FileUtil, Graphics, Controls, Forms, Dialogs;
|
||||||
|
|
||||||
type
|
type
|
||||||
TFindFileEvent = procedure(fullpath:string;info:TSearchRec)of object;
|
TFindFileEvent = procedure(fullpath:string;info:TSearchRec)of object;
|
||||||
|
Loading…
Reference in New Issue
Block a user