C# / VB.NET - [VB.NET] Espressioni lambda

Forum - C# / VB.NET - [VB.NET] Espressioni lambda

Dedalux (Member)
Pro

Messaggi: 103
Iscritto: 15/12/2010

Postato alle 21:06
Lunedì, 27/06/2011

Questo topic è stato chiuso dal moderatore

Salve a tutti,
potreste aiutarmi a capire come mai questa espressione lambda se la scrivo così funziona

Codice sorgente - presumibilmente C# / VB.NET

Function(o As Object)
    Message = DirectCast(o, String)
End Function

mentre se la scrivo così no

Codice sorgente - presumibilmente C# / VB.NET

Function(o As Object) Message = DirectCast(o, String)

il codice si trova all'interno della classe Mediator che utilizzo per far dialogare due ViewModels

questa è la classe Mediator

Codice sorgente - presumibilmente VB.NET

Public NotInheritable Class Mediator
 
#Region " Costruttori "
 
        Shared Sub New()
        End Sub
 
        Private Sub New()
        End Sub
 
#End Region
 
        Shared ReadOnly mInstance As New Mediator
        Public Shared ReadOnly Property Instance() As Mediator
            Get
                Return mInstance
            End Get
        End Property
 
        Private internalList As New MultiDictionary(Of String, Action(Of Object))
 
        ''' <summary>
        ''' Registra un colleague per uno specifico messaggio
        ''' </summary>
        ''' <param name="callback">Il callback da usare quando il messaggio viene ricevuto</param>
        ''' <param name="message">Il messaggio per cui registrarsi</param>
        Public Sub Register(ByVal callback As Action(Of Object), ByVal message As String)
            internalList.AddValue(message, callback)
        End Sub
 
 
        ''' <summary>
        ''' Notifica a tutti i sottoscrittori che sono registrati al messaggio specifico
        ''' </summary>
        ''' <param name="message">Il messaggio per cui notificare</param>
        ''' <param name="args">I parametri del messaggio</param>
        Public Sub NotifyColleagues(ByVal message As String, ByVal args As Object)
            If internalList.ContainsKey(message) Then
                For Each callback As Action(Of Object) In internalList(message)
                    callback(args)
                Next
            End If
 
        End Sub
 
    End Class

ho un ViewModel che notifica in questo modo

Codice sorgente - presumibilmente VB.NET

Private _message As String
        Public Property Message As String
            Get
                Return _message
            End Get
            Set(ByVal value As String)
                _message = value
                NotifyPropertyChanged("Message")
                Mediator.Instance.NotifyColleagues("asd", _message)
            End Set
        End Property

e uno che riceve così

Codice sorgente - presumibilmente Delphi

Public Sub New()
            Mediator.Instance.Register(Function(o As Object)
                                           Message = DirectCast(o, String)
                                       End Function,
                                       "asd")
        End Sub
 
        Private _message As String
        Public Property Message() As String
            Get
                Return _message
            End Get
            Set(ByVal value As String)
                _message = value
                NotifyChanged("Message")
            End Set
        End Property

tra l'altro l'espressione funzionante me la segna con la sottolineatura in verde dicendo che non ritorna alcun valore in tutti i percorsi del codice....

:-|

grazie

Ultima modifica effettuata da Dedalux il 28/06/2011 alle 0:44

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 12:59
Martedì, 28/06/2011

Direi perché la prima viene tradotta con un delegate, mentre la seconda con un'espressione lambda pura, ossia Func<Object, Object>. Mi sembra strano che usando l'espressione funzionale non ti dia errore di cast perché, pur essendo molto simili come contenuto, non è possibile convertire un delegate in una lambda o viceversa (tuttavia è possibile impacchettare un delegate in una lambda e viceversa). Infatti la signature di Register richiede esplicitamente un delegate di tipo Action(Of T).

Per quanto riguarda il warning, ti viene fuori perché usi function senza ritornare un valore al posto di sub:

Codice sorgente - presumibilmente C# / VB.NET

Sub(o As Object)
    Message = DirectCast(o, String)
End Sub

Mh, già, ho fatto una ca*ata :|grazie Totem! - Dedalux - 28/06/11 14:58

HeDo (Founder Member)
Guru^2

Messaggi: 2765
Iscritto: 21/09/2007

-3

Postato alle 21:43
Lunedì, 27/06/2011

contestualizza con il resto del programma

edito il post principale perchè c'è bisogno di scrivere codice... (ma chi li ha inventati sti commenti?) - Dedalux - 27/06/11 21:50