home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / dq.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  927 b   |  38 lines
  1. unit DQ;
  2.  
  3. interface
  4. uses Crt,     Def,    ColorDef, ShowPagU, DelRec, SetBU, RE,      FastWr,
  5.      GetForU, StrnU,  UCasU,    StriU;
  6. procedure DeleteQuery(var ActionTaken: boolean; RecordNum: integer);
  7.  
  8. implementation
  9.  
  10. procedure DeleteQuery;
  11. var Query:                 S30;
  12.     AllowInput,
  13.     Waste:                 boolean;
  14.     AllowControl:          integer;
  15. begin
  16. SetBG;
  17. clrscr;
  18. AllowControl := -1;
  19. AllowInput := true;
  20. ActionTaken := false;
  21. GetRec(Entry,RecordNum);
  22. ShowPage;
  23. FastWrite( 'Type DEL and hit [ENTER] to delete !', 18, 1,
  24.            (Msgs.Attr or $0008));
  25. FastWrite( 'Strike [ENTER] to exit !', 19, 1, (Msgs.Attr or $0008));
  26. Query := GetForm( 1, 20, 4, Strng(4,#32), '', AllowControl, AllowInput,
  27.                   Inputs.Attr, [#31..#126]);
  28. SetBG;
  29. if UCase(Strip(Query)) = 'DEL' then
  30.    begin
  31.    DeleteRecord(RecordNum);
  32.    ActionTaken := true;
  33.    end;
  34. clrscr;
  35. end;
  36.  
  37. end.
  38.