, 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
Le code de restitution
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;
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.
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);
D'autres la valeur "Test" du TStrings est correcte.
D'avance merci !
microJaP
Partager