Comment utiliser un array of Tstrings

Bonjour,

j'ai un problème pour utiliser un tableau de Tstrings.

Je déclare le Tableau comme cela :

Code:

---

Reponses: array of TStrings;

---

Je fixe dynamiquement la taille du tableau :

Code:

---

SetLength(Reponses, (CurrentQuizzNbQuestions - 1));

---

Ensuite j'affecte un TStrings au premier element de mon tableau :

Code:

---

1 2 3 4 5

// Ce code est dans une boucle for, I vaut 1 au demarrage // TempReponses est bien un TStrings correctement instancié et rempli   Reponses[I-1] := TStrings(TempReponses);

---

et là ca crash : EAccessViolation et Cie...

J'ai aussi essayé ca sans grande conviction :

Code:

---

1 2 3 4 5

// Ce code est dans une boucle for, I vaut 1 au demarrage // TempReponses est bien un TStrings correctement instancié et rempli Reponses[I-1] := TStringList.Create; Reponses[I-1] := TStrings(TempReponses);

---

Est-ce qu'un delphien pourrait expliquer comment manipuler un tableau de Tstrings à un noob comme moi ? ;)

Merci à vous,


Fred

Qu'est-ce que ce code affiche comme message si tu l'insères juste avant le bout qui soulève l'exception ?

Code:

---

1 2 3 4

Showmessage(IntToStr(High(Reponses)) + #13 + IntToStr(I) + #13 + BoolToStr(Assigned(TempReponses)) + #13 + BoolToStr(TempReponses is TStrings));

---

Citation:

---

Envoyé par fred64

Je fixe dynamiquement la taille du tableau :

Code:

---

SetLength(Reponses, (CurrentQuizzNbQuestions - 1));

---

---

Que contient CurrentQuizzNbQuestions ? Pourquoi le - 1 ? Attention! SetLength attend la longueur du tableau et non pas la borne supérieure (comme le Redim de VB par exemple).

:)

Merci à toi, tes messages m'ont eclairé et effectivement, j'avais un problème avec le -1, le problème etait surtout que je n'avais jamais manipulé de tableaux de Tstrings et j'ai focalisé là dessus plutot que bien vérifier les 'index' des tableaux.

Merci beaucoup :ccool: