home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / occur1 < prev    next >
Encoding:
Text File  |  1989-02-27  |  829 b   |  23 lines
  1.  
  2. MODULE ODrvDemo;
  3.   PROCEDURE lineOK(lineNum : CARDINAL): BOOLEAN;
  4.                                     │ Diese Procedur wird aufgerufen, before
  5.                                     │ die aktuelle Linie verlassen wird.
  6.                                     │ Hier könnte z.B. der Update eines
  7.                                     │ Datenbank-Records erfolgen.
  8.     BEGIN
  9.       RETURN TRUE;
  10.     END lineOK;
  11.   PROCEDURE InsertProc(LineNum, CurLine : CARDINAL);
  12.                                     │ Ausgabe einer Feldzeile, in der 
  13.                                     │ nicht ediert werden möchte.
  14.     VAR
  15.       Ind : CARDINAL;
  16.     BEGIN
  17.       InsertLine(TRUE, CurLine, Data[LineNum][1]); 
  18.       FOR Ind := 2 TO OccurFields DO
  19.         InsertLine(FALSE, CurLine, Data[LineNum][Ind]);
  20.       END;
  21.     END InsertProc;
  22.  
  23.