home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / datatype.swg / 0012_VARARRAY.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  834 b   |  37 lines
  1. {
  2. >   I'm trying to figure out a way to declair a Variable, such as an
  3. >   Array, and I don't know the size Until I've loaded the Program.
  4. >   I've tried stuff like........
  5. >
  6. >   Type
  7. >       Buf : Array[1..1000] of Char;
  8. >   Var
  9. >       Buffer : ^Buf
  10. >   begin
  11. >     Getmem(Buffer,xxx)
  12.  
  13.  
  14. Here's how:
  15. }
  16.  
  17. {$R-} { <-- essential For this trick }
  18.  
  19. Type
  20.   tFlexArray = Array[1..1] of Integer;
  21.  
  22. Var
  23.   pFlexArray : ^tFlexArray;
  24.   NumofElements,i : Integer;
  25.  
  26. begin
  27.   Write('How many elements do you want in the Array?  ');
  28.   readln(NumofElements);
  29.   getmem(pFlexArray, (NumofElements * sizeof(Integer)));
  30.   For i := 1 to NumofElements do
  31.     pFlexArray^[i] := i;
  32.  
  33.   Write('Test which element?  (Will contain same value as index)  ');
  34.   readln(i);
  35.   Writeln('Element ',i,' contains ',pFlexArray^[i]);
  36. end.
  37.