Discussion :

[yann87]

Bonjour,

Je me retrouve dans une impasse, voilà j'ai déclarer

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
Num1     = record
         prix1  : string;
         prix2  : string;
         prix3  : string;
         prix4  : string;
         prix5  : string;
         prix6  : string;
         prix7  : string;
         prix8  : string;
         prix9  : string;
         prix10 : string;
         prix11 : string;
         prix12 : string;
         prix13 : string;
         prix14 : string;
  end;
 
   tabreserv1:array[1..1] of Num1;

et j'aimerai trouver indice pour pouvoir lire la ligne de prix correspondant de ce genre "tabreserv1[1].prix(qui varie avec l'indice)" et je ne trouve pas

Code :

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

1
2
3
4
5
6
7
 for i:=0 to 14 do
 begin 
    if  (controle=1) then
    begin 
       tabreserv1[1].prix(qui varie avec l'indice)  // et cela ne marche pas !!! 
    end  
 end;

Si vous avez une idée à me proposer, merci d'avance

[anapurna]

salut

la variation selon l'indice est constante ou pas

sinon tu aurais pu faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Tnum1 = Record 
  Prix : array[1..14] of string;
end;
 
tabreserv1:array[1..1] of Tnum1;
 
for i:=1 to 14 do
begin
  if (controle=1) then
  begin
     tabreserv1[1].prix[i] := ...;// et cela ne marche pas !!!
  end
end

@+ Phil

Ps : Penser au tag code (#)

[yann87]

Salut Phil,

J'ai fait ta méthode elle marche nickel, salut et merci encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Tnum1 = Record 
  Prix : array[1..14] of string;
end;
 
tabreserv1:array[1..1] of Tnum1;
 
for i:=1 to 14 do
begin
  if (controle=1) then
  begin
     tabreserv1[1].prix[i] := ...;// et cela ne marche pas !!!
  end
end

[ShaiLeTroll]

ou encore

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
type
  TNum1 = record
    case Boolean of
      True:
        (
          prix1 : shortstring;
          prix2 : shortstring;
          prix3 : shortstring;
          prix4 : shortstring;
          prix5 : shortstring;
          prix6 : shortstring;
          prix7 : shortstring;
          prix8 : shortstring;
          prix9 : shortstring;
          prix10 : shortstring;
          prix11 : shortstring;
          prix12 : shortstring;
          prix13 : shortstring;
          prix14 : shortstring;
       );
     False:
       (
         Prix : array[1..14] of shortstring;
       );
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
for i:=1 to 14 do
begin
  if (controle=1) then
  begin
     tabreserv1[1].prix[i] := ...;// et cela ne marche pas !!!
     // mais aussi 
     tabreserv1[1].Prix1 := 'Bcp';
     tabreserv1[1].Prix2 := 'Gratuit';
  end
end

[anapurna]

salut

attention cela ne marche qu'avec les shortstring


@+ Phil

[dragonno]

Je lui précise juste :

Shortstring = chaine de 255 caractères maxi