XML Problem

[Pumba]

Hallo


Habe folgendes problem mit der speicherung eines XML files
Ich arbeite mit Delphi 2006, MSXML 4.0 und Win XP.
Nach dem Import eines csv File wird es in ein xml gepeichert


mit folgenden Code schreibe ich das xml

Delphi-Quellcode:

 xmlDoc := CoDOMDocument40.Create;
 //xmlDoc.setProperty('NewParser', True);

 if not FileExists(fAppPath +  Databasename) then
  begin
    xmlDoc.loadXML('<?xml version="1.0"?><Produktion/>');
  end else
      xmlDoc.load(fAppPath + Databasename);

   if xmlDoc.parseError.errorCode <> 0  then
     begin
       MessageDlg('Die XML Datei ist nicht korrekt!',mtError,[mbOK],0);
     end;

  NewProduktion := xmlDoc.createElement('Produktion');
  NewSub := xmlDoc.createElement('Datum');
  NewSub.text := ZDatum;
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Uhrzeit');
  NewSub.text := ZZeit;
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('PLZ');
  NewSub.text := '2320';
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('UserID');
  NewSub.text := 'uXXXXX';
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Eingang');
  NewSub.text := '008';
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Produktkennzeichen');
  NewSub.text := '?';
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Code1');
  NewSub.text := (exparr[4]);
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Code2');
  NewSub.text := (exparr[2]);
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('Gewicht');
  NewSub.text := (exparr[7]);
  NewProduktion.appendChild(NewSub);

  NewSub := xmlDoc.createElement('StatusID');
  NewSub.text := '?';
  NewProduktion.appendChild(NewSub);



  xmlDoc.documentElement.appendChild(NewProduktion);

  xmlDoc.save(fAppPath + Databasename);

und bekomme folgenden xml inhalt

<?xml version="1.0" ?>
- <Produktion>
- <Produktion>
<Datum>26.07.2007</Datum>
<Uhrzeit>15:45:01</Uhrzeit>
<PLZ>2320</PLZ>
<UserID>uXXXXX</UserID>
<Eingang>008</Eingang>
<Produktkennzeichen>?</Produktkennzeichen>
<Code1>AA00101367022830</Code1>
<Code2>000000203709371000000</Code2>
<StatusID>?</StatusID>
</Produktion>
- <Produktion>
<Datum>26.07.2007</Datum>
<Uhrzeit>15:45:01</Uhrzeit>
<PLZ>2320</PLZ>
<UserID>uXXXXX</UserID>
<Eingang>008</Eingang>
<Produktkennzeichen>?</Produktkennzeichen>
<Code1>AA00101367234560</Code1>
<Code2>000000203709371876540</Code2>
<StatusID>?</StatusID>
</Produktion>
</Produktion>


wie stelle ich es an das der xml inhalt so gespeichert wird


<?xml version="1.0" ?>
- <Produktion>
<Produktion Datum="20.07.2007" Uhrzeit="15:05:00" PLZ="2320" UserID="uXXXXX" Eingang="008" Produktkennzeichen="?" Code1="AA700471" Code2="0000108300875960" StatusID="?" />
<Produktion Datum="20.07.2007" Uhrzeit="15:05:14" PLZ="2320" UserID="uXXXXX" Eingang="008" Produktkennzeichen="?" Code1="AA005320" Code2="0000108300875977" StatusID="?" />
</Produktion>

ebenso sollte wenn z.b. Code1 keine Zeichen enthält dieser nicht im xml enthalten sein

vielen dank
lg
pumba