[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]

{
>   I'm trying to figure out a way to declair a Variable, such as an
>   Array, and I don't know the size Until I've loaded the Program.
>   I've tried stuff like........
>
>   Type
>       Buf : Array[1..1000] of Char;
>   Var
>       Buffer : ^Buf
>   begin
>     Getmem(Buffer,xxx)


Here's how:
}

{$R-} { <-- essential For this trick }

Type
  tFlexArray = Array[1..1] of Integer;

Var
  pFlexArray : ^tFlexArray;
  NumofElements,i : Integer;

begin
  Write('How many elements do you want in the Array?  ');
  readln(NumofElements);
  getmem(pFlexArray, (NumofElements * sizeof(Integer)));
  For i := 1 to NumofElements do
    pFlexArray^[i] := i;

  Write('Test which element?  (Will contain same value as index)  ');
  readln(i);
  Writeln('Element ',i,' contains ',pFlexArray^[i]);
end.

[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]