なぜこの関数はこの代理人と非互換署名を持っていますか？

Question

コンパイラは、これらのシグネチャは互換性がないと言っていますが、私にとってはうまく見えます。何か不足していますか？ [VS 2008]

Public MustOverride Function OverridePickUpLocationFromDeliveryAddress(ByVal objDeliveryAddress As DeliveryLocationWS.DeliveryAddress, _ 
                     ByRef lstProcessingMessages As List(Of String), _ 
                     ByVal objProcessorHelperLists As ProcessorHelperLists) As Integer 

Public Sub New()  
    Dim fncTest As Func(Of DeliveryLocationWS.DeliveryAddress, List(Of String), ProcessorHelperLists, Integer) = AddressOf OverridePickUpLocationFromDeliveryAddress 
End Sub 

Answer 1

はあなたの関数はFunc(Of T1, T2, T3, T4)あなたがそれを割り当てるしようとしているに受け入れられている、参照（lstProcessingMessages）でのparamaterをとります。

私が知る限り、Func代理人は "by ref"を型引数としてサポートしていません。

static void Main() 
{ 
    Func<int, int> myDoItFunc1 = DoIt; // Doesn't work because of ref param 
    Func<int, int> myDoItFunc2 = DoItFunc; // Does work 
} 

public static int DoItFunc(int i) 
{ 
    return DoIt(ref i); 
} 

public static int DoIt(ref int i) 
{ 
    return 0; 
} 

しかし、どうしてあなたはlstProcessingMessagesを引用していますか？これは参照型です。あなたはリストの参照を完全に置き換えることを期待しているのですか、代わりにクリアして代入することができますか？

static void Main() 
{ 
    var myList = new List<int>(); 

    AddToMyList(myList); 

    // myList now contains 3 integers. 

    ReplaceList(myList); 

    // myList STILL contains 3 integers. 

    ReplaceList(ref myList); 

    // myList is now an entirely new list. 
} 

public static void AddToMyList(List<int> myList) 
{ 
    myList.Add(1); // Works because you're calling "add" 
    myList.Add(2); // on the *same instance* of my list 
    myList.Add(3); // (object is a reference type, and List extends object) 
} 

public static void ReplaceList(List<int> myList) 
{ 
    myList = new List<int>(); 
} 

public static void ReplaceList(ref List<int> myList) 
{ 
    myList = new List<int>(); 
} 

Answer 2

FuncパラメータはByValとして宣言されているように、動作しません。ただし、独自のデリゲートタイプを宣言することもできます。

Delegate Function PickUpLocationDelegate(ByVal objDeliveryAddress As DeliveryLocationWS.DeliveryAddress, _ 
    ByRef lstProcessingMessages As List(Of String), _ 
    ByVal objProcessorHelperLists As ProcessorHelperLists) As Integer 

Public Sub New() 
    Dim fncTest As PickUpLocationDelegate = AddressOf OverridePickUpLocationFromDeliveryAddress 
End Sub