home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / TPDB32 / ZAP.PAS < prev   
Pascal/Delphi Source File  |  1991-10-28  |  2KB  |  55 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. program ZapFile;
  4.  
  5.                            (***********************************)
  6.                            (*               TPDB              *)
  7.                            (***********************************)
  8.                            (*         Object -Oriented        *)
  9.                            (*     Turbo Pascal 6.0 Units      *)
  10.                            (*    for Accessing dBASE III      *)
  11.                            (*             files.              *)
  12.                            (*        Copyright 1991           *)
  13.                            (*          Brian Corll            *)
  14.                            (*       All Rights Reserved       *)
  15.                            (*     dBASE is a registered       *)
  16.                            (* trademark of Ashton-Tate, Inc.  *)
  17.                            (*   Version 3.20  October, 1991   *)
  18.                            (***********************************)
  19.                            (*   Portions Copyright 1984,1991  *)
  20.                            (*    Borland International Corp.  *)
  21.                            (***********************************)
  22.  
  23. uses
  24.     Crt, TPDB, TPDBScrn, TPDBStr;
  25.  
  26. var
  27.     Message: string [80];
  28.     Zapper:^DBF;
  29.  
  30. begin
  31.     CursorOff;
  32.     if ParamCount = 0 then begin
  33.         Beep;
  34.         ClrScr;
  35.         Flash(1, 1, LightGreen + BlackBG, 'ZAP filename.dbf');
  36.         CursorOn;
  37.         Halt(1);
  38.     end;
  39.     New(Zapper, Init(ParamStr(1)));
  40.     if Zapper^.TotalRecs = 0 then begin
  41.         ClrScr;
  42.         Beep;
  43.         Message := 'Record count in file ' + Upper(ParamStr(1)) + ' is already ZERO.';
  44.         Flash(1, 1, LightGreen + BlackBG, Message);
  45.         CursorOn;
  46.         Halt(1);
  47.     end;
  48.     Zapper^.Zap;
  49.     Zapper^.Done;
  50.     ClrScr;
  51.     FlashC(12, White + BlackBG, 'File has been zapped.');
  52.     FlashC(13, LightGreen + BlackBG, 'Copyright 1991 Brian Corll');
  53.     CursorOn;
  54. end.
  55.