自定义函数如何返回多个值或对象 - 编程论坛

#2

radiofan2019-09-06 10:35

FUNCTION otest_connection(yname,ypass,robj,rconn)

        PUBLIC &robj,&rconn
……
……
……
            &robj = testobj
            &rconn = testconn
            RETURN .T.

ENDFUNC

#3

zhken2019-09-06 11:12

FUNCTION ABC(AA1,BB1)
LPARAMETERS AA1,BB1
AA='11'+AA1+' 22 '+BB1

……
……

RETURN AA
ENDFUNC

* F=ABC('F','G')
* ? F &&F='11F 22 G'

#4

radiofan2019-09-06 11:15

以下是引用zhken在2019-9-6 11:12:23的发言：

FUNCTION ABC(AA1,BB1)
LPARAMETERS AA1,BB1
AA='11'+AA1+' 22 '+BB1

……
……

RETURN AA
ENDFUNC

* F=ABC('F','G')
* ? F &&F='11F 22 G'

只能返回AA单个值

#5

radiofan2019-09-06 11:16

以下是引用radiofan在2019-9-6 10:35:03的发言：

FUNCTION otest_connection(yname,ypass,robj,rconn)

        PUBLIC &robj,&rconn
……
……
……
            &robj = testobj
            &rconn = testconn
            RETURN .T.

ENDFUNC

可以根据用户定义返回通过robj和rconn传入的多个值。

#6

sdta2019-09-06 11:45

通过数组解决问题

#7

mrytfeiup2019-09-09 11:27

返回数组结构地址

#8

gs25367856782019-09-09 13:57

我的认识是这样的，子程序有两种，过程与函数
如果要返回唯一的一个值，请设置成函数
函数有PROC开头最后必须通过RETURN返回唯一值
默认情况下函数是按值传递。
如果要返回多个值或者不返回值，请设置成过程
过程用PROC开头，最后不用写RETURN语句
默认情况下过程是按地址传递。
下面是一个返回多个值的过程的实例
请朋友自己琢磨琢磨。

CLEAR
x=6
y=5
z=9
?x
?y
?z
?
DO zcx WITH x,y,z
?x
?y
?z

************
PROCEDURE zcx
PARAMETERS mx,my,mz
mx=mx*2
my=my+mx
mz=mz-1
ENDPROC

[此贴子已经被作者于2019-9-9 14:03编辑过]