home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / mask2 < prev    next >
Encoding:
Text File  |  1989-02-27  |  853 b   |  23 lines
  1.  
  2.         Ch := 0;
  3.         W := not;
  4.       ELSE
  5.         Ch := 0;
  6.         W := w;
  7.       END;
  8.       RETURN Ch;
  9.     END Function;
  10.   PROCEDURE DefMaskFields();
  11.     BEGIN
  12.       ClearAllFields();  <-- Löschen der Variablen im MaskInterface
  13.       DefineFields(ADR(s1), SIZE(s1), Str, 0, 0);
  14.                    ^        ^         ^    ^  ^ Feldlänge des Maskfeldes für
  15.                    │        │         │    │    numerische Werte
  16.                    │        │         │    └─ Vorkommastellen, bzw. Stellen
  17.                    │        │         │       bei Real bzw. numerischen Werten
  18.                    │        │         │       für rechtsbündige Schreibweise.
  19.                    │        │         └─ Feldtype
  20.                    │        └─ Länge der Variable
  21.                    └─ Memory-Adresse der Variable
  22.     END DefMaskFields;
  23.