Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips


#114: How can I load a file list by some wildcard?

After small delay with tip posting I want to continue this important task:-)

Today I'll post a small sample which show how you can receive a list of files from some specific directory by some custom wildcard. For example, to load in listbox the bmp-files from Windows directory.

procedure LoadFilesByMask(lst: TStrings; const SpecDir, WildCard: string);
var
  intFound: Integer;
  SearchRec: TSearchRec;
begin
  lst.Clear;
  intFound := FindFirst(SpecDir + WildCard, faAnyFile, SearchRec);
  while intFound = 0 do
  begin
    lst.Add(SpecDir + SearchRec.Name);
    intFound := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;

For example, to load bmp-files from application folder:
LoadFilesByMask(lbFiles.Items, ExtractFilePath(Application.ExeName), '*.bmp')


Published: February 2, 2001

See also
 
ABA Database Convert
Database Information Manager
MAPIMail
DBExport tools
Paradox ActiveX
Clarion Viewer
Paradox to Text converter
ABA Picture Convert
Clarion to Text converter
Excel Reader (dll)
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2024, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMReport Autogenerated