Discussion :

[Zhitoune]

en fait j'aimerais copier le contenu d'un tableau dynamique d'entier 16 bit dans un fichier texte si possible les un au dessous des autres.donc voici le code utilisé :

Code :

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

1
2
3
4
5
6
7
8
 
data : file;
tab_dyn_img : array of array of i16; //entier 16 bit
 
assign (data,'data.text');
rewrite (data);
blockwrite (data, tab_dyn_img[1][0],sizeof (tab_dyn_img[1]));
closefile (data);

j'ai aussi essayé

Code :

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

1
2
 
blockwrite (data,addr( tab_dyn_img[1][0]^,sizeof (tab_dyn_img[1]));

ainsi que d'autre désinence sur le même thème.

Le programme s'exécute, crée le fichier et le rempli avec des carrés!?
Alors je ne sais pas si c'est juste un petit problème ou si la méthode n'est pas bonne. J'ai passé l'aprés midi à chercher infructueusement.

Merci d'avance.

Olivier

[sjrd]

Si tu veux obtenir un fichier texte lisible dans le bloc-notes, ce n'est pas la bonne méthode. Utilise plutôt alors WriteLn que BlockWrite :

Code :

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

1
2
3
4
5
assign (data, 'data.text');
rewrite(data);
for I := 0 to Length(tab_dyn_img[1])-1 do
  WriteLn(data, tab_dyn_img[1][I]);
closefile(data);

[ShaiLeTroll]

Code :

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

blockwrite (data, tab_dyn_img[0][0], SizeOf);

devrait fonctionner
même si par habitude avec les tableau de tableau, je ferais

Code :

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

1
2
for i := Low(tab_dyn_img) to High(tab_dyn_img) do
  blockwrite (data, tab_dyn_img[i][0],Length(tab_dyn_img[i]));

[Art19]

pour le

Code :

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

data: file

tu peux mettre

Code :

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

data: TextFile

[ShaiLeTroll]

J'aurais tendance à dire même

Code :

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

WriteLn(data, IntToStr(tab_dyn_img[1][i]));

Je ne sais pas si WriteLn converti pas lui même un entier en chaine à l'écriture ... j'en doute en tout cas

[sjrd]

Je ne sais pas si WriteLn converti pas lui même un entier en chaine à l'écriture ... j'en doute en tout cas

Si si, il le fait