Commande Sizeof "imprécise"

Bonjour,

Une âme charitable pourrait m'expliquer pourquoi lorsque je tape ce 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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

unit Unit1;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;   var Form1: TForm1;   implementation   {$R *.DFM}   procedure TForm1.Button1Click(Sender: TObject);   type everec=record cpt:byte; code:string[2]; comm:string[13]; end; begin label1.caption:=inttostr(sizeof(everec));   end;   end.

---

La valeur renvoyé est elle de 24 ?
Un à un chaque élément cpt, code et comm vaut 4 , 3 et 14. Mais quand je les mets tous comme ici, j'obtiens 24 au lieu de 21. Si je ne laisse que les string j'obtiens bien 17 (ok). Seulement le longint 4 (ok). Mais les deux string et le longint 24 !! Quelque chose m'échappe...

Merci,
Thierry

Tu confonds
- SizeOf (Taille Mémoire)
- Length (Taille logique des chaines ou tableau)

ensuite

Code:

---

1 2 3 4 5

everec=record cpt:byte; code:string[2]; comm:string[13]; end;

---

Cpt = 1 (byte = 1 par de integer en vue ?)
code = 3
comm = 14
total = 18

Ensuite, pour une raison de compilateur, les champs sont espacés en mémoire pour les caler des les registres 32 ou 64 bits, donc avec Cpt en Word, cela peut changer, ...

Code:

---

1 2 3 4 5

everec=record cpt:integer; code:string[2]; comm:string[13]; end;

---

Cpt = 4
code = 3
comm = 14
bourrage = 3 // je ne sais pas pk mais il y est !
total = 24

et

Code:

---

1 2 3 4 5

everec= packed record // packed !!! cpt:integer; code:string[2]; comm:string[13]; end;

---

Cpt = 4
code = 3
comm = 14
total = 21

bourrage = 3 -> je pense qu'il s'agit de l'optimisation pour les Intel 486. En effet pour améliorer les performances, il faut les mettres sur des adresses mémoires paires.
En plus, il ne faut pas oublier que les strings ne sont pas gérées comme des simples tableaux de caractères (voir C. Quelques précisions sur le type string http://reisubar.developpez.com/tutor...trings-pchars/)

Oui, le bourrage c'est de l'alignement de champ pour les registres processeurs, mais je n'ai pas trouvé d'autre nom ...

sinon, les chaines courtes (string[xx]) ce ne sont que de simple tableau avec un byte en [0] pour indiquer la véritable, longueur, à ne pas confondre avec les chaines longues AnsiString (ou string) qui sont en fait un pointeur sur une zone mémoire contenant la chaine, précédé par structure contenant la longueur etr le compteur de référence ...

Code:

---

1 2 3 4 5

everec=packed record cpt:byte; code:string; comm:string; end;

---

Cpt = 4
code = 4 // pointeur seulement
comm = 4
total = 12

En fait la structure de string est plutôt comme ça :

Code:

---

1 2 3 4 5 6

type TStringRec = packed record RefCounter: Cardinal; Length: Cardinal; Contents: array[0..Length] of Char; end;

---

Bien sûr le "tableau" Contents a une taille qui dépend de la longueur de la chaîne. Le "pointeur" chaîne pointe vers @Contents, et pas vers @RefCounter ! Pour une chaîne vide, ce pointeur vaut nil, au lieu de pointer sur une structure avec 0 comme Length.

Et oui, Contents va bien de 0 à Length, car il y a toujours un #0 en bout de chaîne, qui permet le transtypage direct en PChar.

Il y a deux #0 pour les WideString ... ^_^, d'ailleurs, j'ai écrit cette fonction pour réduire une chaine, très rapidement (le code est illisible à cause de variante possible d'écriture)

Code:

---

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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

{* ----------------------------------------------------------------------------- la fonction ReduceStr correspond à un SetLength plus performant mais peut-être plus risqué ! @param S est une variable chaîne @param NewLength indique le nouveau nombre de caractères dans S. ------------------------------------------------------------------------------ } procedure ReduceStr(var S: string; NewLength: Integer); {$IFNDEF PUREPASCAL} type PStrRec = ^StrRec; StrRec = packed record refCnt: Longint; length: Longint; end;   const skew = sizeof(StrRec); rOff = sizeof(StrRec); { refCnt offset } overHead = sizeof(StrRec) + 1;   {$IFDEF SHAI_REALLOC_STRING} var P: PStrRec; {$ENDIF} {$ENDIF} begin if NewLength < 0 then NewLength := 0; if NewLength < Length(S) then begin {$IFDEF PUREPASCAL} SetLength(S, NewLength); {$ELSE} {$IFDEF SHAI_REALLOC_STRING} P := Pointer(Integer(S) - SizeOf(StrRec)); ReallocMem(P, NewLength + skew); // Revient à faire le SetLength en terme de temps {$ELSE} S[Succ(NewLength)] := #0; {$ENDIF} {$IFDEF SHAI_SET_LENGTH} Integer(Pointer(Integer(@S[1])-4)^) := NewLength; // FreeMem libère le pointeur, peut importe la taille {$ELSE} PStrRec(Integer(S) - SizeOf(StrRec)).length := NewLength; {$ENDIF} {$ENDIF} end; end;

---