Fórum Problemas com o EOF de uma Tabela #271906

while not MemData.EOF do 
    if MemDataINCLUIRCOMPRA.AsBoolean then
    begin 

      NomeFornecedor := MemDataFornecedor.AsString; 

      ListAddRoot(Lista, NomeFornecedor); 

      SPCompra.ParamByName(´INCREMENTO´).AsInteger := 1; 
      SPCompra.ExecProc; 
      TbCompra.Append; 
      TbCompraCOMPRA.AsString := StrZero(SPCompra.ParamByName(´VALOR´).AsString, 6); 
      TbCompraFORNECEDOR.AsString := MemDataCODFORNECEDOR.AsString; 
      TbCompraDATAPEDIDO.AsDateTime := Date; 
      TbCompra.Post; 

      CodCompra := StrZero(SPCompra.ParamByName(´VALOR´).AsString, 6); 

      MemData.Edit; 
      MemDataCODPEDIDO.AsString := CodCompra; 
      MemData.Post; 

      // aqui você também pode utilizar o EOF
      while (NomeFornecedor = MemDataFORNECEDOR.AsString) and
          not MemData.EOF do
      begin 
        TbItensCompra.Append; 
        TbItensCompraCOMPRA.AsString := CodCompra; 
        TbItensCompraPRODUTO.AsString := MemDataPRODUTO.AsString; 
        TbItensCompraCOR.AsString := MemDataCOR.AsString; 
        TbItensCompraQUANTIDADE.AsString := MemDataQNTAPEDIR.AsString; 
        TbItensCompraCUSTO.AsString := MemDataULTCUSTO.AsString; 
        TbItensCompraCODIGOBARRAS.AsString := MemDataCODIGOBARRAS.AsString; 
        TbItensCompraCODIGOFORNECEDOR.AsString := MemDataCODFORNECEDOR.AsString; 
        TbItensCompra.Post; 
        TbItensCompra.ApplyUpdates; 

        ListAddChild(Lista, CodCompra); 

        Valor := Valor + (MemDataQNTAPEDIR.AsInteger * MemDataULTCUSTO.AsCurrency); 
        MemData.Next; 
      end; 

      TbCompra.Edit; 
      TbCompraSUBTOTAL.AsCurrency := Valor; 
      TbCompraDESCONTO.AsInteger := 0; 
      TbCompraTOTAL.AsCurrency := Valor; 
      TbCompra.Post; 
    end
    else // é necessário esse else, senão o next será efetuado desnecessariamente
      MemData.Next;