Discussion :

[yann87]

Voila ma déclaration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Num1     = record
         nombre_tiroirs     : string;
         prix               : array [1..14] of string;
         etat_tiroir        : array [1..14] of string;
         debut_reservation  : string;
         fin_reservation    : string;
         end;
 
tabreserv1:array[1..1] of Num1;
 
TIRROIR:array of integer;
setlength(TIRROIR,28);

lecture dans un fichier texte

Code :

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

tabreserv1[1].etat_tiroir[1]:=(Section.Values['tiroir 1']);

ensuite je transfère de (tabreserv1[1].etat_tiroir[1]) vers TIRROIR :

Code :

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

TIRROIR[i]:=strtoint(tabreserv1[1].etat_tiroir[i+1]);

en résumé je lis un fichier texte que je stocke dans un (tabreserv1[1].etat_tiroir[1]) et ensuite de ce tableau je transfère dans un tableau
TIRROIR[28]

mais quand j'essai de lire la valeur de ce genre

Code :

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

1
2
3
4
5
6
var 
   trouve:string; 
for i:0 to 14 then
begin
 trouve:=inttostr(TIRROIR[i]); 
end

c'est imposible de lire la valeur de trouve, le système réfléchit et c'est tout il
ne me retourne pas une valeur.

mais par contre quand j'initialise le tableau de ce genre (TIRROIR[1]=1); la par contre je n'ai pas de souci pour récupérer la valeur trouve (de type string) Avez vous une autre solution pour moi? Merci d'avance.

[philnext]

Tu es sûr que
Section.Values['tiroir 1']
te retourne un résultat ?

[yann87]

Code :

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

tabreserv1[1].etat_tiroir[1]:=(Section.Values['tiroir 1']);

Je récupère effectivement bien quelque choses mais par contre j'ai trouvé un autre moyen j'ai déclarer etat_tiroir comme ci-dessous :

Code :

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

 etat_tiroir        : array [1..14] of integer;

et il n'y avait pas de souci. Merci de votre réponses