Como usar a propriedade Eof para verificar se estamos no último registro do TClientDataSet

*Fonte Arquivo de Códigos

Em algumas situações gostaríamos de verificar se já estamos no último registro do TClientDataSet, ou seja, estamos percorrendo todos os registros do dataset e queremos saber se já estamos no último. Para isso podemos usar a propriedade Eof da classe TClientDataSet. Esta propriedade retorna true se estivermos no último registro e false em caso contrário.

Veja um trecho de código no qual usamos um laço while para percorrer todos os registros de um TClientDataSet. Note o uso da propriedade Eof para finalizar as iterações do laço:

procedure TForm3.Button4Click(Sender: TObject);

begin

  // vamos percorrer todos os registros do TClientDataSet

  ClientDataSet1.First; // vamos para o primeiro registro

  // e agora disparamos um laço While

  while not ClientDataSet1.Eof do

    begin

      // vamos mostrar em um TMemo os valores do

      // campo id de cada registro

      Memo1.Lines.Add(ClientDataSet1.FieldByName('id').AsString);

      // vamos mover para o próximo registro

      ClientDataSet1.Next;

    end;

end;

A propriedade Eof é verdadeira quando:

a) Abrimos um dataset vazio. 

b) Efetuamos uma chamada ao método Last do dataset.

c) Chamamos o método Next do dataset e a chamada falha porque o registro atual já é o último registro no dataset.

d) Efetuamos uma chamada ao método SetRange em uma faixa de dados ou dataset vazio.