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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
PNJTaille.Items.Add(IntToStr(I));
Mais je ne connais pas la commande de transtypage adéquate (ligne en rouge) .
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;