home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_del / jbtest.ifs < prev    next >
Text File  |  2001-05-23  |  111b  |  10 lines
  1. Program IFSTest;
  2. var
  3.   jb: string;
  4. Begin
  5.   jb := '1234';
  6.   strSet('x', 1, jb);
  7.   writeln(jb);
  8.   
  9. End.
  10.