home *** CD-ROM | disk | FTP | other *** search
-
- BEGIN
- LineOK := lineOK; <-- Definition der Linien-Prüfungs-Prozedur
- FieldOK := fieldOK; <-- Definition der Feld-Prüfungs-Prozedur
- IF CreateOccur('DEMO.OCR',1,OccurFields,OccurLines) THEN
- ^ ^ ^ ^ Rückgabe der Anzahl Linien pro
- │ │ │ Seite.
- │ │ └─ Rückgabe der Anzahl Felder pro Linie
- │ └─ Mask-Nummer
- └─ Filename des Mask-Files
-
- FOR Ind := 1 TO OccurFields DO
- DefineOccurField(80); <-- Definition der MaskFelder pro Linie
- ^ Mask-Feld-Länge, falls das Feld im Text kürzer
- definiert wurde, kann gescrollt werden.
- END;
- TransferProc(1, 1); <-- Uebergabe der ersten Linie für das Edieren
- EditFields(userFunc, CharOK, line, GetComment);
- CloseOccurMask(); <-- Schliessen der Maske
- ELSE
- END;
- END ODrvDemo.
-
-