home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBFDELE.IPS < prev    next >
Text File  |  1998-01-18  |  967b  |  32 lines
  1. PROCEDURE main
  2. VAR
  3.    x : integer;
  4. ENDVAR
  5.  
  6. IF DbfUse("CENIK") then            {pokud se otev°ela databßze}
  7.    DbfForm(0,0,600,350);
  8.    DbfShow;
  9.    ConsoleForm(390,15,250,400);
  10.    ConsoleShow; ConsoleClear;
  11.    WRITE('PoΦet zßznam∙:');
  12.    WRITELN(DbfRecCount:6)
  13.    DbfSetDeleted(true);    {zp°φstupnφ zruÜenΘ zßznamy}
  14.    FOR x := 1 to 3
  15.       DbfGo(Random(DbfReccount)); {skoΦφ na nßhodn² zßznam}
  16.       DbfDelete;           {zruÜφ vybran² zßznam}
  17.    ENDFOR
  18.    DbfGoTop;               {skok na zaΦßtek databßze}
  19.    WHILE not DbfEof        {dokud nenφ konec databßze}
  20.       IF DbfDeleted then   {pokud zßznam oznaΦen ke zruÜenφ}
  21.          DbfRecall;        {obnovφme platnost zßznamu}
  22.          WRITE('Zßznam ')
  23.          WRITE(IntToStr(DbfRecno)+'/'+IntToStr(DbfRecCount));
  24.          WRITELN(' obnoven')
  25.       ENDIF
  26.       DbfSkip(1);          {skok na dalÜφ zßznam}
  27.    ENDWHILE
  28. ELSE
  29.    WRITELN('Nelze, databßze nebyla nalezena')
  30. ENDIF
  31. ENDPROC
  32.