teddy_63 a écrit :
Bonjour a tous
procedure lire_texte (un_graphe : out t_graphe) is
fichier : file_type;
begin
open(fichier,out_file,"e:\test_ada\plus_court.txt" );
for I in 1..Un_graphe.Taille loop
for J in 1..Un_graphe.Taille loop
get(Fichier,t_distance'value(un_graphe.matrice(I,J))); -- c'est ici que ca semble coincer !!
end loop; end loop;
Close(Fichier);
end lire_texte;
procedure Afficher (Un_graphe : in T_graphe) is
package p_distance is new Float_io (t_distance);
use p_distance;
begin
for I in 1..Un_graphe.Taille loop
for J in 1..Un_graphe.Taille loop
put(t_distance'image(Un_graphe.Matrice(I,J)));
end loop;
New_Line;
end loop;
end afficher;
distancier : t_graphe(467);
begin
lire_texte(distancier);
Afficher(distancier);
end trajet;
|
Salut à toi.
Moi aussi je débute en Ada, bon déjà, je pense que la façon dont tu ouvres le fichier n'est pas la bonne comme ça, ce serait mieux
TEXT_IO.OPEN(File=>fichier,Mode=>TEXT_IO.IN_FILE,Name=>"e:\test_ada\plus_court.txt" );
ce serait d'une part plus propre et surtout si tu veux lire dedans, ben c en IN_FILE qu'il fo l'ouvrir.
ensuite je ne sais pas comment est structuré ton fichier mais get_line() est plus pratique, à part si tout est à la suite.
Voilà...
Sur ce bon courage.
Message édité par babar9160 le 09-03-2005 à 11:03:03