home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / arraytest.ifs next >
Text File  |  2001-03-28  |  260b  |  16 lines
  1. Program IFSTest;
  2. type
  3.   TConstantArray = array of const;
  4. procedure test(s: TConstantArray);
  5. var
  6.   i: Integer;
  7. begin
  8.   for i := 0 to GetarrayLength(s)-1 do
  9.   begin
  10.     writeln('test: '+GetType(s[i]));
  11.   end;
  12. end;
  13. Begin
  14.   test([1, 'hello']);
  15. End.
  16.