Discussion :

[colorid]

Bonjour,

Est-il vrai que sous Delphi un booléen est codé sur un octet et non sur un bit ?

Si Oui comment créer un tableau dynamique de bits ? Il semble que le type bit n'existe pas, les entiers débutant à Byte 0 à 255.

Je ne vois pas l'utilité de multiplier par 7 la taille d'un tableau de booéens !

Exemple : un tableau de bits (640,480) occupe 640*480=307200 bits ou 38400 octets le même en booléens occuperait 2457600 bits soit 307200 octets !!!

Avez-vous une idée pour réduire la taille des tableaux de bits sous Delphi ?

Mon application n'a besoin que de savoir si le pixel d'une image est occupé ou pas, bonjour pour les images de grande taille !

Cordialement

colorid

[Michel Devaud]

Je ne vois pas l'utilité de multiplier par 7 la taille d'un tableau de booéens !

Petite précision : pour passer d'un bit à un octet, on ajoute 7 bits mais on multiplie la taille par 8 ! Ce que vous démontrez parfaitement dans le calcul que vous faîtes après.

Pourquoi ne pas créer vous-même une structure accueillant ces booléens/bits et les deux ou trois fonctions de base nécessaires pour y accéder ?

Cordialement,

Michel

[Montor]

Un pixel nest pas un bit http://nono40.developpez.com/tutorie.../efg/scanline/

[colorid]

J'ignorais l'existence de TBits, elle n'est pas citée dans les variable de type entier ni dans Booléen...

Bref le source suivant convient-il ?

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
 
procedure Machin;
function OrderFrom_x_y(const x,y: integer): Integer;
begin
  result:= x*y+y;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  BitsTab: TBits;
  x,y: Integer;
begin
  BitsTab:= TBits.Create;
  BitsTab.Size:= 640*480;
  for x:=0 to 639 do
    for y:= 0 to 479 do
      BitsTab[OrderFrom_x_y(x,y)]:= True;
end;

pour utiliser le pixels[x,y] s'il est actif il suffit d'écrire

Code :

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

if BitsTab[OrderFrom_x_y(x,y)]:= [OrderFrom_x_y] then

N'y a t'il pas plus simple ?

[mick605]

Salut

Tu peux aussi utiliser des entiers comme une sorte de "tableaux de bits".
Par exemple, un entier Byte est un tableau de 8 bits.
Ex :

Code :

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

  0001 1011

Grace a un Byte, tu peux contenir 8 booleans. Pour connaitre la valeur du bit N, tu peux utiliser :

Code :

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

1
2
3
4
function IsBitSet (Entier, NoBit : Byte) : boolean;
begin
  Result:=((Entier shr (NoBit-1)) and 1)<>0;
end;

Ensuite, pour savoir l'état du bit 3, on fait IsBitSet(Entier, 3).
Voila, tu peux aussi utiliser des entiers plus grands. Mais pour une image de 640*480, tu peux te servir de

Code :

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

Array [0..639,0..59] of Byte;

qui contient exactement le bon nombre de bits ...

Voila, je ne sais pas si c'est plus simple ...

[Dr.Who]

il n'existe pas de type "bit" car il n'y à pas de registre CPU de cette taille!

les plus petits registre du CPU sont sur 8bits (al, ah, bl, bh, cl, ch, dl, dh).


mais, comme un byte possede 8bits, qu'un word en possede 16, et qu'un longword en possede 32, il est facile de faire un tableau de "bit" grace à un tableau de "byte".

on considerera que le tableau aura cette forme :

TBits = array[0..n] of byte;

mais que "virtuellement" il ressemble à cela :

TBits = array[0..n, 0..7] of bit;


ensuite pour acceder à chaque "bits" il suffit de jouer avec les shl, shr.

bit 0 : Byte and $01
bit 1 : (Byte shr 1) and $01
bit 2 : (Byte shr 2) and $01
bit 3 : (Byte shr 3) and $01
etc.

donc ici nous avons un rapport de 8.

pour avoir 640x480 bits il suffit d'avoir un tableau de 640/8 x 480/8 bytes soit : 80x60 bytes

mais! si il s'agit d'image (bmp, png, jpg) le mieux est d'utiliser TBitmap et ScanLine.

[mick605]

il n'existe pas de type "bit" car il n'y à pas de registre CPU de cette taille!

les plus petits registre du CPU sont sur 8bits (al, ah, bl, bh, cl, ch, dl, dh).


mais, comme un byte possede 8bits, qu'un word en possede 16, et qu'un longword en possede 32, il est facile de faire un tableau de "bit" grace à un tableau de "byte".

on considerera que le tableau aura cette forme :

TBits = array[0..n] of byte;

mais que "virtuellement" il ressemble à cela :

TBits = array[0..n, 0..7] of bit;


ensuite pour acceder à chaque "bits" il suffit de jouer avec les shl, shr.

bit 0 : Byte and $01
bit 1 : (Byte shr 1) and $01
bit 2 : (Byte shr 2) and $01
bit 3 : (Byte shr 3) and $01
etc.

donc ici nous avons un rapport de 8.

Tout a fait d'accord, par contre :

pour avoir 640x480 bits il suffit d'avoir un tableau de 640/8 x 480/8 bytes soit : 80x60 bytes

Faux ! Parce qu'il a besoin de 640*480 bits, et un tableau de 80*60 Bytes contient 80*60*8 bits, soit 8 fois moins que voulu. Il faut diviser par 8 une seule composante de ton tableau, soit 80*480, ou 640*60 !

[Dr.Who]

Faux ! Parce qu'il a besoin de 640*480 bits, et un tableau de 80*60 Bytes contient 80*60*8 bits, soit 8 fois moins que voulu. Il faut diviser par 8 une seule composante de ton tableau, soit 80*480, ou 640*60 !

ben oui ... (640*480) div 8 soit 307 200 shr 3

[mick605]

ben oui ... (640*480) div 8 soit 307 200 shr 3

Et ? 640*480 = 307 200 : il veut 307 200 bits, et pour un tableau 80*60 de Byte :
80*60*8 = 38 400 : avec ton tableau, il a 38 400 bits

[Dr.Who]

Et ? 640*480 = 307 200 : il veut 307 200 bits, et pour un tableau 80*60 de Byte :
80*60*8 = 38 400 : avec ton tableau, il a 38 400 bits

oui pour la premiere erreur !

640 div 8 * 480 div 8 = erreur 38 400 bits seulement avec byte, pas avec Int64 (80*60)*64 = 307 200 bits
puisque 640/8 * 480/8 et egal a 640*480 / 8*8 (64)

par contre

(640*480) div 8 = 38 400 bytes! (38400*8 = 307 200)
1 bytes = 8 bits

en fait le nombre (38400) etait bon mais le reste pas ...

[mick605]

640 div 8 * 480 div 8 = erreur 38 400 bits seulement avec byte, pas avec Int64 (80*60)*64 = 307 200 bits

Tricheur

[Dr.Who]

pas de tricherie,
pas d'adaptation.

pas d'adaptation,
pas d'évolution.

pas d'évolution,
pas de vie.

pas de vie,
reste le néant.


j'ai vus le néant un jours ... il n'est pas trés bavard.

[e-ric]

Pour ColorID

Si tu veux connaître la taille d'un type de donnée, SizeOf est là pour te servir.

Un boolean tient sur un octet, mais rien ne prouve que le compilateur n'est pas capable de réduire l'encombrement mémoire pour un tableau de boolean, fais le test avec SizeOf.

Ceci dit, le fait de vouloir impérativement faire tenir un boolean sur un bit se paiera en efficacité car il faudra un calcul (comme montré dans les précédentes réponses) pour atteindre un n-ième bit.