Discussion :

[lyl_83]

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

[Paul TOTH]

je dirais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
function getNode(const Index: string): string;
var
  node: TXMLNode; // ou autre je ne sais pas ce que c'est
begin
  node := NoeudXML.Items.ItemNamed['Adresse'].Items.ItemNamed['ligne' + Index];
  if node <> nil then
    Result := node.Value
  else
    Result := '';
end;
begin
  DonneesPatient.ligne1 := GetNode('1');
  DonneesPatient.ligne2 := GetNode('2');
  DonneesPatient.ligne3 := GetNode('3');
end;