home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / test2.ifs < prev    next >
Text File  |  2000-05-15  |  177b  |  9 lines
  1. Program CajScriptTest;
  2. var
  3.   text :string;
  4. Begin
  5.   Writeln('Type in some text');
  6.   readln(text);
  7.   writeln('The length of this text is : '+IntTostr(length(text)));
  8. End.
  9.