Re: [libreoffice-users] Macros : ByVal doesn't work with parameters in a class object modul ...

Hi Patrick,

Le 06/01/2018 à 10:58, Patrick Gelin a écrit :
> Below is a complet macro to manage Vectors of variants (With french
> coments) . I've got a problem with unitary test (Cf. Sub Main) because
> call to procedure 'v.Ajouter(duolet)' use always passage by reference
> instead of a passage by value (ByVal) ! For all that, I delicately
> manage a passage by value in my function...
>
> I tested with a call to New operator in order to build specifics
> instances at each call, like this :
>
>     duolet = new __TDuolet
>     duolet.key = "MONTAGNE"
>     duolet.Item = 3
>     v.Ajouter(duolet)
>
> And it's fine, the duolet variable is a new one instance. But I don't
> want the caller do all this stuff. I would like easier way to do ...

This
    v.Ajouter(ByVal duolet)
won't do. The ByVal specifier is only present at the declaration level, 
not the calling one.


You could just add a CreateDuolet() function to create the Duolets, like 
this :

Function CreateDuolet(ByRef pKey As String, pItem As Variant) As __TDuolet

        Dim MyDuolet As __TDuolet

        MyDuolet.key = pKey
        MyDuolet.item = pItem

        CreateDuolet = MyDuolet

End Function

(note : this function is not a class member)

Then, the caller has just to specify:

duolet = CreateDuolet("MONTAGNE", 3)
v.Ajouter(duolet)

or you might also simply call
v.Ajouter(CreateDuolet("MONTAGNE", 3))


BTW, I've noticed some glitches elsewhere, eg: in the _Expend() method, 
you've declared isPresserved as Optional but never test for its presence 
or not in the method body. This might lead to strange results, don't you 
think?
[BTW, BTW, shouldn't the method be called "_Expand" instead of "_Expend"?]


HTH,
--
Jean-Francois Nifenecker, Bordeaux


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted