- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
PROCEDURE changeValue ( KeyStore:IN OUT Keys'Class; value: IN INTEGER )
IS
BEGIN
IF value = 1024 THEN
Message ( "NOT IN RANGE" );
ELSIF value = 2048 THEN
Message ( "OUT OF RANGE" );
ELSIF value = KeyStore.def THEN
KeyStore.val = value;
ELSE
Message ( "IN RANGE");
END IF;
END changeValue;
guest 21.05.2009 05:29 # +1
Наверно в реальном коде этих условий не будет.