Bonjour!
Dans le code suivant, je charge, dans un fichier texte, une valeur intervalle : Par exemple : P=[80..114] et je souhaite, à l’aide de la totalité des entiers compris entre les 2 bornes de mon intervalle (ici : 80 et 114) remplir les Items d’un combobox.
Mais je ne connais pas la commande de transtypage adéquate (ligne en rouge) .
Code : Sélectionner tout - Visualiser dans une fenêtre à part PNJTaille.Items.Add(IntToStr(I));
Quelqu’un peut-il m’aider ?
Merci !
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 Var F : Textfile; ListInfo : TStrings; FInfo : TFileName; // Nom du fichier texte contenant les infos ErreurFichier : Boolean; Valeur : String; I : Byte; X: array of byte; begin ….. if not ErreurFichier then begin try // Contrôler la disponibilité du fichier RInfo.Lines.LoadFromFile(FInfo); ListInfo := Tstringlist.Create; ListInfo.LoadFromFile(FInfo); // Charge depuis le fichier ….. TailleModCA.Text := ListInfo.Values['ModTailleCA']; // Modificateur de Taille à la CA TailleModAtt.Text := ListInfo.Values['ModTailleAtt']; // Modificateur de Taille aux jets d'attaque TaillePdsPrtble.Text:= ListInfo.Values['ModTaillePdsPorté']; // Modificateur de Taille au poids transportable Finally ListInfo.Clear; end; FInfo := PathTables + 'TAILLES.TXT'; // Chemin\Fichier try // Contrôler la disponibilité du fichier … RInfo.Lines.LoadFromFile(FInfo); ListInfo := Tstringlist.Create; ListInfo.LoadFromFile(FInfo); // Charge depuis le fichier Valeur := ListInfo.Values[RaceCat_Taille.Text]; // Catégorie de Taille X := StrToInt(Valeur); for I := low(X) to High(X) do PNJTaille.Items.Add(IntToStr(I)); Finally ListInfo.Clear; end;
Partager