Fórum IsEmpty funciona com ClientDataSet? Ou só com SQLDataSet? #354738

  begin
    Application.ProcessMessages;
    Readln(farq, linha); //Lê a linha e posiciona o cursor na próxima
    Caption := ´Lendo Linha: ´ + IntToStr(i) + ´ de: ´ + IntToStr(pb.Max);

    //Buscando pelo Parâmetro codigo, para verificar se já existe na tabela
    dm.cdsMaterial.Params.ParamByName(´COD_ORDENADO´).asString := Trim(Copy(Linha, 1, 6));
    dm.cdsMaterial.Open;  //Abre o CDS

    if dm.cdsMaterial.IsEmpty then   //Se Não existir o registro
     begin
      dm.cdsMaterial.Append; //Insira os dados da linha atual
     end

    else //Senão, se o registro já existir
      dm.cdsMaterial.Edit; //Coloca em modo de edição para atualizar os campos

    //Aqui os campos recebem as linhas lidas
    dm.cdsMaterialCOD_ORDENADO.AsString := Trim(Copy(Linha, 1, 6));
    dm.cdsMaterialDESCRICAO.Value := Trim(Copy(Linha, 8, 30));
    dm.cdsMaterialUN.Value := Trim(Copy(Linha, 39, 30));
    dm.cdsMaterialPRECO_UNITARIO.AsString := Trim(Copy(Linha, 70, 30));
    dm.cdsMaterial.Post; //Salve o registro em memória
    //dm.cdsMaterial.ApplyUpdates(0);  //Aplica as atualizações em memória no banco //Já está no DM.cdsMaterialAfterPost
    dm.cdsMaterial.Close;  //Fecha o CDS
    Inc(i);
    pb.Position := pb.Position + 1;
    Next;