Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TPASBOOK.ZIP/STRIPWHT.SRC

Text File | 1985-01-19 | 1.0 KB | 25 lines

{--------------------------------------------------}
{                  STRIP_WHITE                     }
{     Strips leading whitespace from strings.      }
{               By Jeff Duntemann                  }
{                                                  }
{ ASSUMES:                                         }
{   TYPE STRING255 = STRING[255];                  }
{                                                  }
{                         Turbo Pascal V2.0        }
{                         Last update: 12/11/84    }
{--------------------------------------------------}

FUNCTION STRIP_WHITE(TARGET : STRING255) : STRING255;

VAR WHITESPACE : SET OF CHAR;

LABEL 450;

BEGIN
  WHITESPACE := [CHR($07),CHR($08),CHR($09),' '];
  WHILE LENGTH(TARGET) > 0 DO
    IF TARGET[1] IN WHITESPACE THEN DELETE(TARGET,1,1) ELSE GOTO 450;
  450: STRIP_WHITE := TARGET
END;