Class TMyFF (unit myff)

Inherits from

TComponent

Constructors


constructor create(aowner : tcomponent);

Public-Deklarationen

tMyFF implementation



Functions

function convertdatetime (val:tfiletime):tdatetime;

this is a useful routine to convert a tfiletime-struct to a delphi's tdatetime

charlowerbuff(@fgrepmask[1],length(fgrepmask));


destructor destroy;


function find(root : string):boolean;

here we start searching for files, if the function has been canceled, the result will be set to false root is the start directory

function getattr : integer;


function getfilemask:string;

filetime nach tdatetime umsetzen

function getfirsttime:tdatetime;

filetime nach tdatetime umsetzen

function getlasttime:tdatetime;

tdatetime nach filetime umsetzen

procedure setattr(val : integer);


procedure setfilemask(val : string);


procedure setfirsttime(val:tdatetime);

tdatetime nach filetime umsetzen

procedure setgrepmask(val:string);


procedure setlasttime(val:tdatetime);


Properties

property Attributes : integer

fileattributes to search for (faanyfile,fasysfile .

property FindString : string

text to find in files (set to '' for no text-search

property RecurseDirs : boolean

shall we recurse thru all sub-directories?

property FileMask : string

filemask (*.

property FirstTime : tdatetime

earliest file-time to match

property LastTime : tdatetime

latest filetime to match

property MaxFileSize : longint

highest filesize to match

property MinFileSize : longint

least filesize to match

Events

event OnAddFile : taddevent

if a file matches the specified values, this event will be called

event OnChDir : tfileevent

if we change to another directory (and/or if we search for text in another file

event OnScanFile : tfileevent


Variables

fattr : integer;


ffileevent : tfileevent;


ffilemask : tstringlist;

Private-Deklarationen

fgrepmask : string;


fonadd : taddevent;


frecurse : boolean;


fscanevent : tfileevent;


fsizemax : longint;


fsizemin : longint;


ftimefirst : tfiletime;


ftimelast : tfiletime;


ftsearch : ttisearch;



Constructors


constructor create(aowner : tcomponent);

Public-Deklarationen

tMyFF implementation


Functions


function convertdatetime (val:tfiletime):tdatetime;

this is a useful routine to convert a tfiletime-struct to a delphi's tdatetime

charlowerbuff(@fgrepmask[1],length(fgrepmask));


destructor destroy;


function find(root : string):boolean;

here we start searching for files, if the function has been canceled, the result will be set to false root is the start directory


function getattr : integer;


function getfilemask:string;

filetime nach tdatetime umsetzen


function getfirsttime:tdatetime;

filetime nach tdatetime umsetzen


function getlasttime:tdatetime;

tdatetime nach filetime umsetzen


procedure setattr(val : integer);


procedure setfilemask(val : string);


procedure setfirsttime(val:tdatetime);

tdatetime nach filetime umsetzen


procedure setgrepmask(val:string);


procedure setlasttime(val:tdatetime);


Properties


property Attributes : integer

fileattributes to search for (faanyfile,fasysfile ...


property FindString : string

text to find in files (set to '' for no text-search


property RecurseDirs : boolean

shall we recurse thru all sub-directories?


property FileMask : string

filemask (*.*;*.exe and so on


property FirstTime : tdatetime

earliest file-time to match


property LastTime : tdatetime

latest filetime to match


property MaxFileSize : longint

highest filesize to match


property MinFileSize : longint

least filesize to match


Events


event OnAddFile : taddevent

if a file matches the specified values, this event will be called


event OnChDir : tfileevent

if we change to another directory (and/or if we search for text in another file


event OnScanFile : tfileevent


Variables


fattr : integer;


ffileevent : tfileevent;


ffilemask : tstringlist;

Private-Deklarationen


fgrepmask : string;


fonadd : taddevent;


frecurse : boolean;


fscanevent : tfileevent;


fsizemax : longint;


fsizemin : longint;


ftimefirst : tfiletime;


ftimelast : tfiletime;


ftsearch : ttisearch;