Discussion :

[Oscar02]

Bonjour à tous,

Je recherche un bout de code pour convertir une valeur x dans Edit.text vers edit 2. text sous la forme

00000000000000000000000000000000


J'ai trouver des fonctions mais je ne vois pas comment entrer la valeur edit et récupérer la valeur binaire.

En vous remerciant

cordialement

Oscar02

[Andnotor]

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(aValue: LongInt; aDigits: integer) :string;
begin
  Result := StringOfChar('0', aDigits);
 
  while aValue > 0 do
  begin
    if aValue and 1 = 1 then
      Result[aDigits] := '1';
 
    dec(aDigits);
    aValue := aValue shr 1;
  end;
end;

StrToInt (ou StrToIntDef) pour convertir un texte en entier.

[Oscar02]

Merci pour votre réponse rapide

Mais quel sont les valeurs à définir pour Edit1 et Edit2 à partir de votre code

Edit1:= ???

Edit2:= ???

Cordialement

Oscar02

[Andnotor]

Mais quel sont les valeurs à définir pour Edit1 et Edit2 à partir de votre code

Et bien pour l'edit d'entrée... ce que tu veux représentant un dword
Et pour l'autre, le résultat de IntToBin

[Oscar02]

Merci beaucoup,


OK ça marche

cordialement

Oscar02