home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / striu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  761 b   |  44 lines
  1. unit StriU;
  2.  
  3. interface
  4. function Strip(X: string): string;
  5.  
  6. implementation
  7.  
  8. function Strip;
  9. var Continue:            boolean;
  10.     L:                   integer;
  11. begin
  12. Continue := true;
  13. while Continue do
  14.     begin
  15.     L := ord(X[0]);
  16.     if L < 1 then
  17.        Continue := false
  18.       else
  19.        if X[L] = ' ' then
  20.           dec(X[0])
  21.          else
  22.           Continue := false;
  23.     end;
  24. Continue := true;
  25. while Continue do
  26.     begin
  27.     L := ord(X[0]);
  28.     if L < 1 then
  29.        Continue := false
  30.       else
  31.        if X[1] = ' ' then
  32.           begin
  33.           dec(X[0]);
  34.           move(X[2],X[1],ord(X[0]));
  35.           end
  36.          else
  37.           Continue := false;
  38.     end;
  39. if X = ' ' then X := '';
  40. Strip := X;
  41. end;
  42.  
  43. end.
  44.