Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!uwvax!oddjob!hao!boulder!sunybcs!rutgers!ukma!psuvm.bitnet!cunyvm!byuvax!taylorj
From: taylorj@byuvax.bitnet
Newsgroups: comp.lang.pascal
Subject: re Real Arrays (big)
Message-ID: <37taylorj@byuvax.bitnet>
Date: Tue, 17-Nov-87 21:27:42 EST
Article-I.D.: byuvax.37taylorj
Posted: Tue Nov 17 21:27:42 1987
Date-Received: Sat, 21-Nov-87 15:00:16 EST
Lines: 29

Here is a slightly different solution to "The Case of the Really Big Real
Array"

type
  secondhalf = array[1..200] of real;
  secondhalfptr = ^secondhalf;

var
  realarray :array[1..100] of secondhalfptr;
     

Allocate space for the array on the heap like this:

  for x := 1 to 100 do begin
    new(realarry[x]);
  end;

Access the array like this :

  r := realarray[20]^[150];
  r := realarray[x]^[y];     {you get the idea}
     
This is off the top of my head, so there may be a few syntactical errors,
but I've done this type of thing before, so I know it works.

Jim Taylor
Microcomputer Support for Curriculum, Brigham Young University
taylorj@byuvax.bitnet