Como obter o número do registro atual em um TClientDataSet

*Fonte Arquivo de Código

Em algumas situações gostaríamos de obter o número do registro atual enquanto navegamos pelos registros de um TClientDataSet. Isso pode ser feito por meio da propriedade RecNo (implementada na classe TDataSet e reimplementada na classe TClientDataSet). O retorno da propriedade é sempre um valor inteiro representando o registro atual. Na implementação da classe TClientDataSet, esta propriedade retorna o valor -1 se o componente estiver no estado (State) dsInsert (um novo registro estiver sendo inserido).

Veja um trecho de código no qual usamos o evento OnClick de um botão para exibir o número do registro atual em um TClientDataSet: 

procedure TForm3.Button3Click(Sender: TObject);

var

  nRegistro: Integer;

begin

  // obtém o número do registro atual no TClientDataSet

  nRegistro := ClientDataSet1.RecNo;

  // mostra o resultado

  ShowMessage('O número do registro atual é: ' + IntToStr(nRegistro));

end;

Ao executar o código e clicar no botão você verá uma mensagem parecida com:

"O número do registro atual é: 5".

Esta dica foi escrita e testada no Delphi 2009.