home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0601.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  567 b   |  22 lines
  1. {$F+}
  2. Procedure AssignDev( Var F : Text );
  3. { Simple example procedure that shows the structure of an      }
  4. { initialization procedure.  It sets up each field of the file }
  5. { variable F.                                                  }
  6. Begin
  7.   With TextRec( F ) Do
  8.   Begin
  9.     Handle := $FFFF;
  10.     Mode := fmClosed;
  11.     BufSize := SizeOf( ABuffer );
  12.     BufPtr := @ABuffer;
  13.     OpenFunc := @AnOpenFunc;
  14.     CloseFunc := @ACloseFunc;
  15.     InOutFunc := @AnInOutFunc;
  16.     FlushFunc := @AFlushFunc;
  17.     BufPos := 0;
  18.     Name[0] := #0;
  19.   End;
  20. End;
  21.  
  22.