Italian Aggiungere un oggetto a list , ma non funziona

[Luciano Veneziano]

Buongiorno a tutti
Vorrei, usando una list invece che un array aggiungere delle strutture.
In C questo funziona.
in B4A sembra che io non abbia capito il meccanismo perchè mi aggiunge per tutti gli elementi
i valori dell'ultimo elemento.
Dove sbaglio?

    ItemsList.Initialize  ' tipo List
 
    tEdit.Initialize
    tEdit.index = 1
    tEdit.caption = "Tempo erogazione spurgo"
    tEdit.value = 250
    tEdit.mn = 200
    tEdit.mx = 300

     
'    tEdit.Initialize
    tEdit.index = 2
    tEdit.caption =  "Tempo max inattività"
    tEdit.value = 100
    tEdit.mn = 60
    tEdit.mx = 120
    ItemsList.add(tEdit)

mi aggiunge 2 volte :
tEdit.index = 2
tEdit.caption = "Tempo max inattività"
tEdit.value = 100
tEdit.mn = 60
tEdit.mx = 120

 

[Star-Dust]

    ItemsList.Initialize  ' tipo List

    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 1
    tEdit.caption = "Tempo erogazione spurgo"
    tEdit.value = 250
    tEdit.mn = 200
    tEdit.mx = 300
    ItemsList.add(tEdit)

   ' secondo
    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 2
    tEdit.caption =  "Tempo max inattività"
    tEdit.value = 100
    tEdit.mn = 60
    tEdit.mx = 120
    ItemsList.add(tEdit)

 

[Luciano Veneziano]

    ItemsList.Initialize  ' tipo List

    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 1
    tEdit.caption = "Tempo erogazione spurgo"
    tEdit.value = 250
    tEdit.mn = 200
    tEdit.mx = 300

    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 2
    tEdit.caption =  "Tempo max inattività"
    tEdit.value = 100
    tEdit.mn = 60
    tEdit.mx = 120
    ItemsList.add(tEdit)

Grazie, se non ci fossi tu! Hai un caffè pagato al Duomo.

 

[udg]

ItemsList.add(tEdit)
va anche alla riga 10 (di SD) altrimenti il primo Tedit non viene aggiunto alla lista

 

[Luciano Veneziano]

    ItemsList.Initialize  ' tipo List

    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 1
    tEdit.caption = "Tempo erogazione spurgo"
    tEdit.value = 250
    tEdit.mn = 200
    tEdit.mx = 300

    Dim tEdit as TipoTuo
    tEdit.Initialize
    tEdit.index = 2
    tEdit.caption =  "Tempo max inattività"
    tEdit.value = 100
    tEdit.mn = 60
    tEdit.mx = 120
    ItemsList.add(tEdit)

Grazie, se non ci fossi tu! Hai un caffè pagato al Duomo

 

[Star-Dust]

ItemsList.add(tEdit)
va anche alla riga 10 (di SD) altrimenti il primo Tedit non viene aggiunto alla lista

Giusto, corretto

 

[Star-Dust]

Grazie, se non ci fossi tu! Hai un caffè pagato al Duomo

Visto che è quasi estate anche una vaschetta da Fior di di Latte

 

[Luciano Veneziano]

Pure due!

 

[Luciano Veneziano]

Che te frega, passa che ci facciamo saltare tutti i numeri.