Salut,
j'ai u petit problème quand je lis des données d'un fichier. Je rentre les données dans le fichier comme 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
 
AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.txt');
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
           Writeln(Bestand14,JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller]);
          end;
          x := x+1;
          y := y+1;
  Until y = AantalKinderen;
CloseFile(Bestand14);
Et mon Fichier Bestand14 est un TextFile. Tout cela marche mais quand je veux le relire, c'es la que vient ma faute :
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
AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.txt');
Reset(Bestand14);
SetLength(JaarKleinkinderen1,AantalKinderen); (AantalKinderen : je le defini dans une autre procedure, mais ce n'est pas ca qui pose probleme,ca ca marche)
SetLength(KleinKinderen1,AantalKinderen);
   x := 0;
   y := 0;

   Repeat AantalKinderen1 := KleinKinderen1[x].HoeveelKleinKind1;
       SetLength(JaarKleinKinderen1[x].LeeftijdKleinKinderen1,AantalKinderen1);
       For teller1 := 0 to (AantalKinderen1-1) do
        begin
         Readln(Bestand14,JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1])
        end;
        x := x+1;
        y := y+1;
   Until y = AantalKinderen;
CloseFile(Bestand14);
Quand je compile le programme, il ne m'indique pas de faute. c'est quand je le run qu'il me met une faute ( en rouge) "Acces Violation..."
Est-ce que qualqu'un pourrait m'aider à ce sujet la? UN grand merci en tout cas.
Tchouk