Discussion :

[DuffNut]

Bonjour,
je rencontre un problème pour obtenir la taille d'un tableau dynamique.
Avant tout était statique :

Code :

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

1
2
3
type
TLigne: array [O..19] of byte;
TTab: array [0..9] of TLigne;

Quand je fais SizeOf(TLigne) j'obtiens 20 et SizeOf(TTab) 200. Normal

Maintenant j'ai :

Code :

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

1
2
3
type
TLigne: array of byte;
TTab: array of TLigne;

Dans le code j'alloue mes tableaux (20 et 10 par ex.). Quand je fais SizeOf(TLigne) ou SizeOf(TTab) j'obtiens maintenant 4. Normal aussi je pense mais je voudrais avoir encore 20 et 200 quand je fais le SizeOf... Et je ne sais pas comment faire.

Je ne vois pas la solution, si il y en a une, merci de m'aider.

[tourlourou]

Bonjour,

SizeOf() renvoie la taille du type de la variable, soit celle d'un pointeur pour un tableau dynamique (4) et 20 pour un tableau fixe de 20 octets.

Pour connaître son nombre d'éléments, il faut utiliser Length(), et pour allouer un nombre d'éléments : SetLength(tableau, longueur_voulue)

[DuffNut]

Oui c'est ce que j'ai fais.

Or ici Length(TLigne)=20 et Length(TTab)=10 et non pas 200...

[ShaiLeTroll]

Ce qui est vrai !

Tu confonds la mémoire et le nombre d'élement !
Quel est ton besoin, tu veux recopier le tableau dynamique dans un buffer ou un fichier donc déterminer la taille en octet ?
Sur un Tableau dynamique, ça va, sur un tableau de tableau c'est plus délicat !

donc

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
19
20
21
type
  TLigne: array of byte;
  TTab: array of TLigne; 
  TLigne20: array [0..19] of byte;
  TTab10: array [0..9] of TLigne; 
var
  Ligne: TLigne;
  Tab: TTab;
  Ligne20: TLigne20;
  Tab10: TTab10;
begin   
 
  SetLength(Ligne, 20);
  SetLength(Tab, 10);
 
  if SizeOf(Ligne20) = Length(Ligne) * SizeOf(Byte) then
    ShowMessage('OK Ligne');
 
  if SizeOf(Tab10) = Length(Tab) * Length(Ligne) * SizeOf(Byte) then
    ShowMessage('OK Tab');
end;

[DuffNut]

En fait, j'enregistre ce tableau dans un fichier précédé d'un index.
Avec les tableaux dynamiques, le tableau peut être de n'importe quelle taille donc je ne connais pas sa taille avant l'ouverture, je connais juste le nombre de tableaux qu'il y a dans le fichier.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
// Je trouve la taille du fichier
  if FindFirst(FFileName,faAnyFile,Sr)=0 then
  try
    TailleFichier := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow;
  finally
    FindClose(Sr);
  end
  else
    TailleFichier := 0;
  TailleTableau:= TailleFichier div NombreTab -4;
  case TailleTableau of // Il y a plusieurs tailles que je vais définir plus tard
    200: begin
      X:= 19;
      Y:= 9;
    end;
  end;
  SetLength(Ligne, X+1);
  SetLength(Tab, Y+1,X+1); // Pas sûr de moi ici, si je ne mais pas ça, je me retrouve avec un tableau à une dimension bien que TTab: array of TLigne;
// Ouverture du fichier
try
    FS:=TFileStream.Create(FFileName,fmOpenRead);
 
    FS.Seek(0,0);
    FS.ReadBuffer(Index,SizeOf(integer));
    FS.ReadBuffer(Tab,SizeOf(TTab)); // En tableau statique
    FS.ReadBuffer(Tab,(X+1)*(Y+1)); // En tableau dynamique
// Il y a une erreur car j'essaie de mettre un élément de 200 dans un de 4...
  except
    on E:Exception do
      ...
  end;

[ShaiLeTroll]

C'est aussi parce que tu écris pas dans le tableau mais dans le pointeur du tableau !
Tableau Statique Tab et Tab[0] c'est pareil
Tableau Dynamique Tab est un Pointeur qui indique l'emplacement de Tab[0] (bon c'est sans compter des trucs de compteur de référence et autre)


Si X et Y indique le plus haut Index (donc la longueur c'est effectivement +1)

Code :

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

FS.ReadBuffer(Tab[0], (X+1) * (Y+1) * SizeOf(Byte)); // En tableau dynamique

Ton élément étant un Byte, ça fait 1 mais cela te donne la véritable formule

[DuffNut]

Ah oui merci je n'avais pas fait attention à ça !

Du coup ça marche mieux, merci !

Je mets résolu mais je reviendrai peut-être ici car j'ai l'impression que mes problèmes ne sont pas tout à fait finis...

Merci pour avoir réglé celui là