There's some interesting ideas on how to store hierarchical data in tabular form available by googling "how can I represent hierarchal data in a relational database?"
You might be able to linearize your hierarchical structure's data by using the techniques found there. Stu Cox Project Management Technician Southern Interior Region Ministry of Transportation and Infrastructure 342-447 Columbia St., Kamloops, BC V2C 2T3 p: 250-828-4320 f: 250-828-4229 stuart....@gov.bc.ca -----Original Message----- From: fpc-pascal-boun...@lists.freepascal.org [mailto:fpc-pascal-boun...@lists.freepascal.org] On Behalf Of David W Noon Sent: Thursday, May 7, 2009 3:40 PM To: FPC-Pascal users discussions Subject: Re: [fpc-pascal] A complex trouble(at least for me) On Thu, 2009-05-07 at 18:12 -0300, Arí Ricardo Ody wrote: > Suppose the following structure: > > 01 a-1. > 03 b-1 pic xxx. > 03 b-2 pic 999. > 03 b-3. > 05 c-1 pic aaa. > 05 c-2. > 07 d-1 pic zzz. > 07 d-2 pic xxx. > 05 c-3 pic 99. > 03 b-4 pic zzz. > 03 b-5. > 05 e-1 pic zzz. > > All line not containing the word pic I would call a group item and the > other lines will be elementary items. This is loosely COBOL source code. > > I would like to wrote a routine(or program) that save each group item > and the elementary items contained in a StringList. Admit that the > pattern of the structure is random. The example above is only an > example. > > In this example: > StringList1 will contain 'a-1' '03 b-1 pic xxx.' '03 b-2 pic 999.' '03 > b-4 pic zzz.' > StringList2 will contain 'b-3' '05 c-1 pic aaa.' '05 c-3 pic 99.' > StringList3 will contain 'c-2' '07 d-1 pic zzz.' '07 d-2 pic xxx.' > StringList4 will contain 'b-5' '05 e-1 pic zzz.' Do you want to put the COBOL source into a TStringList? > Are you trying to write a COBOL compiler? If not, what are you trying to do? -- Regards, Dave [RLU #314465] ======================================================================= david.w.n...@ntlworld.com (David W Noon) ======================================================================= _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
