Représentation binaire d'un entier

Version imprimable

Bonjour,

J'ai eu besoin de visualiser un entier sur 2 octets sous sa forme binaire, et j'ai codé ceci :
Code:

1 2 3 4 5 6 7 8 function EntierEnChaineBinaire(AValue: Word): string; var i: Byte; begin // 15 = nombres de bits dans un Word - 1 for i := 0 to 15 do Result := IntToStr((AValue shr i) and 1) + Result; end;
A votre avis, existe-t'il déjà une fonction équivalent sous Delphi, ou une fonction plus performante ?

22/02/2023, 10h56
ShaiLeTroll

https://docwiki.embarcadero.com/Libr...Utils.IntToHex pour l'hexa mais https://docwiki.embarcadero.com/Libr...asses.HexToBin sort un tableau binaire et non une chaine
22/02/2023, 13h38
pprem

pour afficher du binaire sous forme de string à partir d'un entier, ça me semble une bonne solution

Ah je savais bien que je l'avais

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
function ConversionIntToBase(Value: Int64; Base: string): string;
var
  BaseLen: Integer;
  pResult: PChar;
  k: integer;
  kk: extended;
begin
  BaseLen := Length(Base);
  if BaseLen >= 0 then
  begin
    if Value >= BaseLen then
    begin
      SetLength(Result, Math.Floor(LogN(BaseLen, Value)) + 1); // LogN est-il plus rapide que des réallocations de chaine dans une boucle ?
      pResult := @Result[Length(Result)];
 
      while Value > 0 do
      begin
        pResult^ := Base[Value mod BaseLen + 1];
        Value := Value div BaseLen;
        Dec(pResult);
      end;
    end
    else
      Result := Base[Value + 1];
  end
  else
    Result := '';
end;

Code:

1
2
3
4
ConversionIntToBase(NombreDecimal, '01'); Binaire
ConversionIntToBase(NombreDecimal, '01234567'); Octal
ConversionIntToBase(NombreDecimal, '0123456789'); Decimal
ConversionIntToBase(NombreDecimal, '0123456789ABCDEF'); HexaDecimal

Et en binaire, tu peux être plus direct que IntToStr pour un seul char et en allouant la chaine de sortie en une seule fois (plus rapide sans FastMM)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
function IntToBin(Value: Int64; Digits: Byte): string;
var
  I: Byte;
begin
  SetLength(Result, Digits);
  for I := Digits-1 downto 0 do
    Result[Digits-I] := Chr(Ord('0') + Ord((Value shr I) and 1));
end;
 
function EntierEnChaineBinaire(AValue: Word): string;
begin
  Result := IntToBin(AValue, 16);
end;

22/02/2023, 17h07
der§en

Merci de vos retours :yaisse2: