Returns of 2 variables in one func

[ddarek 0]

Hello

I am struggling with such a thing

Func FindEmptyField() ;
        For $i = 1 To $iLast
                For $j = 0 To $jLast
                        ;ConsoleWrite("Checking: " & $i & ", " & $j & @CRLF)
                        $FieldInfo = GetField($i, $j)
                        If GetField($i, $j) = 0 Then
                                ConsoleWrite($i & ", " & $j & "  <-Can move! " & @CRLF)
                                ExitLoop
                        EndIf
                Next
        Next
EndFunc

I would like that this function returns first first $i and $j which i can use

I thought about Array but I think it is could be too heavy, maybe with setextended will be nicer ?

Any help ?

Edited August 11, 2011 by ddarek

[guinness 1,518]

Look at SetError()

[ddarek 0]

Like this ?

Func FindEmptyField() ;
        For $i = 1 To $iLast
                For $j = 0 To $jLast
                        ;ConsoleWrite("Checking: " & $i & ", " & $j & @CRLF)
                        $FieldInfo = GetField($i, $j)
                        If GetField($i, $j) = 0 Then
                                SetError($i,$j)
                                ConsoleWrite($i & ", " & $j & "  <-Can move! " & @CRLF)
                                ExitLoop
                        EndIf
                Next
        Next

EndFunc

Edited August 11, 2011 by ddarek

[ProgAndy 88]

SetError is to set error values. If you need extended return values, use SetExtended, just as you said.

In your case, an array as return value or ByRef-params should be the best choice. If you don't want an array, use ByRef

Edited August 11, 2011 by ProgAndy

[wakillon 403]

Example of returning 2 values with SetExtended

$_Result = _Function ( )
$_extended = @extended
ConsoleWrite ( "$_Result : " & $_Result & ' $_extended : ' & $_extended & @Crlf )

Func _Function ( )
    Local $_Var1 = 100
    Local $_Var2 = 10
    Return SetExtended ( $_Var1, $_Var2 )
EndFunc

[ddarek 0]

@ProgAndy: SetError , ye was absent minded just SetError(1) is enough

@wakillon thnx , but i needed it separately,

so $i I return normal way and $j as SetExtended($j) <- this way it works also

big thnx

[wakillon 403]

@ProgAndy: SetError , ye was absent minded just SetError(1) is enough

@wakillon thnx , but i needed it separately,

so $i I return normal way and $j as SetExtended($j) <- this way it works also

big thnx

Yes, this is identical, values are just crossed.

$_Result = _Function1 ( )
$_extended = @extended
ConsoleWrite ( "$_Result : " & $_Result & ' $_extended : ' & $_extended & @Crlf )

$_Result = _Function2 ( )
$_extended = @extended
ConsoleWrite ( "$_Result : " & $_Result & ' $_extended : ' & $_extended & @Crlf )

Func _Function1 ( )
    Local $_Var1 = 100
    Local $_Var2 = 10
    Return SetExtended ( $_Var1, $_Var2 )
EndFunc

Func _Function2 ( )
    Local $_I = 100
    Local $_J = 10
    SetExtended ( $_J )
    Return $_I
EndFunc