Arrays - inicializando arrays de types

Top  Previous  Next

//You can't have a constant dynamic array so you'll have to declare the

//bounds:

 

  const initCats:array[1..6of TClientCategory=(

        (rectype:catCategory; caption:'Contract';   status:false),

        (rectype:catCategory; caption:'Projection'; status:false),

        (rectype:catCategory; caption:'Calls';      status:false),

        (rectype:catCategory; caption:'Meetings';   status:false),

        (rectype:catCategory; caption:'Statements'; status:false),

        (rectype:catCategory; caption:'ToDo';       status:false));