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

BB adamnt42 at gmail.com
Wed Apr 19 01:04:17 CEST 2023


I think, from memory you need to use

If (x <> +Inf) then

bruce

On 19/4/23 8:13 am, Jussi Lahtinen wrote:
> 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 
> <mailto: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
>     <http://gambaswiki.org/wiki/doc/netiquette> ]----
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230419/c21dfb0b/attachment.htm>


More information about the User mailing list