Discussion :

[tchouk]

salut,
alors j'ai un fichier d'integer ( bestand14) de type .dat et j'utilise pour le moment, pour entrer les données dan le fichier, "write". Mais Quand je les relis, le programme ne reprend pas les toutes derniers info donc il faudrait que je travaille avec "writeln". Mais quand je met "writeln" le programme me met la faute "Illegal type in write/writeln statement". Alors je ne sais pas comment je dois faire pour arriver a ce que cel marche!!?? Pourriez vous m'aider?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.dat');
 Rewrite(Bestand14);
 AantalKinderen := StrToInt(FormGrootOuders.EditKeuze1.Text);
 SetLength(JaarOuders,AantalKinderen);
   For teller := 0 to (AantalKinderen-1) do
    begin
      Write(Bestand14,JaarOuders[teller].LeeftijdOudersMoeder);
    end;
CloseFile(Bestand14);

[Bleys]

Salut,

Tout d'abord, pour ta dernière remarque, writeln ne s'applique qu'à des fichiers de type Text (ceux déclarés par la type Text tout simplement)


Par contre je ne suis pas bien sur de tout comprendre à ton soucis. Est-ce que tu peux mettre un peu plus de ton code, notamment al partie des type et de tes variables ? Je pourrais peut-être t'aider ...

[Philippe Gormand]

Bonjour.

Dans ton code, tu écrit toutes tes données à la queu-leuleu.

WriteLn est utilisé pour les chaines de caractères (fichier texte).

Dans ce cas le code doit ressemler à ceci :

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
   Valeur        : Integer;
   Bestand14 : TextFile;
 
begin
 
 
AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.dat');
 Rewrite(Bestand14);
 AantalKinderen := StrToInt(FormGrootOuders.EditKeuze1.Text);
 SetLength(JaarOuders,AantalKinderen);
   For teller := 0 to (AantalKinderen-1) do
    begin
         Valeur := JaarOuders[teller].LeeftijdOudersMoeder;
          WriteLn(Bestand14,IntToStr(Valeur));
    end;
CloseFile(Bestand14);

[tchouk]

En faite je mes plusieurs donné dedans comme celle ci aussi, et auparavant j'ai été obligé d'utiliser un fichier d'integer car quand je relisait les données il me mettait un erreur. Et maintenant ca marche mais il n'arrive pas à lire les dernieres données dans "JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1])"

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
 
 
type
 TLeeftijd5 = Record
  LeeftijdKleinKinderen1 : Array of Integer;
end;
 TJaarKleinKinderen1 = Array of TLeeftijd5 ;
 
var
 Bestand14 : File of Integer;
JaarKleinKinderen : TJaarKleinKinderen;
 
Procedure
 
 AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.dat');
 Rewrite(Bestand14);
 AantalKinderen := StrToInt(FormGrootOuders.EditKeuze1.Text);
  SetLength(JaarKleinkinderen1,AantalKinderen);
  x := 0;
  y := 0;
 
  Repeat AantalKinderen1 := KleinKinderen1[x].HoeveelKleinKind1;
         SetLength(JaarKleinKinderen1[x].LeeftijdKleinKinderen1,AantalKinderen1);
         For teller1 := 0 to (AantalKinderen1-1) do
          begin
           Write(Bestand14,JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1]);
          end;
          x := x+1;
          y := y+1;
  Until y = AantalKinderen;
 CloseFile(Bestand14);

et je relis les info avec :

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
 
  AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.dat');
  Reset(Bestand14);
  SetLength(JaarKleinkinderen1,AantalKinderen);
   x := 0;
   y := 0;
 
   Repeat AantalKinderen1 := KleinKinderen1[x].HoeveelKleinKind1;
       SetLength(JaarKleinKinderen1[x].LeeftijdKleinKinderen1,AantalKinderen1);
       For teller1 := 0 to (AantalKinderen1-1) do
        begin
         Read(Bestand14,JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1])
        end;
        x := x+1;
        y := y+1;
   Until y = AantalKinderen;
CloseFile(Bestand14);

Je fais en sorte que le dernier "aantal kinderen" soit egal au premier. Ca ca marche.
PS : Désolé pour les code en néerlandais mais je suis à l'unif en néerlandais et je dois faire un programme et le présenter.

[Philippe Gormand]

Le problème vient du fait que tu utilises des tableaux dynamiques pour la structure (Record) et pour écrire et lire ton fichier.
Les nombres déléments (ou les longueurs) ne sont pas connues au moment de la lecture. Donc, impossible pour le systeme de connaitre correctement le nombre de données à lire.

Utilise des tableaux de longueur définit pour la structure. Je suis même étonné que le compilateur ne te signales pas une erreur.

A+

[Bleys]

Simple suggestion :
Au lieu de faire un file of integer, tu ne peux pas faire un fichier de type celui que t'a créé et en fait tu enregistre le tableau complet directement ....

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
type TMonType = Record
          Mon_Tableau : array of array of integer;
         End;
 
var F : File of TMonType;
     Tab : TMonType;
...
Write(F,Tab);

Je ne sais pas si ça peut marcher comme ça où si dans ton projet ça peut s'intégrer (tout dépend des contraintes que tu as ...)

[Philippe Gormand]

Non ! Ca ne marchera pas car le compilateur refusera la structure de dimension inconnue pour le type fichier.
Il y aura imencablement un code d'erreur 28 donné par le complilateur.
Pour pouvoir enregistrer une structure (record) dans un fichier, il est impératif que sa dimention soit connue et fixe. Donc un type de tableau dynamique (Array Of Integer ou Array Of Array Of Integer) n'a pas de dimension du tout au moment de la compilation.

Par contre, un fichier de type texte peut convenir tout à fait. C'est bien ce que l'on fait avec un fichier tableur comme le type CSV.

A+