Не удается использовать свойство анонимного типа "<propertyname>" в определении лямбда-выражения в рамках одного списка инициализацииAnonymous type property '<propertyname>' cannot be used in the definition of a lambda expression within the same initialization list
Свойства, определенные в списке инициализации анонимного типа, не могут быть частью определения лямбда-выражения в том же списке.Properties defined in the initialization list of an anonymous type cannot be part of a lambda expression definition in the same list. Например, в приведенном ниже коде свойство Num
нельзя включать в определение лямбда-выражения LambdaFun
.For example, in the following code, property Num
cannot be included in the definition of LambdaFun
.
' Not valid.
'Dim anon = New With {.Num = 4, .LambdaFun = Function() .Num > 0}
Идентификатор ошибки: BC36549Error ID: BC36549
Исправление ошибкиTo correct this error
Попробуйте разделить анонимный тип на две части.Consider splitting the anonymous type into two parts:
Dim anon1 = New With {.Num = 4} Dim anon2 = New With {.LambdaFun = Function() anon1.Num > 0} ' - or - Dim anon3 = New With {.lambdaFun = Function(n As Integer) n > 0} Console.WriteLine((anon2.LambdaFun)()) Console.WriteLine(anon3.lambdaFun(anon1.Num)) anon1.Num = -5 Console.WriteLine((anon2.LambdaFun)()) Console.WriteLine(anon3.lambdaFun(anon1.Num))
Обратите внимание, что если объявить
anon1.Num
как свойствоKey
, то его значение изменить нельзя.Note that if you declareanon1.Num
as aKey
property, its value cannot be changed.Альтернативой является использование обычного оператора функции для обращения к свойству анонимного типа.An alternative is to use a regular function statement to access the anonymous type property:
Function testNum(ByVal n As Integer) As Boolean Return n > 0 End Function Console.WriteLine(testNum(anon1.Num))
Аналогичным образом можно использовать лямбда-функцию, определенную вне анонимного типа.Similarly, you can use a lambda function that is defined outside the anonymous type:
Dim lambdaFun1 = Function() anon1.Num > 0 Dim lambdaFun2 = Function(n As Integer) n > 0