------------
De sources van NLDDanyUtils zijn te vinden in:
ftp://ftp.nldelphi.com/public/OpenSo.../NLDDanyUtils/
------------
"ExecuteProcedure" voert een (door de programmeur gedefinieerde) procedure uit in de huidige directory (en indien gewenst in zijn subdirectories) totdat de procedure "cont(inue) = false" teruggeeft, of de procedure in alle (sub)directories uitgevoerd is.
"ExecuteProcedureInPath": Idem voor alle directories in het zoekpad (de "PATH" environment variabele).
Kunnen onder meer gebruikt worden om files te vinden, fileattributen te veranderen, ... wat je maar wil (je moet wel zelf dé procedure schrijven!).
Belangrijk: de procedure mag geen "lokale" procedure (procedure in een andere procedure) zijn. Ze moet op het globale niveau gedefinieerd zijn.
De interface:
Code:
type
TProcedureToExecute = procedure(var cont: Boolean);
procedure ExecuteProcedure(Proc: TProcedureToExecute; Recursive: Boolean; var
Cont: Boolean);
// Executes a user defined procedure in the current directory and if wanted also in
// all subdirectories until it returns cont(inue) = false (or all directories are done).
procedure ExecuteProcedureInPath(Proc: TProcedureToExecute; var Cont: Boolean);
// Same as the above, but the user defined procedure is executed in every directory
// of the "PATH" environment variable. The current directory is always first.
Bookmarks