在 VS 2005 中不使用 lambda

Question

我从一些精彩的遗留代码中摘录了以下内容：

Private Sub SomeMethod()
    Dim deductibles As List(Of Integer) = GetDeductibles()    
    deductibles.RemoveAll(AddressOf LessThanMinDed)
EndSub
Private Function LessThanMinDed(ByVal i As Integer) As Boolean
    Return i < MinimumDeductible()
End Function

如果你是语言势利小人，我们可以这样写：

private void SomeMethod() {
    List<int> deductibles = GetDeductibles();    
    deductibles.RemoveAll(LessThanMinDed);
}
private bool LessThanMinDed(int i) {
    return i < MinimumDeductible();
}

MinimumDeductible() 进行数据库调用。有没有办法编写这个而不写像x = MinimumDeductible() : RemoveAll(Function(i) i < x)（因为lambdas不在这个版本的VB.NET中）只会调用数据库一次？

已解决（某种）：

像这样解决：

Public Class Foo
    Private CachedMinimum As Integer
    Private Sub SomeMethod()
        Dim deductibles As List(Of Integer) = GetDeductibles()
        Me.CachedMinimum = MinimumDeductible()
        deductibles.RemoveAll(AddressOf LessThanMinDed)
    End Sub
    Private Function LessThanMinDed(ByVal i As Integer) As Boolean
        Return i < CachedMinimum
    End Function
End Class

Answer 1

答案真的取决于语言。在 C# 2 中，我们没有 lambda 表达式，但我们确实有匿名方法......所以你可以这样写：

List<int> deductibles = GetDeductibles();    
deductibles.RemoveAll(delegate(int i) { return i < MinimumDeductible(); });

据我所知，VS 2005 附带的 VB 版本中没有对应的版本。

Answer 2

在一天结束时，Lambdas 只是语法糖。它们总是被转换成命名函数，所以是的，这肯定是可能的（你总是可以使用以下模式的改编来删除任何 lambda）。只需使用您需要的方法和要关闭的值的字段创建一个新对象：

public class MyComparer
{
    private int value;
    public MyComparer(int value)
    {
        this.value = value;
    }
    public bool LessThanMinDed(int i)
    {
        return i < value;
    }
}

你现在可以写了：

var comparer = new MyComparer(MinimumDeductible())
deductibles.RemoveAll(comparer.LessThanMinDed);

Answer 3

“VS 2005”中没有 lambda 是什么意思（大概是 C# 2.0）？只是语法不同！

int min = MinimumDeductible();

deductibles.RemoveAll(delegate (int i) {
    return i < min;
});

Answer 4

1) 我会尝试在数据库上解决它。正如您所说，MinimumDeductible 来自数据库，我猜 GetDeductibles(..) 也可能来自同一个数据库，然后我会简单地创建一个类似的 SQL 视图

SELECT * FROM Deductibles ApplicationSettings 
WHERE Deductibles.Amount >= ApplicationSettings.MinimumDeductible;

并在应用程序中选择已过滤的视图。

2) 如果这不可能，我不会使用任何删除操作来解决问题。如果您在列表上使用删除，则必须首先找到该项目，这意味着如果您有 10,000 个项目，则必须平均比较 5000 行，直到找到该项目（因为列表不支持哈希码）。最好在一个循环中复制项目并将结果重新分配给前一个变量，如下所示：

    Private Sub SomeMethod()
        Dim deductibles As List(Of Integer) = GetDeductibles()
        Dim minimum As Int32 = MinimumDeductible()
        deductibles = GetFilteredDeductibles(deductibles, minimum)
    End Sub

    Private Shared Function GetFilteredDeductibles(rawDeductibles As List(Of Int32), minimumValue As Int32) As List(Of Int32)
        Dim result As New List(Of Int32)(rawDeductibles.Count)
        For Each myValue As Int32 In rawDeductibles
            If (myValue >= minimumValue) Then
                result.Add(myValue)
            End If
        Next
        result.TrimExcess()
        Return result
    End Function