binaire

Question

salut!

je cherche à afficher dans un champ edit une valeur binaire, donc j'ai un integer que je convertis en bcd mais l'edit attend un string et la je coince....qqun peut m'aider????

cs_Delphiprog · Answer

Utilise tout simplement la fonction IntToStr pour affecter une valeur entière à une propriété de type String (sans passer par le format BCD) :
Edit1.Text := IntToStr(TonEntier);
Pourquoi faire compliqué quand on peut faire simple ?  :big) 
May Delphi be with you

defconsuny · Answer

parce que la simplicité n'est pas toujours évidente ;0)
seul la fonction inttobcd me permet de convertir mon entier en binaire... et ta solution me renvoie un entier... peut-être me suis-je mal expliquer??? dans mon edit je voudrais retrouver la valeur binaire d'un entier...(00001001 pour un entier de valeur 9)... une autre solution peut-être? :approve)

japee · Answer

Cette fonction devrait te convenir :

function DecToBin(n: Int64): String;
var s: String;
begin
  s := '';
  while n <> 0 do
  begin
    s := Chr(n mod 2 + Ord('0')) + s;
    n := n div 2;
  end;
  Result := s;
end;


Bonne prog'  :-p

cs_Delphiprog · Answer

Pour Japee : 
si n vaut zéro, alors le résultat de ta fonction renvoie une chaine vide et non pas '0'. A parfaire... ;) 
May Delphi be with you

Binaire

4 réponses

Votre réponse

Discussions similaires