Discussion :

[der§en]

Bonjour,

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

Code :

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

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 ?

[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

[pprem]

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

[ShaiLeTroll]

Ah je savais bien que je l'avais

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
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 :

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

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 :

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

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;

[der§en]

Merci de vos retours