home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / importtest.ifps3 < prev    next >
Text File  |  2002-01-05  |  203b  |  16 lines
  1. Program IFSTest;
  2. var
  3.   a,b :string;
  4. Begin
  5.   a := 'test: ';
  6.   b := ImportTest('1', 2, 3, 4, a);
  7.   writeln(b);
  8.   writeln(a);
  9. { 
  10. Output should be:
  11.  
  12. 1 2 3 4 - OK!
  13. 1 2 3 4 - OK! -  OK2!
  14.  
  15. }
  16. End.