Mega Code Archive

Findclose - closes a successful findfirst file search sysutils unit

function FindClose ( var SearchResults : TSearchRec ) : Integer; Description The FindClose function closes a successful FindFirst (and FindNext) file search. It frees up the resources used by the search in SearchResults. A FindCLose call is not necessary if FindFirst finds nothing, but must be called if it does, even if a subsequent FindNext call fails. Related commands FileSearch Search for a file in one or more directories FindFirst Finds all files matching a file mask and attributes FindNext Find the next file after a successful FindFirst TSearchRec Record used to hold data for FindFirst and FindNext Example code : Show when to call FindClose var searchResult : TSearchRec; begin // Try to find regular files matching Unit1.d* in the current dir if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then begin repeat ShowMessage('File name = '+searchResult.Name); ShowMessage('File size = '+IntToStr(searchResult.Size)); until FindNext(searchResult) <> 0; // Must free up resources used by these successful finds FindClose(searchResult); end; end; Show full unit code File name = Unit1.dcu File size = 4382 File name = Uni1.dfm File size = 524 File name = Uni1.ddp File size = 51