home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0305.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-19  |  260 b   |  18 lines
  1. Program Strip;
  2.  
  3. {$L STRIP.OBJ}
  4.  
  5. {$F+}
  6. Function StripChar ( s : String; ch : Char ) : String; external;
  7. {$F-}
  8.  
  9. Var
  10.   s : String;
  11.  
  12. Begin
  13.   Write ( 'Enter a string to strip: ' );
  14.   ReadLn ( s );
  15.   s := StripChar ( s, ' ' );
  16.   WriteLn ( s );
  17. End.
  18.