Bonjour,

Je travaille actuellement sur un fichier xml et j'aimerai savoir s'il y a une manière de simplifier ce code afin qu'il soit moins lourd ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   if NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne1'] <> nil then
        DonneesPatient.ligne1 := NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne1'].Value
     else
        DonneesPatient.ligne1 := '';
 
      if NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne2'] <> nil then
        DonneesPatient.ligne2 := NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne2'].Value
      else
        DonneesPatient.ligne2 := '';
 
      if NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne3'] <> nil then
      DonneesPatient.ligne3 := NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne3'].Value
      else
        DonneesPatient.ligne3 := '';
Merci d'avance