Bonjour,
dans une application, j'utilise le composant TClientDataSet pour gérer un fichier xml.
Voici le code qui permet de récupérer les donnée des différents TEdit et de les enregistrer dans un fichier xml sur le clic du bouton:
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
18 with formMain.ClientDataSetProject do begin Append; FieldByName('id_projet').AsString := 'date du jour'; FieldByName('nom_projet').AsString := editProjectName.Text; FieldByName('description_projet').AsString := editProjectDescription.Text; FieldByName('designation_piece').AsString := editPartDesignation.Text; FieldByName('nombre_piece').AsInteger := StrToInt(editPartNumber.Text); FieldByName('nom_modele').AsString := cboxModelName.Text; FieldByName('nom_utilisateur').AsString := editUserName.Text; FieldByName('prenom_utilisateur').AsString := editUserFirstName.Text; FieldByName('date_creation_projet').AsString := date_creation_projet; Post; SaveToFile(chemin_projet+ fichier_projet+ '.xml', dfXML); end; formProjectCreate.Close; end
Ceci fonctionne correctement mais lorsque je effectue une seconde fois l'opération, le 2ème fichier contient non seulement les information du premier clic et celles du deuxième clic.
Comment faire pour éviter de cumuler les lignes dans mon fichier Xml?
Merci d'avance.
Raoudi57
Partager