嵌套函數沒有與委託相同的簽名

Question

我試圖在VB中實現類似咖喱的效果。我希望能夠做到這一點：

Dim wrap = WrapNumber("-") 
wrap(5) 'returns "-5-" 

這裏是我的功能：

Private Function WrapNumber(ByVal separator As String) As Func(Of Integer, String) 

    Return Function(ByRef number As Integer) As String 
       Return separator + number + separator 
      End Function 

End Function 

我得到這個消息Return行錯誤：

嵌套函數不具有代表簽名Func(Of Integer, String)

我'米不知道爲什麼我得到這個錯誤。函數WrapNumber返回一個函數，該函數採用Integer並返回String，因此從我所看到的它具有與WrapNumber簽名中給出的Func相同的類型。

Answer 1

如果你打開Option Strict On，它會告訴你很多錯誤。除了註釋中所述的ByRef不需要之外，連接還試圖將分隔符視爲雙精度型。如果你做出這些改變，那麼它工作正常：

Dim wrap = WrapNumber("-") 
Dim test As String = wrap(5) 
'test is equal to "-5-" 

Private Function WrapNumber(ByVal separator As String) As Func(Of Integer, String) 
    Return Function(number As Integer) As String 
       Return separator & number.ToString & separator 
      End Function 
End Function