PureBasic

Code : Tout sélectionner

;Copie le contenu d'une 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 de structure à structure identique
CopyArray(MonPanier(), CopieMonPanier())

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