if ... in ...

[goosfancito]

Hola.

Existe algo asi?

Code: Select all

if lastkey in [ VK_RETURN, VK_... ] then
   msginfo("paso de campo")
endif

No se si me explique lo que quiero hacer?

Gracias.

[karinha]

Code: Select all

    LOCAL nKey

    Do Case

       Case nKey == VK_RETURN .OR. GetKeyState( VK_ESCAPE )

       ... Mensagem ...
    
    EndCase

[goosfancito]

Karhina,

Queria trabajar similar a cuando lo haces utilizando conjuntos en C,

Gracias de todos modos.

ç

Code: Select all

    LOCAL nKey

    Do Case

       Case nKey == VK_RETURN .OR. GetKeyState( VK_ESCAPE )

       ... Mensagem ...
    
    EndCase

[pymsoft]

Hola.

Existe algo asi?

Code: Select all

if lastkey in [ VK_RETURN, VK_... ] then
   msginfo("paso de campo")
endif

No se si me explique lo que quiero hacer?

Gracias.

Hola, prueba asi:

Code: Select all

if ASCAN( lastkey, { VK_RETURN, VK_... } ) != 0
   msginfo("paso de campo")
endif

saludos

[goosfancito]

Andubo. gracias. Cambiando a ) == 0

Hola.

Existe algo asi?

Code: Select all

if lastkey in [ VK_RETURN, VK_... ] then
   msginfo("paso de campo")
endif

No se si me explique lo que quiero hacer?

Gracias.

Hola, prueba asi:

Code: Select all

if ASCAN( lastkey, { VK_RETURN, VK_... } ) != 0
   msginfo("paso de campo")
endif

saludos

[pymsoft]

bien

[Carlos Mora]

Hola Goos

Existe algo asi?

En xHarbour existe. Te recomiendo registrarte en www.xHarbour.com, que es gratis, y podes acceder a los manuales online. En particular sobre el operador IN pone:

http://www.xharbour.com/xhdn/referenceg ... r&id=19572

Code: Select all

Syntax   	
   <cSubString> IN <cString>
   <xValue>     IN <aArray>
   <xKey>       IN <hHash>
Arguments 	
<cSubString>
   <cSubString> is a character or other value that is searched for in <cString>.
<aArray>
   <aArray> is an array with random values.
<xKey>
   <xKey> is a value to search in a hash.
<hHash>
   <hHash> is a hash value whose keys are searched for <xKey>.
Description 	
The IN operator searches the left operand in the right operand and returns .T. (true) if the value of the left operand is contained in the value of the right operand, otherwise .F. (false) is returned.

y creo que es EXACTAMENTE lo que buscas. Aparentemente Harbour no lo soporta, al menos en la version Devel 1.1 que es la que bajé de Fivetech.

Un saludo,

Carlos.

[goosfancito]

JE! exacto compañero.-
Gracias.

Hola Goos

Existe algo asi?

En xHarbour existe. Te recomiendo registrarte en www.xHarbour.com, que es gratis, y podes acceder a los manuales online. En particular sobre el operador IN pone:

http://www.xharbour.com/xhdn/referenceg ... r&id=19572

Code: Select all

Syntax   	
   <cSubString> IN <cString>
   <xValue>     IN <aArray>
   <xKey>       IN <hHash>
Arguments 	
<cSubString>
   <cSubString> is a character or other value that is searched for in <cString>.
<aArray>
   <aArray> is an array with random values.
<xKey>
   <xKey> is a value to search in a hash.
<hHash>
   <hHash> is a hash value whose keys are searched for <xKey>.
Description 	
The IN operator searches the left operand in the right operand and returns .T. (true) if the value of the left operand is contained in the value of the right operand, otherwise .F. (false) is returned.

y creo que es EXACTAMENTE lo que buscas. Aparentemente Harbour no lo soporta, al menos en la version Devel 1.1 que es la que bajé de Fivetech.

Un saludo,

Carlos.