home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / prg / pas / swag / files.swg / 0004_FILENAME.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  314 b   |  10 lines
  1. if you want to remove the period, and all Characters after it in
  2. a valid Dos Filename, do the following...
  3.  
  4. FileName := 'MYFile.TXT';
  5. Name := Copy(FileName, 1, Pos('.', FileName) - 1);
  6.  
  7. That will do it.  or you can use FSplit to break out all the
  8. different parts of a Filename/path and get it that way.
  9.  
  10.