Re: Using a variable within a record

Dennis-Bendert Schramm a =E9crit :
> Hi,
>
> how can I get the following piece of code to work:
>
>
> type MenuRec=3DRECORD
>          word_menuItem:word;
>          word_itemNumber:word;
>          p_itemArray:array[1..word_itemNumber]of pchar; {<- error occurs
> here! }
> END;
>
>
The next question would be what will you do with MenuRec ? and how
"safe" you want it (safe is more or less class with methods)
now if p_itemArray is a pointer as his name suggests you can call
GetMem to have it as you need;
but declarations must be changed:

TYPE TitemsArray =3D array [0 ..(* let's say ...*) high(word) ] of pchar;
          P2itemArray =3D ^TitemArray;

          MenuRec=3DRECORD
             word_menuItem:word;
             word_itemNumber:word;
             p_itemArray:P2itemsArray (* call getmem/freemem *)
          END;

Now if you need the record in one piece in memory (* for example to
interface with C struct ...*)

 TYPE TP2newrec : ^ NewMenuRec;

      NewMenuRec =3D RECORD
             word_menuItem:word;
             word_itemNumber:word;
             itemArray: TitemsArray
            END;
VAR mymenu : TP2newrec; (* and get the size you need
2*sizeof(word)+(sizeof(pchar)*nNumberWord) *)
       =20
     :