Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!deimos.cis.ksu.edu!unmvax!indri!polyslo!vlsi3b15!lehi3b15!lafcol!pilgrimk
From: pilgrimk@lafcol.UUCP (Kenwyn A. Pilgrim)
Newsgroups: comp.lang.pascal
Subject: Re: Pointers / Linked lists with files..
Summary: what? me worry?!!!!
Message-ID: <1123@lafcol.UUCP>
Date: 15 May 89 03:57:53 GMT
References: <5708@cs.Buffalo.EDU> <1389@bucket.UUCP> <3377@westfort.UUCP>
Organization: Academic Computer Center, Lafayette College
Lines: 30

my $0.28
# 
# Type
# mbrec=record
#   t:array[1..100] of string[30];
#   f:array[1..100] of string[25];
#   tpc:array[1..100] of string[20];
#   dte:array[1..100] of string[10];
#   tme:array[1..100] of string[8];
#   num:array[1..100] of integer;
#   bnm:array[1..50] of string[20];
#   mgs:integer;
#  end;
{----- modified code -----}
  Var
    mb:array[1..50] of ^mbrec;
    fm:file of mbrec;
    i: byte; 
begin
 for i := 1 to 50 do 
 if MaxAvail >= SizeOf(mbrec) then GetMem(mbrec[i],SizeOf(mbrec))
  else writeln('Cannot allocate memory for mbrec[',i,']');
 {or write to disk somewhere}
 {to access do}
 writeln(mbrec[1]^.t[3]);
 ...
end.
 

-Kenwyn