Laço de repetição para ler tabela por completo

TbClientesParadox.First; { Para posicionar no primeiro registro }
while TbClientesParadox.Eof do
begin
  QueryClientesFire.Append;
  QueryClientesFire.Fieldbyname('C_CODCLI').AsInteger := TbClientesParadoxC_CODCLI.AsInteger;
  QueryClientesFire.FieldByName('C_NOME_RAZAO').AsString := TbClientesParadoxC_NOMECLI.AsString;
  QueryClientesFire.FieldByName('C_TIPOPESSOA').AsString := 'F';
  QueryClientesFire.Fieldbyname('C_CODEMP').AsInteger := 1;
  QueryClientesFire.FieldByName('C_CODGRCLI').AsInteger := TbClientesParadoxC_TIPOCLI.AsInteger;
  QueryClientesFire.Post;

  TbClientesParadox.Next; { Para ler o próximo registro }
end;


O seu componente "QueryClientesFire" deve ser do tipo TClientDataSet, para após fazer
QueryClientesFire.ApplyUpdates( 0 );


Espero ter ajudado.

Nosso amigo deixou escapar, no lugar de "while TbClientesParadox.Eof do" faça "while not TbClientesParadox.Eof do" aí estará testando se não é o fim da tabela.   http://garotodesktop.blogspot.com

Bem lembrado, esqueci porque copiei do código do post anterior. Desculpem pelo erro.

Amigos estou com pipino....tentei pegar este post de voces ai e tentei montar na minha imprenssão
mas nao deu

esta assim minha estrutura:
IBNFS_INNER1.Close;
IBNFS_INNER1.SQL.Clear;
IBNFS_INNER1.SQL.Add(select distinct produto.cod_produto,produto.descricao, produto.valor_tabela_1,);
IBNFS_INNER1.SQL.Add(nf_saida_itens.cod_produto, nf_saida_itens.nota_fiscal FROM produto );
IBNFS_INNER1.SQL.Add(LEFT JOIN nf_saida_itens ON produto.cod_produto = nf_saida_itens.cod_produto);
IBNFS_INNER1.SQL.Add(GROUP BY PRODUTO.cod_produto,PRODUTO.descricao,);
IBNFS_INNER1.SQL.Add(PRODUTO.valor_tabela_1,nf_saida_itens.nota_fiscal,nf_saida_itens.cod_produto);
IBNFS_INNER1.Prepare;
IBNFS_INNER1.Open;
//// {
IBNFS_INNER1.First;
while not IBNFS_INNER1.Eof do
begin
RLLabel55.Caption := IBNFS_INNER1.FieldValues[COD_PRODUTO];
IBNFS_INNER1.Next;
End;