[Gambas-user] If x <> +Inf Then [Error]

Jussi Lahtinen jussi.lahtinen at gmail.com
Wed Apr 19 00:43:18 CEST 2023


I can confirm. The error is "THEN expected". IE the code is not parsed
properly.

Jussi


On Wed, Apr 19, 2023 at 12:48 AM Martín <mbelmonte at belmotek.net> wrote:

> Hi,
>
> There maybe are an error in the evaluation of expression:
>
> If x <> +Inf Then ...
>
> To reproduce the error you can use this code (it occurs in 3.18.2 &
> 3.18.90 but not in 3.18.0)
>
> Public Sub Form_Open()
>
>    Dim i As Integer
>    'Dim inFinito As Integer = (2 ^ 31) - 1
>    Dim inFinito As Integer = +Inf
>    Dim a As New Integer[]
>
>    For i = 0 To 9
>      a.Add(Rand(0, inFinito))
>    Next
>
>    For i = 0 To 9
>      'If a[i] <> +Inf Then ' it doesn't works
>      If a[i] <> inFinito Then ' it works
>
>        Print "Continua jugando"
>      Else
>        Print "Fin del juego"
>      Endif
>    Next
>
> End
>
>
> Best regards
>
> Martin.
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230419/0f826bf2/attachment.htm>


More information about the User mailing list