Ecriture dans un tableau dynamique.

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:

---

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:

---

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

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:

---

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);

---

Code:

---

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

---

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

Code:

---

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]));

---

pour le

Code:

---

data: file

---

tu peux mettre

Code:

---

data: TextFile

---

J'aurais tendance à dire même

Code:

---

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

Citation:

---

Envoyé par ShaiLeTroll

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 ;)

Code:

---

1 2 3 4 5 6 7

data: textfile; assign (data, 'data.text'); rewrite(data); for i := low(tab_dyn_img[1]) to high(tab_dyn_img[1]) do WriteLn(data, tab_dyn_img[1][i]); closefile(data);

---

et le fichier est vide!:(

tu as mis

Code:

---

1 2	for i := low(tab_dyn_img[1]) to high(tab_dyn_img[1]) do WriteLn(data, tab_dyn_img[1][i]);

---

au lieu de ceci

Code:

---

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

---

tu as confondu la manipulation par "pointeur" de BlockWrite et par valeur de WriteLn

J'ai pas l'impression : son tableau dynamique est à 2 dimensions.

Mais c'est bizarre que ça marche pas :? T'es sur que ton tableau n'est pas vide, au moins ? :aie:

Quelques rappels ;)

Les tableaux dynamiques en Delphi sont implicitement des pointeurs (mais doivent se manipuler plutôt comme des "références") et donc un array of array of i16 sera en interne un pointeur vers un tableau de pointeurs vers des tableaux de i16. Ceci implique que ces types de tableaux ne sont pas forcément carrés et que les données ne sont pas contigües d'une ligne à l'autre.

Donc on ne peut écrire le tableau à partir d'une seule adresse (@tab_dyn_img[0][0]) et il faut nécessaire écrire ligne par ligne (et non pas colonne par colonne).

Ensuite ce sont des tableaux d'indice de base 0.

Enfin BlockWrite écrit des blocs de tailles définis soit par le type de fichier (ici file of i16), soit lors du Rewrite (sinon taille par défaut 128 :aie: ).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

type i16 = ShortInt; procedure TForm2.Button1Click(Sender: TObject); var Data : file of i16; tab_dyn_img : array of array of i16; I,J: Integer; begin SetLength(tab_dyn_img, 4 , 5 );   for I := Low(tab_dyn_img) to High(tab_dyn_img) do for J := Low(tab_dyn_img[I]) to High(tab_dyn_img[I]) do tab_dyn_img[I,J] := I+J;   AssignFile (data,'C:\data.text'); Rewrite(data); for I := Low(tab_dyn_img) to High(tab_dyn_img) do BlockWrite (data, tab_dyn_img[I][0], sizeof (tab_dyn_img[I])); CloseFile (data); end;

---

Résultat :

Citation:

---

Ā̂ȁЃ̂ԄЃ؅

---

Ben oui c'est interprété en ascii :mouarf: :mouarf:
Avec un éditeur hexadécimal :

Citation:

---

00010203010203040203040503040506

---

Plutot que de bosser sur du TextFile ou du File j'utiliserais plutot un TStream : TFileStream, TMemoryStream ou encore TStringStream dont la gestion est plus simple et efficace a mon gout :)

Le tableau est plein vu que je le trace dans une Tchart et il est bien dynamique à deux dimensions. et y'a toujours rien dans mon fichier texte:aie: .

Citation:

---

Ben oui c'est interprété en ascii
Avec un éditeur hexadécimal :

---

comment je peux faire pour qu'il écrive en hexadécimal et si possible les chiffre les uns au dessous des autres sinon c'est pas exploitable.

quand au Tstream je n'ai absolument aucune idée de comment ca marche je vais me renseigner merci.

bon je me suis documenté sur les tstream et j'ai réassayé avec ça donc voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var F:Tfilestream; data_name:Tfilename; begin f:=nil; data_name :='data.text'; try deletefile(data_name); F:= Tfilestream.Create(data_name,fmcreate or fmshareexclusive); try F.Position :=0; i := sizeof (Tab_Dyn_Img); F.WriteBuffer(i,sizeof(i)); for i:=1 to sizeof(Tab_Dyn_Img[0]) do begin T:=sizeof(Tab_Dyn_Img[0][0]); F.WriteBuffer(Tab_Dyn_Img[0],T); end; finally F.Free; end; //suivi de la gestion des exceptions....

---

Et le fichier texte est toujours rempli de carré?!:(

bon en fait,il fallait utiliser

Code:

---

1 2 3

lenght(Tab_dyn_img[0]); //au lieu de sizeof(Tab_dyn_img[0]);

---

voila voila:aie:

pour info :
Length renvoie le nombre d'element d'un tableau (chaine ou tableau) et sizeof la taille en octets du type de la variable transmise.

Il y a encore deux ou trois petit trucs qui me chiffonent :
pourquoi par exemple

Code:

---

blockread(tab_dyn_img[0],512);

---

marche et pas

Code:

---

blockread(tab_dyn_img[0],length(tab_dyn_img[0]);

---

. 512 est arbitraire mais lors de l'éxécution, le programme plante à partir d'une certaine valeur :? (ici : 4101, mon tableau dynamique étant evidement plus grand que cette valeur:aie:). du coup je suis obligé de passer par deux boucle pour parcourir mon tableau et ça ralentit fortement le programme.
c'est aussi le cas quand j'utilise un filestream:( :

Code:

---

1 2 3 4 5

F:= Tfilestream.Create(data_name,fmcreate or fmshareexclusive); try F.Position :=0; F.WriteBuffer(Tab_Dyn_Img[0],length(Tab_Dyn_Img[0]));

---