Discussion :

[fred64]

Bonjour,

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

Je déclare le Tableau comme cela :

Code :

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

Reponses:         array of TStrings;

Je fixe dynamiquement la taille du tableau :

Code :

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

SetLength(Reponses, (CurrentQuizzNbQuestions - 1));

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

Code :

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

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 :

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

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

[slimjoe]

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

Code :

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

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

[slimjoe]

Je fixe dynamiquement la taille du tableau :

Code :

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

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

[fred64]

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