Question

看，我有一些方法，我尝试检查值是否已更改，如果更改则写入，但是，我需要记住这些值已更改，这是一个问题，我无法设置更改标志因为我不知道如何骗取参考项目，我不能在那里使用mutable。

member X.qArchive() = 
    //let mutable rememberer = [for d in db.AlarmDictionaries -> d.ID, false].ToArray() 

    let rememberer = ref ( [for d in db.AlarmDictionaries -> d.ID, false].ToArray() )

    seq {for a in db.ArchiveDescretes do 
            let i = ref 0
            for r in !rememberer do 
                if a.ID = fst r && snd r = false then
                    rememberer.[(!i)] := fst r, true // Error
                    //rememberer.[(!i)] <- fst r, true // Error
                    for c in db.AlarmDictionaries do
                    if (c.ID = a.ID) then
                        yield a.Date, c.Message, a.Value
                i := !i + 1 } |> Array.ofSeq

如果你知道如何以更好的方式实现这个想法，我也会感谢你。

这是我邪恶的变种：

    member X.qArchive() = 
    seq {   let metarememberer = ref ( [for d in db.AlarmDictionaries -> d.ID, false].ToArray() )
            let rememberer = ref ( [for d in db.AlarmDictionaries -> d.ID, false].ToArray() )
            for a in db.ArchiveDescretes do 
                let i = ref 0
                for r in !metarememberer do 
                    if a.ID = fst r && snd r = false then
                        (!metarememberer).[!i] <- fst r, true
                        for c in db.AlarmDictionaries do
                            if c.ID = a.ID && c.Value = a.Value then
                                let j = ref 0
                                for rm in !rememberer do 
                                    if a.ID = fst rm then
                                        (!rememberer).[!j] <- fst rm, a.Value
                                    j := !j + 1
                                yield a.Date, c.Message
                    else
                        let j = ref 0
                        for rm in !rememberer do
                            if a.ID = fst rm && a.Value <> snd rm then
                                (!rememberer).[!j] <- fst rm, a.Value
                                for c in db.AlarmDictionaries do
                                    if c.ID = a.ID && c.Value = a.Value then
                                        yield a.Date, c.Message
                            j := !j + 1
                    i := !i + 1 
        } |> Array.ofSeq

更新：毕竟我的变体不起作用。这里出了点问题......我可以看到同样的事件2次，我只需要在值改变时看到它，这意味着我无法看到同样的事件2次。

Answer 1

这个怎么样？

(!rememberer).[!i] <- fst r, true

在闭包中更改引用数组的项值

1 个答案: