Discussion :

[ricil78]

Bonjour,

J'ai du mal à comprend le fonctionnement des "Predicate"

En simplifiant voici ce que j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Class Employes
    Public ListEmploye As New List(Of Employe)
End Class
 
 
Public Class Employe
    Public ID As String = ""
    Public Nom As String = ""
    Public Prenom As String = ""
 
    Public Sub New(ByVal UnID, ByVal UnNom, ByVal UnPrenom)
        ID = UnID
        Nom = UnNom
        Prenom = UnPrenom
    End Sub
 
    Public Overrides Function ToString() As String
        Return Prenom & " " & Nom
    End Function
End Class

Avec la function Find dans la class Employes je voudrais retrouver l'employe "TOTO"

mais je comprend rien avec leur Predicate

merci

[bidou]

Un prédicat dans ce cas, c'est une fonction qui prends un argument de type T et qui retourne Vrai ou faux. Pour reprendre ton exemple je peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MaListe As New Employes
        MaListe.ListEmploye.Add(New Employe("1", "nom1", "prenom1"))
        MaListe.ListEmploye.Add(New Employe("2", "nom2", "prenom2"))
        MaListe.ListEmploye.Add(New Employe("2", "TOTO", "prenom3"))
        Dim ChercheEmploye As Employe
        ChercheEmploye = MaListe.ListEmploye.Find(AddressOf ParNom)
        If Not ChercheEmploye Is Nothing Then MsgBox(ChercheEmploye.ToString)
    End Sub
 
    Private Shared Function ParNom(ByVal LeNom As Employe) As Boolean
        If LeNom.Nom = "TOTO" Then Return True Else Return False
    End Function

dans ce cas, c'est la fonction ParNom qui est mon prédicat pour le find

[ricil78]

Génial ça marche, par contre est ce que l'on peut mettre à la place de "toto" mettre une variable. je l'indique comment ?
j'ai essayé de mettre une variable mais il ne veut pas que je passse une variable au moment de l'appel de la fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Shared Function ParNom(ByVal LeNom As Employe, ByVal  uneVariable as string) As Boolean
        'If LeNom.Nom = "TOTO" Then Return True Else Return False
         If LeNom.Nom = UneVariable Then Return True Else Return False
 
End Function

[ricil78]

j'ai rajouté une variable public ValeurChercher dans ma class Employés.

Je la renseigne avant d'utiliser le find

Du coup je retombe sur un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Shared Function ParNom(ByVal LeNom As Employe) As Boolean
   If LeNom.Nom = ValeurChercher Then Return True Else Return False
End Function

mais je ne trouve pas ça très propre, il y a surement un autre moyen

[bidou]

non, tu ne peux pas passer un argument supplémentaire dans la fonction du prédicat. Par contre si tu ne met pas la fonction comme Shared tu peux utiliser une variable globale, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Private NomCherche As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MaListe As New Employes
        MaListe.ListEmploye.Add(New Employe("1", "nom1", "prenom1"))
        MaListe.ListEmploye.Add(New Employe("2", "nom2", "prenom2"))
        MaListe.ListEmploye.Add(New Employe("2", "TOTO", "prenom3"))
        Dim ChercheEmploye As Employe
        NomCherche = "TOTO"
        ChercheEmploye = MaListe.ListEmploye.Find(AddressOf ParNom)
        If Not ChercheEmploye Is Nothing Then MsgBox(ChercheEmploye.ToString)
    End Sub
 
    Private Function ParNom(ByVal LeNom As Employe) As Boolean
        If LeNom.Nom = NomCherche Then Return True Else Return False
    End Function

[ricil78]

OK,

un gros merci pour toi bidou