home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / test7.ifs < prev    next >
Text File  |  2001-04-23  |  264b  |  18 lines
  1. Program IFSTest;
  2. type
  3.   x =  array of Integer;
  4. procedure test(u: x);
  5. var
  6.   i: Integer;
  7. begin
  8.   for i := 0 to GetArrayLength(u)-1 do 
  9.   begin
  10.     writeln('test:' +inttostr(u[i]));
  11.  end;
  12. end;
  13. var
  14.   n: x;
  15. Begin
  16.   n := [1,2,3,4,7,3,2];
  17.   Test(n);
  18. End.