Discussion :

[colorid]

Bonjour,

Je souhaite créer un composant du type TBitsVector avec un paramétrage dans la fonction create du type :
MonComposant:= TBitsVector.Create( NbTab, W,H ) où
NBTab est le nombre de TBits que le composant utilisera qui seront de Size=W*H

Un petit code source de la fonction constructor serait le bienvenu

Merci Colorid

[Dr.Who]

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
 
type
  TBitsVector = class
  private
    fNbTab : integer;
    fW     : integer;
    fH     : integer;
    fSize  : integer;
    fTableau : array of byte; // ou autre
  public
    constructor Create(const aNbTab, aW, aH: integer);
    destructor Destroy; override;
  end;
 
 
{ TBitsVector }
 
constructor TBitsVector.Create(const aNbTab, aW, aH: integer);
begin
  fNbTab := aNbTab;
  fW     := aW;
  fH     := aH;
  fSize  := aW * aH;
  SetLength(fTableau, fSize);
end;
 
destructor TBitsVector.Destroy;
begin
  SetLength(fTableau, 0);
  inherited;
end;

http://hdd34.developpez.com/cours/artpoo/

[Montor]

Code :

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

SetLength(fTableau,Ceil( (H*w) / 8));

Dr.Who tu doits ajouter un property pour la lecture et ecrituredesbits

[Montor]

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
  TabBits=class
  private
   FBits:TBits;
   FH   :integer;
   FW   :integer;
   FSize:integer;
   function Get_Bit(X,Y:integer):boolean;
   procedure Set_Bit(X,Y:integer;AValue:boolean);
   function Idx(X,Y:integer):integer;
   public
   constructor Create(AH,AW:integer);
   destructor Destroy();override;
   property BitXY[X,Y:integer]:boolean read Get_Bit write Set_Bit;
  end;
 
implementation
constructor TabBits.Create(AH,AW:integer);
begin
  FBits:=TBits.Create();
  FH   :=AH;
  FW   :=AW;
  FSize:= AH * AW;
  FBits.Size:= FSize;
 
end;
 
destructor TabBits.Destroy();
begin
  FBits.Free();
  inherited;
end;
 
function TabBits.Idx(X,Y:integer):integer;
begin
 result:=(FW * Y)+X;
 if result >= FSize then
  raise Exception.Create('Error');
end;
 
function TabBits.Get_Bit(X,Y:integer):boolean ;
begin
 result:= FBits[Idx(X,Y)];
end;
 
procedure TabBits.Set_Bit(X,Y:integer;AValue:boolean);
begin
 FBits[Idx(X,Y)]:=AValue;
end;

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
d:TabBits;
begin
d:=TabBits.Create(50,50);
d.BitXY[49,49]:=false;
end;

[Dr.Who]

Dr.Who tu doits ajouter un property pour la lecture et ecrituredesbits

il l'as pas demandé ...