[fpc-pascal] A complex trouble(at least for me)

[Cox, Stuart TRAN:EX]

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.cox at gov.bc.ca

-----Original Message-----
From: fpc-pascal-bounces at lists.freepascal.org [mailto:fpc-pascal-bounces at 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.noon at ntlworld.com (David W Noon) =======================================================================
_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal