Hi, i made an example for BYREF but it is not working
-------------------------------- ' Gambas class file Public Sub Form_Open() Dim Number1 As Integer Number1 = 10 IncrementVariable1(Number1) Print Number1 IncrementVariable2(Number1) Print Number1 End Private Sub IncrementVariable1(Num1 As Integer) 'ByVal sub Num1 = Num1 + 1 End Private Sub IncrementVariable2(ByRef Num2 As Integer) 'ByRef sub Num2 = Num2 + 1 End -------------------------------- result: 10 10 <- this shouldn't be 11? -- Regards, Demosthenes Koptsis. ------------------------------------------------------------------------------ Learn how Oracle Real Application Clusters (RAC) One Node allows customers to consolidate database storage, standardize their database environment, and, should the need arise, upgrade to a full multi-node Oracle RAC database without downtime or disruption http://p.sf.net/sfu/oracle-sfdevnl _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
