home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / DELSPACE.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  203 b   |  16 lines
  1.  
  2. procedure delete_spaces(var line: anystring);
  3. var
  4.    p: integer;
  5. begin
  6.  
  7.    p := pos(' ',line);
  8.    while p > 0 do
  9.    begin
  10.       delete(line,p,1);
  11.       p := pos(' ',line);
  12.    end;
  13. end;
  14.  
  15.  
  16.