home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / bytearray.ifps3 < prev    next >
Text File  |  2002-01-05  |  165b  |  9 lines
  1. Program IFSTest;
  2. type
  3.   TByteArray = array of byte;
  4. var
  5.   x: TByteARray;
  6. Begin
  7.   x[0] := 1;
  8.  // will cause an runtime error (Out Of Record Fields Range)
  9. End.