Can I pass an Array as a sub Parameter?

[leopardpm]

More specifically, can I pass a UDT array, with possible arrays within it, as a parameter to a Subroutine?

Code: Select all

type wsp
    as ushort ws_pntr
    as ushort val
end type

type act
    as ushort index
    as string name
    as ushort TimeCost
    as ushort EffortCost
    as ushort NumOfReqWS
    as wsp ReqWS(3)
    as ushort NumOfEffWS
    as wsp EffWS(3)
    as string LocReqName
    as ushort LocReqPntr
end type

dim as act Actions(20)

sub test(byref array() as act)
' do stuff to the arry passed in here

end sub

    test(Actions())
   
    sleep
    end

[dodicat]

Most definitely, but omit the byref before array() as act, otherwise you get a compile error.

Code: Select all

type wsp
    as ushort ws_pntr
    as ushort val
end type

type act
    as ushort index
    as string name
    as ushort TimeCost
    as ushort EffortCost
    as ushort NumOfReqWS
    as wsp ReqWS(3)
    as ushort NumOfEffWS
    as wsp EffWS(3)
    as string LocReqName
    as ushort LocReqPntr
end type

dim as act Actions(20)

sub test( array() as act)
    print ubound(array)
    print ubound(array(ubound(array)).effws)
    array(0).reqws(0).val=13
' do stuff to the array passed in here

end sub

    test(Actions())
    print actions(0).reqws(0).val
   
    sleep
    end

[leopardpm]

ah ha! Where in any documentation does it specify that the byref needs to not be included? I was going crazy... I mean, obviously an array can't really be passed 'byVal' as duplicating an entire Array could be memory blowing, etc... but....

in any case, Thank you! Problem solved

[sancho3]

Note that array parameters are always ByRef and the ByRef keyword is neither required nor allowed for array parameters. When calling a function with an array argument the parenthesis must be supplied there too; see the examples.

From here.

[leopardpm]

thank you Sancho... my reading skills must be lacking....

[D.J.Peters]

BYREF is not allowed I don't like it.

BYREF should be optional same as for strings and if we use the warning level -w pedantic it should be mandatory.

Joshy

[fxm]

I think that could be done it at the same time as adding the array copy capability and the passing of arrays by value, as for the strings (by passing by reference a copy of the array).