Discussion :

[Helianza]

Bonjour,

Je ne sais pas si le titre est suffisamment clair, alors je vous montre un exemple :

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
Var toto : String;
  i : Integer;
  jour1 : Integer;
  jour2 : Integer;
  jour3 : Integer;
  jour4 : Integer;
  jour5 : Integer;
  jour6 : Integer;
  jour7 : Integer;
 
begin
  for i := 1 to 7 do
    begin
      if toto = 'Salut' then ('jour' + IntToStr(i)) := 0;
      if toto = 'Hello' then ('jour' + IntToStr(i)) := 1;
      if toto = 'Hallo' then ('jour' + IntToStr(i)) := 2;
    end;
end;

J'ai bien trouvé une fonction qui serait FindIntegerVariable, mais je ne la trouve que sur un site, et n'arrive pas à l'utiliser.
Est-ce que ce que je demande est possible ?

D'avance, merci !

[SergioMaster]

Bonjour,

Je ne suis pas sûr de comprendre. Vous voulez parler d'une énumération ?

type Jours=(Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi,Dimanche);

ou d'une liste de valeurs, genre dictionnaire
comme dans cet exemple

[Helianza]

Non, rien d'aussi compliqué.

Je voudrais affecter à la variable jour1 (1 étant ici fonction de i) la valeur 0, 1 ou 2 en fonction de la valeur de toto. J'ai pris toto pour l'exemple, je pensais que ce serait plus simple, mais je vais donner le code réel :

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
Var i : Integer;
    j : Integer;
    jour1 : Integer;
    jour2 : Integer;
    jour3 : Integer;
    jour4 : Integer;
    jour5 : Integer;
    jour6 : Integer;
    jour7 : Integer;
    rb0 : TRadioButton;
    rb1 : TRadioButton;
    rb2 : TRadioButton;
 
begin
  rqtFestinResa.First;
  for i := 1 to rqtFestinResa.RecordCount do
    begin
      rqtFestinResa.Edit;
      for j := 1 to 7 do
      begin
        rb0 := FindComponent('rbUser' + IntToStr(i) + 'Null' + IntToStr(j)) as TRadioButton;
        rb1 := FindComponent('rbUser' + IntToStr(i) + 'Norm' + IntToStr(j)) as TRadioButton;
        rb2 := FindComponent('rbUser' + IntToStr(i) + 'Alte' + IntToStr(j)) as TRadioButton;
        if rb0.isChecked = true then ('jour' + IntToStr(j)) := 0;
        if rb1.isChecked = true then ('jour' + IntToStr(j)) := 1;
        if rb2.isChecked = true then ('jour' + IntToStr(j)) := 2;
      end;
      rqtFestinResa.Next;
    end;

Je souhaite ne faire qu'une seule requête SQL pour mettre à jour mon enregistrement : "Update reservation set lun_type = :jour1, mar_type = :jour2..." Du coup, je souhaite affecter à chaque variable (jour + j) sa valeur.
Sinon, je ne peux pas boucler, et il faut que j'écrive les 7 cas possibles, un pour chaque jour de la semaine. Rien de compliqué, bien sûr, mais comme je débute, j'essaye de voir s'il n'existe pas une solution à mon problème.

[tourlourou]

Utiliser un tableau d'entiers :

Code :

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

1
2
var
  Jours: array [1..7] of integer;

[Charly910]

Bonjour,
Je ne pense pas avoir bien compris ce que tu veux faire, mais est ce que tu ne pourrais pas utiliser un tableau de chaines : Jour[i],
puis construire ta chaine "Update reservation... avec les jour[i] ?

A+
Charly

Grillé par Tourlourou ! : tableau d'entiers ou de chaines ...

PS : tu peux aussi utiliser des tableaux de RadioButon qui éviteraient peut être les FindComponent ?

[anapurna]

salut

pour 7 jour autant utiliser un byte et se servir des opération de byte (SHL,SHR,AND,... )

Mes deux cents

[Paul TOTH]

c'est marrant cet usage de FindComponent(), c'est vraiment une fonction que je n'utilise jamais; ça me fait penser au document.getElementById() de Javascript, mais même en Javascript je ne l'utilise plus