Composant decbinhexedit

Soyez le premier à donner votre avis sur cette source.

Vue 4 733 fois - Téléchargée 424 fois

Description

Comme son nom l'indique, il s'agit d'un champ Edit qui permet
d'y écrire des valeurs Décimal, Binaire et Hexadécimal.

Source / Exemple :


Vous trouverez le code source du composant dans le fichier DecBinHexEdit.pas ainsi qu'un petit exemple d'utilisation.
Voir le contenu dans project1.zip

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
C'est pratique pour simplifier les saisie Hexa/Binaires...

Juste une ou deux petites remarques en passant :
Pour la conversion décimale vers binaire, on peut faire plus simple :
function TDecBinHexEdit.DecToBin(decimal: integer; Digits: integer): string;
begin
Result:= ''; // d'abord binaire est vide
repeat // répété
Result:= IntToStr(decimal mod 2) + Result; // Mettre 0 ou 1 en tête du chiffre
decimal:= decimal div 2; // Mettre la valeur décimale div 2 dans decimal
until decimal = 0; // jusque que decimal égale 0
end;
Note que l'on peut utiliser Result en tant que variable, même en lecture contrairement à la variable résultat DecToBin. Ce n'est donc pas utile de passer par bin.

Pour la conversion de héxa vers décimale il y a plus simple en utilisant une ruse de Delphi :
function TDecBinHexEdit.HexToDec(Hexa: string): string;
begin
Result:=IntToStr(StrToIntDef('$'+Hexa,0));
end;
Car pour Delphi '$1234' est une chaine héxa !

Bonne continuation

Nono

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.