Discussion :

[Gregory666]

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

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);

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

Merci pour votre solution

[tourlourou]

Il suffit de le retirer par une affectation de la seule partie de la chaîne à droite du #13 ; mais il doit y avoir pus élégant...

[Gregory666]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Tab: Array of String;
 
function ArrayList: String;
var
 I: Integer;
begin
  for I := 0 to High(TAB) do
   begin
     Result := Result + TAB[I] + #13;
   end;
end;

Résultat
---
---
---
---

C'est la seule solution que je voie , Sa marche impeccable.

Quand pensez vous ? Merci de votre commentaire

[Gregory666]

Code :

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

1
2
3
4
5
6
7
8
9
function ArrayList (TabArray: array of String): String;
var
 I: Integer;
begin
   for I := 0 to High(TabArray) do
    begin
      Result := Result + TabArray[I] + #13;
    end;
end;