|
PROCEDURE Constant(VAR at: Attribute) : BOOLEAN; (* Constant = "0" | "1" | ... | "9" . *) BEGIN IF sy = constantSY THEN at := const; GetSy; RETURN TRUE ELSE RETURN FALSE END; END Constant; |
Auf unterster Ebene liegen Konstanten vor, deren
Wert direkt als Attribut übernommen wird.
|
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |