RetroBBS - comp.lang.xharbour

valid in a get

<9daef7d2-225c-4f31-9bba-3fefa9cda96en@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=17010&group=comp.lang.xharbour#17010

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:620a:1598:b0:69c:7474:245f with SMTP id d24-20020a05620a159800b0069c7474245fmr1833511qkk.561.1649942910027;
Thu, 14 Apr 2022 06:28:30 -0700 (PDT)
X-Received: by 2002:ac8:4b51:0:b0:2ef:925d:21f0 with SMTP id
e17-20020ac84b51000000b002ef925d21f0mr1713833qts.603.1649942909835; Thu, 14
Apr 2022 06:28:29 -0700 (PDT)
Path: i2pn2.org!i2pn.org!aioe.org!news.uzoreto.com!news-out.netnews.com!news.alt.net!fdc2.netnews.com!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Thu, 14 Apr 2022 06:28:29 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=185.55.90.130; posting-account=_oyAawkAAAAkDmcMkD9UQrwxJqiaol5l
NNTP-Posting-Host: 185.55.90.130
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9daef7d2-225c-4f31-9bba-3fefa9cda96en@googlegroups.com>
Subject: valid in a get
From: info@marcoboschi.it (Marco Boschi)
Injection-Date: Thu, 14 Apr 2022 13:28:30 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1604

by: Marco Boschi - Thu, 14 Apr 2022 13:28 UTC

Hi,
I have some GETS
LOCAL nOne, nTwo , nThree nFour, nFive , nSix

STORE 0 TO nOne, nTwo , nThree nFour, nFive , nSix
CLEAR GETS

@ 10 , 10 GET nOne VALID myval()
@ 10 , 10 GET nTwo
@ 10 , 10 GET nThree VALID myval()
@ 10 , 10 GET nFour
@ 10 , 10 GET nFive VALID myval()
@ 10 , 10 GET nSix

READ
after some calculations I want to refresh only the GET that have myval() as postblock

FOR i := 1 TO LEN( GETLIST )
IF getlist[ i ]:postblock = ???? which is the conditions
oMyGet:display()
ENDIF
NEXT i

Re: valid in a get

<18891b4e-861b-4bc6-a34b-0ccd88983324n@googlegroups.com>

copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=17018&group=comp.lang.xharbour#17018

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:6214:b8e:b0:456:3674:ca6 with SMTP id fe14-20020a0562140b8e00b0045636740ca6mr22240410qvb.40.1652280474039;
Wed, 11 May 2022 07:47:54 -0700 (PDT)
X-Received: by 2002:ac8:59cb:0:b0:2f3:f432:d9e8 with SMTP id
f11-20020ac859cb000000b002f3f432d9e8mr1566837qtf.457.1652280473861; Wed, 11
May 2022 07:47:53 -0700 (PDT)
Path: i2pn2.org!i2pn.org!aioe.org!pasdenom.info!nntpfeed.proxad.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Wed, 11 May 2022 07:47:53 -0700 (PDT)
In-Reply-To: <9daef7d2-225c-4f31-9bba-3fefa9cda96en@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=185.55.90.130; posting-account=_oyAawkAAAAkDmcMkD9UQrwxJqiaol5l
NNTP-Posting-Host: 185.55.90.130
References: <9daef7d2-225c-4f31-9bba-3fefa9cda96en@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <18891b4e-861b-4bc6-a34b-0ccd88983324n@googlegroups.com>
Subject: Re: valid in a get
From: info@marcoboschi.it (Marco Boschi)
Injection-Date: Wed, 11 May 2022 14:47:54 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

by: Marco Boschi - Wed, 11 May 2022 14:47 UTC

Il giorno giovedì 14 aprile 2022 alle 15:28:30 UTC+2 Marco Boschi ha scritto:
> Hi,
> I have some GETS
> LOCAL nOne, nTwo , nThree nFour, nFive , nSix
>
> STORE 0 TO nOne, nTwo , nThree nFour, nFive , nSix
> CLEAR GETS
>
> @ 10 , 10 GET nOne VALID myval()
> @ 10 , 10 GET nTwo
> @ 10 , 10 GET nThree VALID myval()
> @ 10 , 10 GET nFour
> @ 10 , 10 GET nFive VALID myval()
> @ 10 , 10 GET nSix
>
> READ
> after some calculations I want to refresh only the GET that have myval() as postblock
>
> FOR i := 1 TO LEN( GETLIST )
> IF getlist[ i ]:postblock = ???? which is the conditions
> oMyGet:display()
> ENDIF
> NEXT i
Here's a little workaround:

I use the "message" clause improperly

vtn := "myval()"

@ vt + tr[i_say] - 1, vl + tc[i_say] -1 GET &ntn ;
PICTURE tp[i_say] ;
WHEN &wtn ;
VALID &vtn ;
MESSAGE vtn

in refresh function

FOR iCal := 1 TO LEN( GETLIST )
IF GETLIST[ iCal ]:message = "myval()"
GETLIST[ iCal ]:display()
ENDIF
NEXT iCal

Computers are not intelligent. They only think they are.

devel / comp.lang.xharbour / valid in a get

Subject	Author
valid in a get	Marco Boschi
Re: valid in a get	Marco Boschi