PureBasic

Code : Tout sélectionner

;Clear d'un élement de structure
Structure Potager
    Nom.s
    Famille.s
EndStructure

Dim MonPanier.Potager(4)
Dim CopieMonPanier.Potager(4)

MonPanier(0)\Nom="Pomme"
MonPanier(0)\Famille="Fruit"
MonPanier(1)\Nom="Concombre"
MonPanier(1)\Famille="Legume"
MonPanier(2)\Nom="Peche"
MonPanier(2)\Famille="Fruit"
MonPanier(3)\Nom="Tomate"
MonPanier(3)\Famille="Legume"
MonPanier(4)\Nom="Abricot"
MonPanier(4)\Famille="Fuit"

;Clear de la ligne de structure (exemple pour le 4 eme index)
ClearStructure(MonPanier(3), Potager)

;Teste
For i=0 To 4
  Debug Monpanier(i)\Nom 
Next