Lekce 3.11
Metody DataTable pro navigaci

DataTable.First; {skok na první záznam databáze}
DataTable.Next;  {skok na následující záznam databáze}
DataTable.Prior; {skok na předchozí záznam databáze}
DataTable.Last;  {skok na poslední záznam databáze}

DataTable.GoTop;    {skok na první záznam databáze}
DataTable.Skip(1);  {skok na následující záznam databáze}
DataTable.Skip(-1); {skok na předchozí záznam databáze}
DataTable.GoBottom; {skok na poslední záznam databáze}

Při procházení databáze v cyklu můžete použít metody DataTable.Bof (indikuje začátek databáze) a DataTable.Eof (indikuje konec databáze). Pokud budete procházet celou databází, můžete dočasně vypnout zobrazování dat komponentou DataGrid. Pro vypnutí zobrazení použijte metodu DataTable.DisableControls, zobrazení se po ukončení cyklu znovu aktivuje metodou DataTable.EnableControls:

Jazyk KLONDAIK:
procedure TForm.Button1Click(Sender: TObject);
Var rec: integer;
begin
   rec := dataTable1.Recno;     {uložíme číslo záznamu}
   ConsoleClear;                {vymažeme textový výstup}
   DataTable1.DisableControls;  {zakážeme zobrazování}
   DataTable1.First;            {skok na první záznam}
   While not DataTable1.Eof do  {do konce souboru}
   begin
      Writeln(DataTable1.ReadStr('NAZEV'));
      DataTable1.Next;          {skok na další záznam}
   end;
   DataTable1.Go(rec);          {vrátíme se na původní záznam}
   DataTable1.EnableControls;   {povolíme zobrazování}
end;

Jazyk BONANZA:
Sub Button1Click(Sender)
    rec = dataTable1.Recno       'uložíme číslo záznamu
    ConsoleClear                 'vymažeme textový výstup
    DataTable1.DisableControls   'zakážeme zobrazování
    DataTable1.First             'skok na první záznam
    Do While not DataTable1.Eof  'do konce souboru
       Writeln(DataTable1.ReadStr("NAZEV"))
       DataTable1.Next           'skok na další záznam
    Loop
    DataTable1.Go(rec)           'vrátíme se na původní záznam
    DataTable1.EnableControls    'povolíme zobrazování
End Sub

Jazyk JUKON:
function Button1Click(Sender)
{
   rec = dataTable1.Recno;      //uložíme číslo záznamu
   ConsoleClear;                //vymažeme textový výstup
   DataTable1.DisableControls;  //zakážeme zobrazování
   DataTable1.First;            //skok na první záznam
   while (!DataTable1.Eof)      //do konce souboru
   {
      Writeln(DataTable1.ReadStr('NAZEV'));
      DataTable1.Next;          //skok na další záznam
   }
   DataTable1.Go(rec);          //vrátíme se na původní záznam
   DataTable1.EnableControls;   //povolíme zobrazování
}