Bonjour a tous ,
Il y a t'il une autre solution que la mien ? pour enregistrer le contenue d'un tableau dynamique dans un XML Type ftMemo
le #13 pour un saut de ligne pour insert l'enregistrement suivant, Mais le problème c'est que je me retrouve avec un saut de ligne sur le premier enregistrement
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
19
20
21 Tab: Array of String; procedure...... var I: Integer; XML ..... begin XML := TClientDataSet.Create(nil); XML.FileName := c:\..............; XML.Active := True; with XML do begin Insert; for I := Low(Tab) to high(Tab) do begin FieldByName('CHMEMO').Value := FieldByName('CHMEMO').Value + #13 + Tab[I]; end; Post; end; XML.Active := False; FreeAndNil(XML);
Merci pour votre solution
Partager