Discussion :

[dacid]

Bonjour à tous,

J'ai un entier codé sur 9 bits (0 à 511) et j'aimerais récuperer sa valeur binaire dans une chaine (ex: '110010110').

Ca fait un bout de temps que je bricole avec les fonctions byte, chr, HexToBin et compagnie mais je n'arrive à rien en sortir !

Comment faire ?

Merci d'avance.

[dacid]

J'ai bricolé une fonction que j'ai trouvée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function integerToByte(x: integer): string;
var i: integer; 
begin 
  result := '';
  if x > 511 then exit;
  for i := 8 downto 0 do begin
    if x DIV (1 shl i) <> 0 then begin
      x := x MOD (1 shl i);
      result := result + '1' 
    end else
      result := result + '0';
  end;// Fin for
end;

Est ce que c'est ce qu'il y a de plus rapide et efficace ?
(En fait, ce qui me gène, c'est le fait qu'il y a 9 bits, n'y a t-il pas de risque d'erreurs avec un int ?)

[/dev/null]

IntToBin si tu a un entier à l'origine... si non IntToBin(StrToInt())

[/dev/null]

Si tu a 9bits, et que les bits 9 a x tu t'en fout... dans ce cas, tu ne fait que couper la chaine avec ma méthode... ton system et bon... mais tu devrait, plutot que sortir en cas de > 511, faire un x := X and 511
Comme ça tu auras force les bits de poids fort a 0

[LadyWasky]

Ton entier, tu l'as stocké dans quel genre de variable ? Un Integer, ou un string ? Parce que l'expression "entier stocké sur 9 bits" me dis que ça n'existe pas en Delphi : 8bits, 16 bits, 32 bits oui, mais 9 bits, non.

Sinon, des fonctions IntToBin, il y en a en pagaille sur internet et sur ce forum, exemple fait maison :

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
function Int_To_BinString(AInteger:cardinal):string;
var s:string;
      bit_num:integer;
      bit_value:cardinal;
begin
   //initialisations
   s:='';
   bit_value:=1;
   bit_value:=bit_value shl 31; //équivalent à bit_value:=2 puissance 32;
 
  //calcul
   for bit_num:=32 downto 1 do
   begin
      if (bit_value and AInteger)=bit_value 
      then begin
                s:=s+'1';
             end
      else begin
                if s<>'' then //comme ça, ca n'écrit pas les zéro du début, donc la ligne est en option
                if bit_num<=9 then //comme ça on ne tiens compte que des 9bits
                s:=s+'0'; 
             end;
      bit_value:=bit_value shr 1; //pareil que bit_value:=bit_value div 2;
   end;
  result:=s;
end;

[/dev/null]

@waskol : IntToBin est de base dans delphi (du moins à partir de la version 6 de sur )

[LadyWasky]

@waskol : IntToBin est de base dans delphi (du moins à partir de la version 6 de sur )

Certes, mais ça se trouve, notre amis est sous Delphi 1 et puis ma fonction vire les zéros du début et se limite au 9 bits inférieurs (c'est bien le sujet posé, n'est-ce pas ?) !

[/dev/null]

waskol: ok

[dacid]

Bonjour à tous,

En fait, seuls les 9 derniers bits m'interessent mais je voulais etre sur que je ne prenne pas un type qui n'en contient que 8, c'est tout.

Sinon, je suis en Delphi 2005 et inttoBin n'a pas l'air d'être dans les bibliotheques par défaut car il ne la connait pas.

Masi bon, avec vos conseils, j'ai réussi à répondre à mon problème, merci.

[/dev/null]

OK ... Bizare ça... je ne pensais pas que nous pouvions avoir la disparition de fonctionnalité . Je connais relativement mal D8

[LadyWasky]

OK ... Bizare ça... je ne pensais pas que nous pouvions avoir la disparition de fonctionnalité . Je connais relativement mal D8

Tu vois, maintenant, la fonction existe pour Delphi 2005 aussi

[dacid]

Ui, c'est sur, mais je préfère quand même utiliser les fonctions de Delphi quand il y en a, elles sont forçément plus optimisées.

Je me souvient encore (il n'y a pas si longtemps) quand je voulais faire moi même mon calcul de modulo sur un grand chiffre... J'avais le temps de laver ma bagnole pendant le traitement !