Discussion :

[tchouk]

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

[TicTacToe]

mets ton code dans les balises 'CODE' s'il te plait.
Ce sera plus clair à lire.

Quoi que question clarté, on est pas habitué a voir des variables comme ca

sinon, déjà,

Code :

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

 AssignFile(Bestand14,'C://LeeftijdKinderenKinderenen.txt');

est-tu sur (j'ai jamais essayé) que cette syntaxe de dossier est permise.
Essaye avec c:\LeeftijdKinderenKinderenen.txt plutot.

Sinon donne aussi le type de tes variables

Ensuite, dis nous si c'etait ca l'erreur ou non, on regardera apres.

[edam]

quel est le type de JaarKleinKinderen1??
je pence que c'est un tableau dynamique des tableau dynamique de string????

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;
for x:=0 to AantalKinderen do
begin
   AantalKinderen1 := KleinKinderen1[x].HoeveelKleinKind1;
   SetLength(JaarKleinKinderen1[x].LeeftijdKleinKinderen1,AantalKinderen1);
   For teller1 := 0 to (AantalKinderen1-1) do
      begin
         JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1]='blabalaa';   
         Writeln(Bestand14,JaarKleinKinderen1[x].LeeftijdKleinKinderen1[teller1]);
      end;
end;
CloseFile(Bestand14);

[tchouk]

non c'est un tableau dynamique d'un tableau dynamique d'integer. Mais il n'y a pas de probleme quand l'enregistre dans le fichier mais quand je relis les informations mises dans le fichier!!

[tchouk]

non c'est un tableau dynamique d'un tableau dynamique d'integer. Mais il n'y a pas de probleme quand l'enregistre dans le fichier mais quand je relis les informations mises dans le fichier!!

Le AantalKinderen qui se trouve dans la procedure pour lire le informations dans le file je le defini ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    AssignFile(Bestand12,'C://NaamOudersMoederzijde.txt');
    Reset(Bestand12);
    SetLength(Moederzijde,FileSize(Bestand12));
    For teller := 0 to FileSize(Bestand12)-1 do
     begin
      Read(Bestand12,Moederzijde[teller])
     end;
    AantalKinderen := FileSize(Bestand12);
    CloseFile(Bestand12);

Donc je le defini quand je travaille avant avec un autre fichiers. Et entre ces deux fichiers la j'utilise AantalKinderen pour faire d'autres actions et ca marche parfaitement sauf quand je le lis les info du fichier "Bestand14". Pourrais tu m'éclairer?

Merci d'avance

[tchouk]

Désolé je n'avais pa vu votre commentaire sur le 'code' et je suis à l'unif en néerlandais donc je dois faire un programme en néerlandais. Voici mes variable :

Code :

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

1
2
3
4
5
6
7
 
var
teller : Integer;
AantalKinderen1 : Integer;
AantalKinderen : Integer;
x,y: Integer;
Bestand14 : TextFile;

Et dans les message précedent sj'ai mis la procedure on je mets les infos dans le fichiers ainsi que la procedure ou je relis les infos. Et la faute ne se situe pas avec le C:// mais bien on j'ai mis le texte en rouge dans mon premiers message.

Merci.

[tchouk]

Est-ce que quelqu'un sait m'aider ? Je dois rendre mon programme demain vers 20h00 et c'est le seule chose qui foire dans mon programme.
Merci.Tchouk