[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... TempFile()
 * Purpose ....... To create a unique file name for use as a temporary work
 *                 file
 * Parameters .... Path       Location to create the file
 * Returns ....... Name of temporary file
 * Notes ......... Uses the functions Right, ItoS, Exist, and Empty
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION TempFile( Path: STRING ): STRING;
VAR 
   DateStr  : DateTime;
   Trash    : WORD;
   Time     : LONGINT;
   FileName : STRING;
BEGIN
     IF (NOT Empty( Path )) AND (Right( Path, 1 ) <> '\') THEN
        Path := Path + '\';
     REPEAT
           WITH DateStr DO BEGIN
                GETDATE( Year, Month, Day, Trash );
                GETTIME( Hour, Min, Sec, Trash );
           END;
           PackTime( DateStr, Time );
           FileName := Right( ItoS( Time, 0 ), 8 ) + '.$$$';
     UNTIL NOT Exist( Path + FileName );
     TempFile := Path + FileName;
END;

[Back to FILES SWAG index]  [Back to Main SWAG index]  [Original]