home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / test4.ifs < prev    next >
Text File  |  2000-05-15  |  210b  |  11 lines
  1. Program CajScriptTest;
  2. var S: String;
  3. begin
  4.  S := 'This is a test string';
  5.  while Pos(' ', S) > 0 do Begin
  6.    Insert('[SPACE]', s, pos(' ',s));
  7.    Delete(s, pos(' ', s), 1);
  8.   End;
  9.   writeln(s);
  10. end.
  11.