Chip 1999 August/Chip_1999-08_cd.bin/tema/Ozogan/RUNTIME/PROGRAMY.ZIP/DBF_6.KL3

Text File | 1998-10-29 | 616b | 22 lines

Program Dbf_6;
begin
   ConsoleClear;
   ConsoleShow;
   If DbfUse("CENIK") then    {pokud se otev°ela databßze}
      DbfGoTop;               {skok na zaΦßtek databßze}
      While not DbfEof do     {dokud nenφ konec databßze}
      begin
         If DbfDeleted then   {pokud zßznam oznaΦen ke zruÜenφ}
         begin
            DbfRecall;        {obnovφme platnost zßznamu}
            Writeln(DbfReadStr("NAZEV"));
         end;
         DbfSkip(1);          {skok na dalÜφ zßznam}
      end;
   end else
      ShowMessage('Databßzi "CENIK.DBF" nebylo mo₧nΘé otev°φt !');
   end;
end;
end.