Pascal - Stocker dans une matrice

Artic -  
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
J'ai un probleme. J'ai un fichier texte de ce genre:
qqqqqqqqqqqqqqqqqqqqq
qqqqeqqqqqeqqqqqeqqqq
qqqqqiqqqqiqqqqiqqqqq
qqqqqqlqqqlqqqlqqqqqq
qqqqqqqrqqrqqrqqqqqqq
qqqqqqqqaqaqaqqqqqqqq
qqqqqqqqqhhhqqqqqqqqq
qqqqeilrahcharlieqqqq
qqqqqqqqqhhhqqqqqqqqq
qqqqqqqqaqaqaqqqqqqqq
qqqqqqqrqqrqqrqqqqqqq
qqqqqqlqqqlqqqlqqqqqq
qqqqqiqqqqiqqqqiqqqqq
qqqqeqqqqqeqqqqqeqqqq
qqqqqqqqqqqqqqqqqqqqq

Je souhaiterais le stocker dans une matrice. J'ai donc creer le bout de programme suivant:

Begin
Assign(Ftext,nom); //Lecture du fichier
Reset(Ftext);
j:=0;
i:=0;
While not EOF (Ftext) do
Begin // stockage
ReadLn(Ftext,Ligne);
WriteLn(Ligne);
cmax:=length(Ligne);
for i:=1 to cmax do
mat[i,j]:=Ligne[i];
j:=j+1;
lmax:=j;
end;
End;


Le probleme que j'ai c'est que lorsque je lit cette matrice, je me rends compte que la premiere ligne du fichier n'a pas ete stocker. J'obtient donc une matrice qui contient toutes les lettres au bon endroit sauf la premiere ligne du fichier...

Quelqu'un saurait pourquoi?

(voila ce que j'obtient lorsque je demande d'afficher la matrice:

qqqqeqqqqqeqqqqqeqqqq
qqqqqiqqqqiqqqqiqqqqq
qqqqqqlqqqlqqqlqqqqqq
qqqqqqqrqqrqqrqqqqqqq
qqqqqqqqaqaqaqqqqqqqq
qqqqqqqqqhhhqqqqqqqqq
qqqqeilrahcharlieqqqq
qqqqqqqqqhhhqqqqqqqqq
qqqqqqqqaqaqaqqqqqqqq
qqqqqqqrqqrqqrqqqqqqq
qqqqqqlqqqlqqqlqqqqqq
qqqqqiqqqqiqqqqiqqqqq
qqqqeqqqqqeqqqqqeqqqq
qqqqqqqqqqqqqqqqqqqqq


A voir également:

1 réponse

KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
Met nous le code complet (déclaration de la matrice et affichage), tu enregistres la première ligne en j=0 alors que tu commences toujours par i=1, je me demande s'il n'y a pas un problème dans tes indices, par exemple en affichant à l'écran à partir de j=1 au lieu de 0
0