Italian Libreria LINQ

Type RecordMio (Nome as string, Eta as int)
Dim ListaMia as list

' Altrove '
Dim R as Record
R.Nome = ....
R.Eta = ...
ListaMia.add(R)
... popolo la lista ...

' Poi voglio cercare un elemento con chiave (Eta = 22)'
Dim Trovo as Record = ListaMia.FindRecord("Eta", 22)
if Trovo.IsInitialized then
  ' Faccio cose '
end if

Sub Process_Globals
    Type RecordMio (Nome As String, Eta As Int)
End Sub

Sub Button1_Click
    Dim Trovo As RecordMio
    Dim ListaMia As List
    ListaMia.Initialize
  
    ListaMia.Add(CreateRecordMio("Mario",22))
    ListaMia.Add(CreateRecordMio("Luca",65))
  
    ' Se vuoi ordinare la lista: ListaMia.Sort(True)
  
    For Each item As RecordMio In ListaMia
        If item.Eta=22 Then Trovo = item
    Next
    If Trovo.IsInitialized Then Log("Trovato")
End Sub

' Questa viene creata in autmatico.
' Passa il mouse su Typer record mio e ti appare genera metodo
Public Sub CreateRecordMio (Nome As String, Eta As Int) As RecordMio
    Dim t1 As RecordMio
    t1.Initialize
    t1.Nome = Nome
    t1.Eta = Eta
    Return t1
End Sub

Dim R as Record

Dim R as RecordMio

Sub Esempio1_Click
    Dim Trovo As RecordMio
    Dim Mappa As Map
   
   
    Mappa.Initialize
 
    Mappa.put("Mario",CreateRecordMio("Mario",22))
    Mappa.put("Luca",CreateRecordMio("Luca",65))
 
   ' ci deve essere un campo chiave
   Trovo=Mappa.Get("Mario")
 
    If Trovo.IsInitialized Then Log("Trovato")
End Sub

Sub Esempio2_Click
    ' Anche Trovo è una Mappa
    Dim Trovo As Map
    Dim Mappa As Map
   
   
    Mappa.Initialize
 
    Mappa.put("Mario",CreateMap("nome":"Mario","età":22))
    Mappa.put("Luca",CreateMap("nome":"Luca","età":65))
 
   ' ci deve essere un campo chiave
   Trovo=Mappa.Get("Mario")
 
    If Trovo.IsInitialized Then
           Log(Trovo.get("nome"))
        Log(Trovo.get("età"))
    End If
End Sub