home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / er.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  394 b   |  24 lines
  1. unit ER;
  2.  
  3. interface
  4. uses Crt, Def, RE, FillFram, ED, SO;
  5. procedure EditRecord( RecordNum: integer);
  6.  
  7. implementation
  8.  
  9. procedure EditRecord;
  10. begin
  11. GetRec(Entry,RecordNum);
  12. FillFrame;
  13. SetConstants;
  14. FullPageDisplay;
  15. HoldEntry := Entry;
  16. PageEditor;
  17. clrscr;
  18. RecordSet;
  19. PutRec(Entry,RecordNum);
  20. if HoldEntry.Addressee <> Entry.Addressee then InplaceSort(RecordNum);
  21. end;
  22.  
  23. end.
  24.