How to make types-within-types in Cobra -- this took me a while to figure out. Hopefully self explanatory if you are familiar with how the types work, with lists and pointers.

[code]program
 
type foo = record
    value : integer
endtype
 
type bar = record
    foolist : list of foo
endtype

var
    barlist : list of bar
    fooptr : ^foo
    barptr : ^bar
    
    x, y : integer
    
begin
    //make some foobars
    for x=0 to 2
        barptr := newitem(barlist)
        for y=0 to 4
            fooptr := newitem(barptr.foolist)
            fooptr.value := (x*10 + y)
        next
    next
       
    //loop through them and Write to debug console
    //debug must be enabled!
    loop barptr through barlist
        loop fooptr through barptr.foolist
            debugmsg(fooptr.value)
        endloop
    endloop

end[/code]


This post is from -- http://socoder.net/index.php?topic=0