Code: Select all
' class:
Type rndict
public:
prognames() as string
prognums() as integer
declare sub showitems()
end type
sub rndict.showitems
for i as integer =0 to ubound(prognames)
print prognames(i), prognums(i)
next
end sub
'MAIN:
Dim As rndict progdict
redim progdict.prognames(2)
redim progdict.prognums(2)
progdict.prognames(0) = "aa"
progdict.prognums(0) = 1
progdict.prognames(1) = "bb"
progdict.prognums(1) = 3
progdict.prognames(2) = "cc"
progdict.prognums(2) = 10
progdict.showitems
Code: Select all
soq_rndict.bas(5) error 9: Expected expression, found ')' in 'prognames() as string'
soq_rndict.bas(6) error 9: Expected expression, found ')' in 'prognums() as integer'
soq_rndict.bas(20) error 54: Expected var-len array, before '(' in 'redim progdict.prognames(2)'
soq_rndict.bas(21) error 54: Expected var-len array, before '(' in 'redim progdict.prognums(2)'
soq_rndict.bas(23) error 181: Invalid assignment/conversion in 'progdict.prognames(0) = "aa"'
soq_rndict.bas(26) error 181: Invalid assignment/conversion in 'progdict.prognames(1) = "bb"'
soq_rndict.bas(29) error 181: Invalid assignment/conversion in 'progdict.prognames(2) = "cc"'
Code: Select all
Type rndict
public:
prognames(1024) as string
prognums(1024) as integer
declare sub showitems()
end type
What are other errors in above code?
Thanks for your help.