Tivoli Service Desk 6.0 Developer's Toolkit - Referência de Linguagem do Script

Funções Lógicas

Retornar a Página Principal


BitAnd

Descrição

Executa uma operação AND de bitwise em duas ou mais expressões de números inteiros e retorna ao resultado.

Sintaxe

FUNCTION BitAnd (VAL bits: INTEGER ...): INTEGER;

Notas do Argumento

Nome do Argumento Descrição
bits Uma expressão de número inteiro

Exemplo

 IF BitAnd(winStyle, $WinTitle) <> 0 THEN
 -- O estilo de janela chamado para uma barra de título.
 ...
              END;

Consulte também


BitNot

Descrição

Retorna o inverso de bitwise do argumento.

Sintaxe

FUNCTION BitNot (VAL bits: INTEGER): INTEGER;

Notas do Argumento

Nome do Argumento Descrição
bits Um número inteiro de valores em bits simples

Notas

BitNot altera cada bit em seu argumento para o inverso binário: 0 torna-se 1 e 1 torna-se 0.

Exemplo

WinCreate($Desktop, myWindow, MyHandler, 10, 10, 80, 25,
 'Example', BitAnd($WinDefaultStyle, BitNot
 ($WinSysMenu)));
-- myWindow é criado com todos os estilos de janela
-- padrão, exceto que não tenha nenhum menu de sistema.

Consulte também


BitOr

Descrição

Executa uma operação OR de bitwise em duas ou mais expressões de números inteiros e retorna ao resultado.

Sintaxe

FUNCTION BitOr (VAL bits: INTEGER ...): INTEGER;

Notas do Argumento

Nome do Argumento Descrição
bits Uma expressão de número inteiro cujos bits devem ser combinados com aqueles em outras expressões, utilizando-se um operador OR.

Exemplo

answer := WinMessageBox($Desktop, 'Error',
 BitOr($MBIconError,
 $MBAbortRetryIgnore,
 $MBDefButton2, $MBMoveable),
 'Operation Failed');

Consulte também


BitXOr

Descrição

Executa uma operação Or (XOR) de bitwise exclusivo nas expressões de número inteiro de entrada e retorna o resultado. Uma operação Or exclusiva retornará 1, se os operandos forem diferentes.

Sintaxe

FUNCTION BitXOr (VAL bits: INTEGER ...): INTEGER;

Notas do Argumento

Nome do Argumento Descrição
bits Uma expressão de número inteiro cujos bits devem ser combinados com aqueles em outras expressões de número inteiro, utilizando-se um operador XOR.

Exemplo

PROCEDURE EncryptText (REF text: LIST OF STRING,
                       VAL mask: INTEGER)
IS
(* Criptografe o texto especificado através da execução da operação XOR da máscara sobre cada
 caractere. Enquanto não muito seguro, é simples
 e possui a vantagem que a descriptografia é acompanhada
 chamando o EncryptText novamente com a mesma máscara.*)
VARIABLES
        i: INTEGER;
ACTIONS
 FOR text DO
 FOR i := 1 TO StrLength(text[$CURRENT]) DO
 text[$CURRENT][i] :=
 Char(BitXOr(CharCode(text[$CURRENT][i]), mask));
              END;
              END;
              END;

Consulte também


Tivoli Service Desk 6.0 Developer's Toolkit - Referência de Linguagem do Script

Retornar à Página Principal

Copyright