FindAllFiles
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
Unit: Lazarus fileutil (UTF-8 replacements for FPC RTL code and additional file/directory handling)
function FindAllFiles(const SearchPath: String; SearchMask: String = '';
SearchSubDirs: Boolean = True): TStringList;findallfiles looks for files matching the searchmask in the SearchPath directory and if specified its children and returns a stringlist with the resulting filenames.
The mask can be a file name or...todo finish: can wildcards * and ? be used here?
Example:
uses
...
fileutil
...
var
SVNFiles: TStringList;
begin
//No need to create the stringlist; the function does that for you
SVNFiles := FindAllFiles(FSVNDirectory, 'svn' + LazUtils.GetExeExt, true); //find e.g. all svn.exe
try
if SVNFiles.Count > 0 then
begin
// Just get first result.
showmessage('Found an svn executable: '+SVNFiles.Strings[0]);
end;
finally
SVNFiles.Free;
end;