home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRPT.ZIP / ifpasscript / demo_del / setlength.ifs < prev    next >
Text File  |  2001-06-01  |  107b  |  10 lines
  1. Program IFSTest;
  2. var
  3.   s: string;
  4. Begin
  5.   s := 'abcdef';
  6.   setlength(s, 4);
  7.   writeln(s);
  8.   
  9. End.
  10.