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

    {==============================================================================}
    function FileDateTime( const cFileName:string ; cDateTime: char ) : string ;
    { accepts filename in a string and the cDateTime case/type to return }
    var
       iFile : integer   ;  {handle to open file}
       fBuff : TOfStruct ;  {Win API structure for file information}
       cDate : string    ;  {actually holds the file Date and Time}
       tDate : tDateTime ;  {Delphi type actually a double}
       iTime : longInt   ;
       aName : array [0..99] of char ; {easy pre-sized pChar type }
    begin
         {help to find actual path}
         if cFileName = 'Children.dbf' then
            strPCopy( aName, '\aDelph16\Stella\Data\' + cFileName )
         else
            strPCopy( aName, cFileName ) ;

         try
            iFile := _lopen( aName, OF_SHARE_COMPAT );
            iTime :=  FileGetDate(iFile);
            tDate :=  FileDateToDateTime( iTime);
            cDate :=  DateTimeToStr( tDate );
         {  showMessage( 'Date/time ' +cTime );  }

            case cDateTime OF      {Date, Time, Both}
              'D' : FileDateTime := copy(cDate, 1, pos(' ', cDate)-1) ;
              'T' : FileDateTime := copy(cDate, length(cDate)-8, length(cDate)) ;
              'B' : FileDateTime := cDate ;
            end ;

         _lclose(iFile) ;
         except
               showMessage('FileDateTime FAILED');
         end
    end ;
    {==============================================================================}

    john.rutherford@emarkt.com

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