CONVERTISSEUR D'UN NOMBRE DÉCIMAL EN BINAIRE ET HEXADECIMAL

cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
- 31 janv. 2010 à 11:02
dubois77
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
- 11 févr. 2010 à 17:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51215-convertisseur-d-un-nombre-decimal-en-binaire-et-hexadecimal

dubois77
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
11 févr. 2010 à 17:32
Re bonjour
Solution :
- supprimer la fonction translationhex
- dans procedure TForm1.Button1Click(Sender: TObject);
modifier comme suit : memo2.lines.add(inttohex(nombre+i,0));
et ça doit marcher (ça marche chez moi, même avec 255)
nictdtet
Messages postés
6
Date d'inscription
mercredi 30 décembre 2009
Statut
Membre
Dernière intervention
21 novembre 2011

11 févr. 2010 à 05:32
Bonjour à vous...

Convertir 255(d) sur 2 lignes donne 15F(H) puis 100(H) au lieu de FF(H) puis 100(H) à cause de "else translationhex:=inttostr(nomber)+hexadecimal;" au deuxième passage.
ludokk
Messages postés
10
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
31 janvier 2010

1 févr. 2010 à 18:49
Ok, merci bien Roger pour cette autre possibilité de conversion
dubois77
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
1 févr. 2010 à 13:03
Bonjour Philippe, bonjour Ludovic
pour la conversion binaire hexa on peut aussi directenet utiliser ceci :

function translationhex(nomber:integer):string;
///--- function IntToHex(Value:Integer;Digits:Integer):string;
begin
result := inttohex(nomber,nomber div 16 + 1)
end;

cordialement
ludokk
Messages postés
10
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
31 janvier 2010

31 janv. 2010 à 13:47
Oui, j'ai bien compris, merci pour ces informations
Afficher les 8 commentaires