Discussion :

[MelkInarian]

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;

[Cl@udius]

Salut

X est un array of byte.
Donc il te faut une instruction du genre:

Code :

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

1
2
 
  X[Indice] := ...

Je n'ai pas regardé ton code dans le détail.

@+

[MelkInarian]

Salut
X est un array of byte.
Donc il te faut une instruction du genre:

Code :

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

  X[Indice] := ...

Je n'ai pas regardé ton code dans le détail.
@+

En fait j'ai fait plusieurs essais avant de poster et array of byte est l'un de ces essais qui ne fonctionnent pas.
Dans l'absolu ces le transtypage d'intervalle à entier qui m'intéresse pour faire fonctionner

Code :

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

1
2
 for I := low(X) to High(X) do
             PNJTaille.Items.Add(IntToStr(I));

sachant que le contenu de X provient d'un fichier texte sous la forme clé=valeur

Code :

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

P=80..114

[Rayek]

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
38
39
40
41
42
 
Var
  F            : Textfile;
  ListInfo : TStrings;
  FInfo        : TFileName;     // Nom du fichier texte contenant les infos
  ErreurFichier : Boolean;
  Valeur        : String;
  iDebut , iFin : Integer;
  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
 
          i := Pos('..',Valeur);
          iDebut := StrToIntDef(Copy(Valeur,1,i -1),0);
          ifin := StrTOIntDef(Copy(Valeur,i+2, Length(Valeur) - i - 2),0);
 
          for I := iDebut to iFin do
             PNJTaille.Items.Add(IntToStr(I));
        Finally
          ListInfo.Clear;
        end;

Je verrais plutot le code dans ce style.

[MelkInarian]

Merci Malatar, le résultat de ton code correspond parfaitement à ce que je souhaite faire.