, j'ai quelque soucis avec un TStrings.
A l'aide d'une boucle j'ajoute mes données (string + objet). L'objet est aussi un string. Cela semblent fonctionner à la création du TString.

Mais j'ai des problème à la restitution de mes objets !

Le code d'insertion
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
      with FListeTables do
      begin
        AFile := (DossFileBDD + UnParam + XML_extension);
        AddObject(UnParam, TObject(AFile));
//        AddObject(UnParam, pointer(AFile))  ==> même résultats
      end;
Le code de restitution
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
      for x := 0 to NbrParams - 1 do
      begin
        AFile := (string(FListeTables.Objects[x]));
        ShowMessage(AFile);
        ListeParams.Add(AFile);
      end;
      ShowMessage(ListeParams.Text);
Certaines données me sont bien restituées, d'autres en faisant le pas à pas, en pointant sur la variable AFile, il y a un tas de données dans la variable et j'ai un plantage.
D'autres la valeur "Test" du TStrings est correcte.

D'avance merci !
microJaP