home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / stripouu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  289 b   |  19 lines
  1. unit StripOuU;
  2.  
  3. interface
  4. function StripOut( X: string; S: string): string;
  5.  
  6. implementation
  7.  
  8. function StripOut;
  9. var L,
  10.     I:              integer;
  11. begin
  12. for L := 1 to length(S) do
  13.     while pos(S[L],X) <> 0 do
  14.         delete(X,pos(S[L],X),1);
  15. StripOut := X;
  16. end;
  17.  
  18. end.
  19.