home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBF1.IPS < prev    next >
Encoding:
Text File  |  1998-01-12  |  1.0 KB  |  50 lines
  1. VAR
  2.    s : string; r : real;
  3. ENDVAR
  4.  
  5. PROCEDURE bof
  6.    IF DbfBof then
  7.       WRITELN('DbfBof    : True');
  8.    ELSE
  9.       WRITELN('DbfBof    : False');
  10.    ENDIF
  11. ENDPROC
  12.  
  13. PROCEDURE eof
  14.    IF DbfEof then
  15.       WRITELN('DbfEof    : True');
  16.    ELSE
  17.       WRITELN('DbfEof    : False');
  18.    ENDIF
  19. ENDPROC
  20.  
  21. PROCEDURE deleted
  22.    IF DbfDeleted then
  23.       WRITELN('DbfDeleted: True');
  24.    ELSE
  25.       WRITELN('DbfDeleted: False');
  26.    ENDIF
  27. ENDPROC
  28.  
  29. PROCEDURE found
  30.    IF DbfFound then
  31.       WRITELN('DbfFound  : True');
  32.    ELSE
  33.       WRITELN('DbfFound  : False');
  34.    ENDIF
  35. ENDPROC
  36.  
  37. PROCEDURE main
  38.    ConsoleClear;  ConsoleShow;
  39.    IF DbfName = '' then
  40.       WRITELN('Nejprve otev°ete libovolnou databßzi');
  41.    ELSE
  42.       WRITELN('Databßze  : '+DbfName);
  43.       IF DbfTagName(0) <> '' then
  44.          WRITELN('Index     : '+DbfTagName(0));
  45.       ENDIF
  46.       WRITELN('Zßznam    : '+IntToStr(DbfRecno)+'/'+IntToStr(DbfRecCount));
  47.       bof; eof; deleted; found;
  48.    ENDIF
  49.    WRITELN('************************************');
  50. ENDPROC