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

[Jussi Lahtinen]

Yes, that works, but it is still inconsistency.

Jussi

On Wed, Apr 19, 2023 at 2:05 AM BB <adamnt42 at gmail.com> wrote:

> 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> 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/54c66fd4/attachment.htm>