home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6785 < prev    next >
Encoding:
Internet Message Format  |  1992-11-20  |  997 b 
  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!zaphod.mps.ohio-state.edu!magnus.acs.ohio-state.edu!usenet.ins.cwru.edu!cleveland.Freenet.Edu!br707
  2. From: br707@cleveland.Freenet.Edu (Mike L. Melamed)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: Saving/Reading BinaryTrees.
  5. Date: 21 Nov 1992 03:37:23 GMT
  6. Organization: Case Western Reserve University, Cleveland, Ohio (USA)
  7. Lines: 30
  8. Message-ID: <1ekatkINN9ta@usenet.INS.CWRU.Edu>
  9. NNTP-Posting-Host: slc10.ins.cwru.edu
  10.  
  11.  
  12. Ok, I am sorry, I think I stated my question incorrectly...
  13.  
  14. Here is my Tree structure:
  15.  
  16. CONST
  17.   MaxChildren = 99;
  18.   MaxFiles = 99;
  19.  
  20. TYPE
  21.  
  22.   RecPtr = ^Rec;
  23.   Rec = RECORD
  24.     Name, Date, Time: STRING [12];
  25.     Files : ARRAY [ 1..MaxFiles ] OF STRING [12];
  26.     FileSize, SizeTotal, SizeLeft : INTEGER;
  27.     ChildID, CurrentChild : INTEGER;
  28.     Child, PrevChild : ARRAY [ 1..MaxChildren ] OF RecPtr;
  29.   END;
  30.  
  31.  
  32. Pay extra attention to Child.. 
  33.  
  34.  
  35. Oh, almost forgot, I am using Turbo Pascal 6.0..
  36.  
  37. [T]alk [To] [Y]ou [L]ater,
  38. Mike
  39.  
  40. -- 
  41.