home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / STRIPWHT.SRC < prev    next >
Text File  |  1986-01-06  |  1KB  |  25 lines
  1. {--------------------------------------------------}
  2. {                  STRIP_WHITE                     }
  3. {     Strips leading whitespace from strings.      }
  4. {               By Jeff Duntemann                  }
  5. {                                                  }
  6. { ASSUMES:                                         }
  7. {   TYPE STRING255 = STRING[255];                  }
  8. {                                                  }
  9. {                         Turbo Pascal V2.0        }
  10. {                         Last update: 12/11/84    }
  11. {--------------------------------------------------}
  12.  
  13. FUNCTION STRIP_WHITE(TARGET : STRING255) : STRING255;
  14.  
  15. VAR WHITESPACE : SET OF CHAR;
  16.  
  17. LABEL 450;
  18.  
  19. BEGIN
  20.   WHITESPACE := [CHR($07),CHR($08),CHR($09),' '];
  21.   WHILE LENGTH(TARGET) > 0 DO
  22.     IF TARGET[1] IN WHITESPACE THEN DELETE(TARGET,1,1) ELSE GOTO 450;
  23.   450: STRIP_WHITE := TARGET
  24. END;
  25.