home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / arraytest.ifps3 next >
Text File  |  2002-01-11  |  334b  |  22 lines
  1. Program IFSTest;
  2. type
  3.    TArrayOfByte = array of byte;
  4.  
  5. procedure Test(x: TARrayOfByte);
  6. var
  7.   i: Integer;
  8. begin
  9.   for i := 0 to Getarraylength(X) -1 do
  10.   begin
  11.      writeln(inttostr(x[i]));
  12.   end;
  13. end;
  14. var
  15.   temp: TArrayOfByte;
  16.  
  17. Begin
  18.   setarraylength(temp, 2);
  19.   temp[0] := 1;
  20.   temp[1] :=23;
  21.   test(temp);
  22. End.