Multiple Variables returned from Procedure

BackupUser · Post by **BackupUser** » Mon Dec 30, 2002 6:49 pm

Restored from previous forum. Originally posted by pbdep.

Hiya All,

I dont seem to get it

How to return multiple values from a procedure?

Procedure test()
X = 1
Y = 2
ProcedureReturn(X, Y)
EndProcedure

Above fails, howto return multiple values?

Regards,
Norman.

BackupUser · Post by **BackupUser** » Mon Dec 30, 2002 7:01 pm

Restored from previous forum. Originally posted by pusztry.

To my knowledge you can only return 1 value from a procedure. As an alternative you could use a structure or an array. Arrays in PureBasic are always global so no need to even send it out just manipulate the data in the array and use it as you please. You can actually DIM the array in or out of the procedure.

Hope this helps

- Ryan

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Mon Dec 30, 2002 7:01 pm

Restored from previous forum. Originally posted by PB.

> How to return multiple values from a procedure?

You can't -- you can only return one value from a procedure.

Workaround: Make the variables in the procedure global, so that they
retain their values when the procedure is done, and you also don't
need to use ProcedureReturn with them.

BackupUser · Post by **BackupUser** » Mon Dec 30, 2002 7:12 pm

Restored from previous forum. Originally posted by pusztry.

Originally posted by PB

> How to return multiple values from a procedure?

You can't -- you can only return one value from a procedure.

Workaround: Make the variables in the procedure global, so that they
retain their values when the procedure is done, and you also don't
need to use ProcedureReturn with them.

Wow we posted very close to the same time:)

- Ryan

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Mon Dec 30, 2002 8:35 pm

Restored from previous forum. Originally posted by PB.

> Wow we posted very close to the same time

BackupUser · Post by **BackupUser** » Tue Dec 31, 2002 12:20 am

Restored from previous forum. Originally posted by tinman.

Originally posted by pbdep

Above fails, howto return multiple values?

Use pointers:

Code: Select all

Procedure.l MultiReturn(*ret2.l)    PokeL(23, *ret2)    ; Second return value
    ProcedureReturn(45) ; First return value
EndProcedure

a.l = MultiReturn(@b.l)

You can just keep adding pointers, although if you have to have many returned values, you could create a structure to store the values you want to return and pass a pointer to it.

--
It's not minimalist - I'm increasing efficiency by reducing input effort.
(Win98first ed. + SP1, PB3.40)