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