PureBasic

Code : Tout sélectionner

;Copie d'une ligne de structure vers une autre structure identique
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"

;Copie d'une ligne de structure
CopieMonpanier(3) = MonPanier(3)

;Teste
For i=0 To 4
  Debug CopieMonpanier(i)\Nom + "(" + CopieMonpanier(i)\Famille + ")"
Next