Lekce 1.25
Navigace v databßzi

Ka₧d² zßznam v databßzi je oΦφslovßn dle po°adφ zßpisu do databßze. Prvnφ zßznam mß proto po°adovΘ Φφslo jedna, poslednφ zapsan² zßznam mß po°adovΘ Φφslo shodnΘ s celkov²m poΦtem zßznam∙ v databßzi. ╚φslo aktußlnφho zßznamu vΦetn∞ celkovΘho poΦtu zßznam∙ v databßzi je uveden ve spodnφ Φßsti databßzovΘho okna v jeho stavovΘm °ßdku. Celkov² poΦet zßznam∙ databßze vracφ funkce DbfReccount, Φφslo aktußlnφho zßznamu vracφ funkce DbfRecNo. Pokud byste cht∞li vypsat uveden² zßpis z programu, m∙₧ete pou₧φt nßsledujφcφho zßpisu:

Writeln(IntToStr(DbfRecNo)+ '/'+IntToStr(DbfReccount));

Pokud byste se pokouÜeli p°ejφt volßnφm procedury DbfSkip p°ed prvnφ zßznam bude nastaven ukazatel databßze na prvnφ zßznam databßze. SouΦasn∞ vÜak bude nastaven p°φznak zaΦßtku databßze, kter² je p°φstupn² volßnφm funkce DbfBof. Obdobn∞, pokud byste se pokouÜeli provΘst skok v databßzi za jeho konec, bude nastaven p°φznak konce databßze, kter² je p°φstupn² volßnφm funkce DbfEof. Vyu₧itφm v²Üe uveden²ch funkcφ m∙₧ete realizovat prochßzenφ databßze od jejφho poΦßtku na konec (nebo obrßcen∞):

Unit Dbf_1;
interface
implementation

begin
   ConsoleClear;
   ConsoleShow;
   If DbfUse('CENIK') then       {pokud se otev°ela databßze}
   begin
      DbfGoTop;                  {skok na zaΦßtek databßze}
      Writeln('ZaΦßtek databßze');
      While not DbfEof do        {dokud nenφ konec databßze}
      begin
         Write(IntToStr(DbfRecNo)+'/'+IntToStr(DbfReccount)+' ');
         Writeln(DbfReadStr('NAZEV'));
         {... dalÜφ akce se zßznamem}
         DbfSkip(1);             {skok na dalÜφ zßznam}
      end;
      Writeln('Konec databßze');
      DbfUse('');                {databßzi uzav°eme}
   end else
      ShowMessage('Databßzi nebylo mo₧nΘ otev°φt !');
   end;
end;
end.