I got prefs working brute force, by defining each var separately. i.e. textsize%=gPref.prefstextsize% fontNumber%=gPref.prefsfontNumber% gTrackSpace=gPref.prefsgTrackSpace NormalSpace=gPref.prefsNormalSpace I could not get the arrays to work. On Tue, Nov 4, 2008 at 1:06 PM, Robert Purves <listrp@...> wrote: > > Pierre Zippi wrote: > >> Three questions: >> >> 1) Is it acceptable to structure the prefrecord like this? >> >> BEGIN RECORD prefsRecord >> DIM prefs%(60) as integer >> DIM prefsdouble#(60) as double >> END RECORD >> DIM gPref AS prefsRecord >> >> I had prefs and prefsdouble set to different sizes, prefs%(60) & >> prefsdouble#(5), and got an array bounds error. >> >> 2) Can you see anything wrong with setting the prefs this way? >> LOCAL FN PrefsSet >> beep >> gPref.prefs%(1)=textsize%'textsize >> gPref.prefs%(2)=fontNumber%'font >> gPref.prefs%(3)=gTrackSpace'X-starting point of eack plot track >> gPref.prefs%(4)=NormalSpace'X-starting point of eack plot track >> ... 56 more set here plus 4 prefsdouble... >> gPref.prefsdouble#(1)=doublevar1# >> gPref.prefsdouble#(2)=doublevar2# >> gPref.prefsdouble#(3)=doublevar3# >> gPref.prefsdouble#(4)=doublevar4# >> PUT PREFERENCES "WellPlot4 Pref File",gPref >> END FN >> >> 3) Anything wrong with retrieving prefs like this? >> LOCAL FN PrefsGetInt >> textsize%=gPref.prefs%(1) >> fontNumber%=gPref.prefs%(2) >> gTrackSpace=gPref.prefs%(3) >> NormalSpace=gPref.prefs%(4) >> ... 56 more prefs retrieved here plus 4 prefsdouble... >> doublevar1#=gPref.prefsdouble#(1) >> doublevar2#=gPref.prefsdouble#(2) >> doublevar3#=gPref.prefsdouble#(3) >> doublevar4#=gPref.prefsdouble#(4) >> GET PREFERENCES "WellPlot4 Pref File",gPref >> END FN > > > An array inside a record must be indexed with square brackets, not > parentheses. > > begin record Test > dim as short array[2] > end record > > dim as Test testVar > testVar.array[0] = 12 > testVar.array[1] = 34 > testVar.array[2] = 56 > > dim as long j > for j = 0 to 2 > print testVar.array[j] > next > stop > > Robert P. > > -- > To unsubscribe, send ANY message to: futurebasic-unsubscribe@... > >