home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / occur4 < prev   
Encoding:
Text File  |  1989-02-27  |  1001 b   |  24 lines
  1.  
  2.   BEGIN
  3.     LineOK := lineOK;     <-- Definition der Linien-Prüfungs-Prozedur
  4.     FieldOK := fieldOK;   <-- Definition der Feld-Prüfungs-Prozedur
  5.     IF CreateOccur('DEMO.OCR',1,OccurFields,OccurLines) THEN
  6.                     ^         ^ ^           ^ Rückgabe der Anzahl Linien pro
  7.                     │         │ │             Seite.
  8.                     │         │ └─ Rückgabe der Anzahl Felder pro Linie
  9.                     │         └─ Mask-Nummer
  10.                     └─ Filename des Mask-Files
  11.  
  12.       FOR Ind := 1 TO OccurFields DO
  13.         DefineOccurField(80); <-- Definition der MaskFelder pro Linie
  14.                          ^ Mask-Feld-Länge, falls das Feld im Text kürzer
  15.                            definiert wurde, kann gescrollt werden.
  16.       END;
  17.       TransferProc(1, 1);  <-- Uebergabe der ersten Linie für das Edieren
  18.       EditFields(userFunc, CharOK, line, GetComment); 
  19.       CloseOccurMask();    <-- Schliessen der Maske
  20.     ELSE
  21.     END;
  22.   END ODrvDemo.
  23.  
  24.