File:   FInfo.pas
Author: Berend Tober
Date:   1997/01/16
E-Mail: btober@connix.com, btober@compuserve.com
WWW:    http://www.connix.com/~btober/

Description

The TFileInfo type extends the properties of the TSearchRec type to include
explicit properties for the Drive letter, the Path only (i.e. path WITHOUT
drive letter), the file Extension, and the FullPath.

Additionally the Exists Property indicates whether or not a file exists in the
current directory.

The standard properties of a TSearchRec type are accessed as properties of a
TFileInfo type variables as the Name, Time, Size, and Attr properties, except
that Time is returned as a type TDateTime.

Methods First and Next are provided to emulate the Delphi FindFirst and
FindNext functions for file searches.

Archive includes compiled unit and example program. Source code available for
US$20.00.

Simple example of use:

uses FInfo;

procedure TMainForm.Button1Click(Sender: TObject);
var
   FileInfo: TFileInfo;

begin
   FileInfo := TFileInfo.Create;
   FileInfo.Mask := '*.*';

   while FileInfo.Exists do
   begin
     if (faArchive in [FileInfo.Attr]) then
     ListBox1.Items.Add(FileInfo.FullPath);
     FileInfo.Next;
   end;

FileInfo.Destroy;
end;



To install your component help:

	Exit Delphi if it is running
	Make a backup of \delphi\bin\delphi.hdx
	Run the HelpInst application from \delphi\help
	Open \delphi\bin\delphi.hdx
	If any KWF files report "not found" then add their directoy name 	to the search path by selecting Options|Search Path
	Select the Keywords|Add File menu choice and select your KWF file 	Select File|Save
	Exit HelpInst
	So that WinHelp can find your HLP file, either Copy your HLP file 	to \delphi\bin or Add "<filename>.hlp=<directoryname>" to 	WINHELP.INI in the Windows directory
