home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / delrec.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  444 b   |  24 lines
  1. unit DelRec;
  2.  
  3. interface
  4. uses Def, ColorDef, FastWr, CPaU, SetAttU, RE, FT;
  5. procedure DeleteRecord( RecordNum: integer);
  6.  
  7. implementation
  8.  
  9. procedure DeleteRecord;
  10. var I: integer;
  11. begin
  12. FastWrite( CPad('Deleting',20), 16, 30, SetAttr(true, true, Msgs.FG, Msgs.BG));
  13. for I := succ(RecordNum) to FileTop do
  14.     begin
  15.     GetRec(Entry,I);
  16.     PutRec(Entry,pred(I));
  17.     end;
  18. dec(FileTop);
  19. dec(SortTop);
  20. PutFileTop;
  21. end;
  22.  
  23. end.
  24.